CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Analizar Y Manipular Strings

(1/1)

juanyunis:
Hola me llamo Juan, bueno les muestro lo que necesito hacer pero no doy  :huh:, bueno es lo siguiente, digamos que a una variable tipo String le asigno el valor Text de un TextBox, digamos que dicho Valor seria "(USUARIO) Hola como estas?" sin las comillas. El problema es que yo quiero que la variable obtenga el valor dentro de los parentesis.

Ejemplo

dim testStr as string = ""

TextBox1.Text = "(USUARIO) Hola como estas?"

testStr = TextBox1.Text

Necesito es dividir el contenido de la cadena de la siguiente forma, parte1 es igual a el contenido dentro del parentesis y parte2 es lo que resta de la cadena.

Ejemplo: Si el valor de TextBox1.Text fuera = "(juanyunis) hola" entonces parte1 seria igual a "juanyunis" y parte2 seria igual a "hola"

Les agradezco toda su ayuda :P, perdonen si los confundi.

Castord:

--- Código: Text --- Sub Descomponer()        Dim Str As String = "(Tu tarea?) Bla bla"        Dim IniPar As Integer, FinPar As Integer        Dim DentroPar As String, FueraPar As String        IniPar = InStr(1, Str, "(")        If IniPar <> 0 Then            FinPar = InStr(IniPar + 1, Str, ")")            If FinPar <> 0 Then                DentroPar = Mid(Str, IniPar + 1, FinPar - IniPar - 1)                FueraPar = Mid(Str, FinPar + 1, Str.Length - FinPar)                MsgBox(DentroPar, , "dentro")                MsgBox(FueraPar, , "fuera")            Else                MsgBox("No se encontro ')'")            End If        Else            MsgBox("No se encontro '('")        End If     End Sub  

juanyunis:

--- Cita de: "Castord" ---
--- Código: Text --- Sub Descomponer()        Dim Str As String = "(Tu tarea?) Bla bla"        Dim IniPar As Integer, FinPar As Integer        Dim DentroPar As String, FueraPar As String        IniPar = InStr(1, Str, "(")        If IniPar <> 0 Then            FinPar = InStr(IniPar + 1, Str, ")")            If FinPar <> 0 Then                DentroPar = Mid(Str, IniPar + 1, FinPar - IniPar - 1)                FueraPar = Mid(Str, FinPar + 1, Str.Length - FinPar)                MsgBox(DentroPar, , "dentro")                MsgBox(FueraPar, , "fuera")            Else                MsgBox("No se encontro ')'")            End If        Else            MsgBox("No se encontro '('")        End If     End Sub  
--- Fin de la cita ---
Muchisimas gracias no sabes cuanto me sirvio  :smartass:

Navegación

[0] Índice de Mensajes