SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: khristian18 en Viernes 3 de Abril de 2009, 15:54

Título: Extraer Una Palabra De Una Frase
Publicado por: khristian18 en Viernes 3 de Abril de 2009, 15:54
Olaz.. bueno  .. espero k me puedan ayudar . .es algo pekeño .. bueno lo k kiero es sacar un texto que esta entre puntos en una frase .. Y mostralo en un LABEL

por ejemplo ;

Carlos Esta .Con Camisa.  Azul

y que me muestre en un label  la palabra k esta entre punto osea ->   Con Camisa    .. pero sin los puntos solo la palabra k tiene entre ellas  :mellow:
Título: Re: Extraer Una Palabra De Una Frase
Publicado por: [Zerox] en Viernes 3 de Abril de 2009, 16:09
Bueno espero te sirva... lo desglose para que entiendas...Colocalo en el evento que desees

 Dim cad As String
 cad = "Carlos Esta .Con Camisa. Azul"
 Dim pos1 As Integer, pos2 As Integer, resto As Integer
 pos1 = InStr(cad, ".")
 pos2 = InStrRev(cad, ".")
 resto = pos2 - pos1
 label1.caption = Mid(cad, pos1 + 1, resto - 1)
Título: Re: Extraer Una Palabra De Una Frase
Publicado por: khristian18 en Martes 7 de Abril de 2009, 06:13
gracias man .. muchas gracias por tu ayuda ..!! byee salu2