Foro de elhacker.net

Hola Manes

Kisiera La Yuda DE UStedes

Bueno Lo QUe QUiero HAcer es lo siguiente

(http://www.mundoimg.com/imagenes/otros/180424_mundoimg_help.jpg)

Esta CLaro.

Si a Escribir en el text "Nombre"
Me aparezca en un msg BOx "Giovani"

Si a Escribir en el text "Nick"
Me aparezca en un msg BOx "NsTeam"

Teniendo En Cuenta QUe En Donde Se Buscara eS

Un WEb.Browser

Espero Su Ayuda

Gracias DE Antemano

No entiendo la finalidad que tiene este programa, además..para que utilizas un webbrowser ?

No entiendo tu finalidad =S

 hola, usa la función "INSTR" para buscar las palabras claves como "nombre, nick, etc.", luego usas "MID" para extraer y asignar al msgbox ..

todo lo puedes hacer en una sola linea ..

Man Encontre un Ejemplo

Pero Eso Lo QUe HACe Es Seleccionar el Texto Buscado

SI Podrias DArme Un Ejemplo De "MID" Te Lo Agradeceria Man =)

Public Shared Function Mid( _
   ByVal str As String, _
   ByVal Start As Integer, _
   Optional ByVal Length As Integer _
) As String

Dim word As String
Private Sub Command1_Click()
    word = Text1.Text
    s_word = Mid(word, 8, 3)
    MsgBox s_word
End Sub
 
Private Sub Form_Load()
Text1.Text = ""
Command1.Caption = "Mid"
End Sub

Si insertas "EJEMPLOMID" en el textbox tu msgbox devolverá "MID"

Public Shared Function Mid( _
   ByVal str As String, _
   ByVal Start As Integer, _
   Optional ByVal Length As Integer _
) As String

Dim word As String
Private Sub Command1_Click()
    word = Text1.Text
    s_word = Mid(word, 8, 3)
    MsgBox s_word
End Sub
 
Private Sub Form_Load()
Text1.Text = ""
Command1.Caption = "Mid"
End Sub

Veamos si te sirve el siguiente code como orientación:

Dim s_word, s_find As String
Private Sub Command1_Click()
    s_word = InputBox("Cadena a buscar:")
    ' Find string in text.
    s_find = InStr(Text1.Text, s_word)
    If s_find Then
        Text1.SetFocus
        Text1.SelStart = s_find - 1
        Text1.SelLength = Len(s_word)
    Else
        MsgBox "No se encuentra la cadenas"
    End If
End Sub
 
Private Sub Form_Load()
Text1.Text = "Los gatos tienen cuatro patas"
Command1.Caption = "Buscar"
End Sub

Gracias POR Ese Codigo

PEro ME DIcuenta que lo que hace ese COdigo es Buscar un texto y seleccionarlo

En SI LO que yo queria Es Como esta en la IMG

Si lo pudieras encontrar te lo agradeceria =)

En otras palabras buscas un programador para que te lo programe?

Dulces Lunas

  :xD

Creo que ya es suficiente ayuda... Hazlo por ti...