Programación General > Visual Basic 6.0 e inferiores

 Como Localizar Una Palabra En Un Txt

(1/1)

MindEye:
- Antes de nada, FELIZ AÑO NUEVO A TODOS . . .

 - Sabría decirme alguien como puedo localizar una palabra dentro de TXT.

cpmario:
Usa la instrucción

InStr([start, ]string1, string2[, compare])

    Dim lngPos As Long
    Dim strWord As String
    strWord = "Palabra"
    'lngPos posición de la palabra en TextBox
    lngPos = InStr(1, Text1.Text, strWord)

 :)

Pakun:
viendo este tema......
como se le haria, para que ya una vez encontrada la palabra, me recoja un valor que tiene a un lado???

Por ejemplo:

XXXXXX XXXXXXXXXXXXXX XXXXXXXXXXXXXXX
XXXX XXXXX Palabra Valor XXXXXXXXX XXXXXX
XXXXX XXXXXXXXXXXXXXXX XXXXXXX XXXXXXX
XXXXXXXXX XXXXXXXXXXXXX XXXXXXXXXXXXX

Necesito encontrar 'Palabra' y se que junto a ella estara un valor (la longitud puede variar) inclusive puede estar en diferentes renglones, pero siempre entre espacios en blanco

Esto es lo que llevo ahorita
lo que necesito es, ke al momento de encontrar esa cadena, me tome el siguiente valor (el cual esta rodeado de dos espacios en blanco, kreo ke en ascii viene siendo el char 32) pero su longitud puede variar, ah y el valor es numerico.

Private Sub Command1_Click()
 Dim Search, Where   ' Declara variables.
   ' Obtiene del usuario la cadena de búsqueda.
   
    Search = InputBox("Escriba el texto que desea buscar:")

   Where = InStr(Text1.Text, Search)    ' Busca la cadena en el texto.
   If Where Then                     ' Si se encuentra,
      Text1.SelStart = Where - 1  ' se establece el inicio de la selección
      Text1.SelLength = Len(Search) ' y se establece la longitud para
      Text1.SetFocus                      ' seleccionar.
     
   Else
      MsgBox "Cadena no encontrada."  
   End If

End Sub

Solo necesito el primer numero despues de cada palabra, para despues extraerlo y pasarlo aun textbox

Valor0 60 0 0 0 0
Valor1 838 0 0 0 0
Valor2 5759 0 0 0 0
Valor3 6399 0 0 0 0
Valor4 11556 0 0 0 0

Tal vez esta medio complicado esto, pero ojala y me puedan ayudar
Gracias

Brroz:
Hola Pakun.

Podrías usar una función de este estilo:


--- Código: Text --- Private Function RecuperarValor( _ByVal Cadena As String, _ByVal PalabraABuscar As String) As String     Dim lng1 As Long    lng1 = InStr(1, Cadena, PalabraABuscar)    If lng1 = 0 Then        MsgBox "'" & PalabraABuscar & "'" & vbCrLf _        & "No se pudo localizar el texto" _        , vbExclamation, "Buscar"        Exit Function    End If        lng1 = lng1 + Len(PalabraABuscar)    If lng1 < Len(Cadena) Then        lng1 = InStr(1, Cadena, Chr(32))        If lng1 = 0 Then Exit Function    Else        Exit Function    End If        Cadena = LTrim(Mid(Cadena, lng1))    lng1 = InStr(lng1, Cadena, Chr(32))    If lng1 > 0 Then Cadena = Left(Cadena, lng1)        RecuperarValor = RTrim(Cadena)    End Function  
Abur.

Pakun:
orale gracias, deja lo cheko :D

Navegación

[0] Índice de Mensajes