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
#490636 - 07/10/2019 19:33:09

BETOPSY
ARCOS
Cadast. em:Junho/2014


  
tenho o codigo abaixo que ao colocar qualquer valer ele percore a listbox e separa e remove a linha que tem o item

porem o que eu gostaria de fazer e modificar o codigo para retirar todas as letras
apena letras alguem poderia me ajudar!




  
    Try

            If Label1.Text <= "0" Then
                MsgBox("Nada para separar")
            End If

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

                        If item.Contains(stringname) 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  




Resposta escolhida #490637 - 07/10/2019 20:24:35

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


Membro da equipe
Calma... devagar... explique de novo porque não entendi o que você quer.

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#490638 - 07/10/2019 20:32:22

BETOPSY
ARCOS
Cadast. em:Junho/2014


Então eu preciso remover todas as linhas que tiverem letras
ex:

876898887878998
78678876978d869
85678986868w886
890686868g86868
7845785875d7857
245637644764467

no caso ele remover todas com letras
e enviar para outro listbox















#490640 - 07/10/2019 20:51:53

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


Membro da equipe
Você pode fazer uso do método IsNumeric para isso. Acho que mais ou menos assim:

                    For Each item As String In ListBox1.Items

                        If IsNumeric(stringname) 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


_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#490641 - 07/10/2019 20:52:54

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


Membro da equipe
O ideal seria trabalhar com as fontes de dados que preenchem as listas ao invés dos componentes de UI

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#490642 - 07/10/2019 21:03:25

BETOPSY
ARCOS
Cadast. em:Junho/2014


Não deu certo !
o codigo abaixo remove todas as linhas com letra a
mas eu queria que remove-se todas as letras do alfabeto
maiusculas ou minusculas



    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  




#490643 - 07/10/2019 22:07:30

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


Membro da equipe
Você quer remover os ítens que contem letras ou as letras de cada item?

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#490644 - 07/10/2019 23:00:26

BETOPSY
ARCOS
Cadast. em:Junho/2014


quero remover os ítens que contem letras

ex 87976h8980u

caso removeria a linha toda!



#490645 - 08/10/2019 01:04:14

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


Membro da equipe
Então é como eu mostrei:


                Dim toremovelist As New List(Of String)
                For Each item As String In ListBox1.Items

                    If Not IsNumeric(item) 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


_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#490647 - 08/10/2019 08:37:03

BETOPSY
ARCOS
Cadast. em:Junho/2014


Problema que o codigo ate funciona porem ele remove tudo
letras e numeros e não apenas letras :(



#490659 - 09/10/2019 01:13:05

JABA
CABO FRIO
Cadast. em:Agosto/2005


Citação:
:
Problema que o codigo ate funciona porem ele remove tudo
letras e numeros e não apenas letras :(


O código dele funciona perfeitamente. Faça o teste exatamente como foi feito.

_______________________________________________________________________________________________

Se a alma ou espírito são imateriais, como eles fazem para se localizarem quando o corpo está em movimento?



 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