04/11/2008, 23:44
| |||
| |||
| [Ayuda] Expresion Regular... Señores! Una duda.. he visto sobre las expresiones regulares en VB pero no entendi muy bien... mi poregunta es..... con una expresion regular como puedo hacer esto.... en el texto esta esto "<h1>hola</h1>" como puedo hacer que soolo extraiga "hola" y lo guarde en alguna variable o algo asi?? espero su ayuda !! saludois! Vicento |
|
05/11/2008, 03:37
| |||
| |||
| Respuesta: [Ayuda] Expresion Regular... Cita: Mira, para sacar el valor de una cadena entre dos carácteres, lo puedes hacer con una función como esta:
Iniciado por Vicento  Señores! Una duda.. he visto sobre las expresiones regulares en VB pero no entendi muy bien... mi poregunta es..... con una expresion regular como puedo hacer esto.... en el texto esta esto "<h1>hola</h1>" como puedo hacer que soolo extraiga "hola" y lo guarde en alguna variable o algo asi?? espero su ayuda !! saludois! Vicento
Código:
Para llamar a la función (en tu caso):Function BuscarPalabra(ByVal Texto As String, ByVal CarIni As String, ByVal CarFin As String) As String Dim PosIni As Integer, PosFin As Integer PosIni = InStr(1, Texto, CarIni) PosFin = InStr(PosIni + 1, Texto, CarFin) PosIni = PosIni + Len(CarIni) BuscarPalabra = Mid(Texto, PosIni, PosFin - PosIni) End Function
Código:
Private Sub Command1_Click() Dim Palabra As String Palabra = BuscarPalabra(Text1.Text, ">", "<") MsgBox Palabra ' devuelve "hola" End Sub  |
