SEPARAR LETRA EM VB.NET

 Tópico anterior Próximo tópico Novo tópico

SEPARAR LETRA EM VB.NET

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#490686 - 09/10/2019 23:40:59

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Citação:
:
Problema que nao entendo nada de C#

Ento use um conversor. Entenda como funciona, no foque tanto em sintaxe. A sua lgica no est ok.


_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#490687 - 09/10/2019 23:43:06

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Em VB.NET:

    Dim itens As List(Of String) = ListBox1.Items.ToList()
    Dim itensNumericos As List(Of Integer) = New List(Of Integer)()
    itens.ForEach(Function(item)
                      If IsNumeric(item) Then itensNumericos.Add(Convert.ToInt32(item))
                  End Function)
   itensNumericos.ForEach(Function(num) toremovelist.Add(num))


_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#490688 - 10/10/2019 00:51:46

BETOPSY
ARCOS
Cadast. em:Junho/2014


Obrigado por tentar ajudar , mas vou acabar criando um botao pra cada letra mesmo !



#490689 - 10/10/2019 02:14:10

BETOPSY
ARCOS
Cadast. em:Junho/2014



Consegui fazendo uma gambiara coloquei 1 botao e add o codigo abaixo nele
repetindo todas as letras do alfabeto ficou enorme o codigo mas funcionou
obrigado a todos !





    Try

    
            If Not []a[] Is Nothing Then
                Dim toremovelist As New List(Of String)
                For Each item As String In ListBox1.Items

                    If item.Contains([]a[]) Then
                        toremovelist.Add(item)
                        ListBox2.Items.Add(item)
                    End If

                Next
                For Each removeitem In toremovelist
                    ListBox1.Items.Remove(removeitem)
                    Label1.Text = ListBox1.Items.Count.ToString()
                    Label2.Text = ListBox2.Items.Count.ToString()


                Next
            End If

        Catch ex As Exception

        End Try  




#490690 - 10/10/2019 05:37:31

JONATHANSTECKER
METZ
Cadast. em:Junho/2009






 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por BETOPSY em 12/10/2019 19:29:19