SEPARAR PARTE DE UM TEXTO

IRENKO 27/05/2015 21:04:56
#447106
: blablablabla :

pessoal, preciso de uma função q separe o texto exemplo acima, o inicio no(:) e o fim no mesmo.
é possivel? é qualquer texto q esteja entre os (:).

grato,
TUNUSAT 27/05/2015 22:43:07
#447111
IRENKO,

Use:
- InStr
- InStrRev
- Left
- Right
- Mid

Putz ... este exemplo tá tosco, mas olha a hora! KKKKK!

Private Sub Form_Load()

Dim strTexto As String
Dim strTexto2 As String
Dim intPosicao As Integer

strTexto = [Ô]: blablablabla :[Ô]
strTexto2 = [Ô][Ô]
intPosicao = 1

    Do While InStr(intPosicao, strTexto, [Ô]:[Ô]) > 0

        intPosicao = InStr(intPosicao, strTexto, [Ô]:[Ô])
        
        If intPosicao = 1 Then
            strTexto2 = Right(strTexto, Len(strTexto) - intPosicao)
        ElseIf intPosicao > 1 Then
        
            If intPosicao >= Len(strTexto2) Then
                strTexto2 = Left(strTexto2, Len(strTexto2) - 1)
            End If
            
        End If
        
        If InStr(intPosicao, strTexto, [Ô]:[Ô]) > 0 Then
            strTexto = strTexto2
        Else
            intPosicao = intPosicao + 1
        End If

    Loop

End Sub



[][ô]s,
Tunusat.
WEVERSON 27/05/2015 22:48:02
#447112
[txt-color=#0000f0]ESTE EXEMPLO ESTA MAIS FÁCIL...[/txt-color]

Dim s As String = [Ô]:resutado:positivo:[Ô]
[ô] ... Isto irá separar toda a String resutado.

Dim resutado As String() = s.Split([Ô]:[Ô]C)

For Each resutado As String In resutado
Console.WriteLine(resutado)
Next

Output:

resutado
positivo
JCM0867 27/05/2015 22:49:12
#447113
Trim(Replace([Ô]: blablablabla :[Ô],[Ô]:[Ô],[Ô][Ô])) ou Replace(Replace([Ô]: blablablabla :[Ô],[Ô]: [Ô],[Ô][Ô]),[Ô] :[Ô],[Ô][Ô])
IRENKO 28/05/2015 08:48:41
#447116
TUNUSAT, sua sugestão ficou perfeita mesmo para hora!KKK

Complicando:

se o texto for : blablablabla @
com dois caractere diferentes.
IRENKO 28/05/2015 09:00:00
#447117
TUNUSAT, sua sugestão ficou perfeita mesmo para hora!KKK

Complicando:

se o texto for : blablablabla @
com dois caractere diferentes.
TUNUSAT 28/05/2015 09:53:53
#447119 Resposta escolhida
IRENKO,

Fiz este código fonte correndo, é possível melhorar bastante.
Inclusive aproveitar os exemplos do WEVERSON e do JCM0867 para melhorar ainda mais.
A idéia seria mesmo deixar bem genérico.

[][ô]s,
Tunusat.
Tópico encerrado , respostas não são mais permitidas
Voltar