CARACTER

GUIGOR 25/02/2016 16:05:59
#458207
Boa tarde amigos

seguinte tenho a seguinte string

|Sistema Desenvolvido Por ItaControl (21) 99761-5257 | email= igor@itacontrol.com.br|Obrigado Pela Preferencia|

sendo que preciso quebrar ele toda vez que encontrar o caracter |
ficando da seguinte forma

Sistema Desenvolvido Por ItaControl (21) 99761-5257
email= igor@itacontrol.com.br
Obrigado Pela Preferencia
SINCLAIR 25/02/2016 16:28:00
#458208
Colega Guigor,

Use a função Split, que permite quebrar a string em um array, cujo delimitador você especificaria como sendo o |.

Uma outra forma é substituir com replace pelo VbCrLf, assim

str_Texto = Replace (str_Texto, [Ô]|[Ô], vbCrLf)


Tudo de bom.
GUIMORAES 25/02/2016 16:48:35
#458209 Resposta escolhida
Existem várias formas de fazer o que você quer
vou exemplificar.

 Dim dados As New List(Of String)
        Dim informacao As String = [Ô]|Sistema Desenvolvido Por ItaControl (21) 99761-5257 | email= igor@itacontrol.com.br|Obrigado Pela Preferencia|[Ô]
        Dim qtdQuebras As Integer = UBound(Split(informacao, [Ô]|[Ô]))
        For i = 0 To qtdQuebras - 1
            dados.Add(Split(informacao, [Ô]|[Ô])(i))
        Next
Tópico encerrado , respostas não são mais permitidas
Voltar