Test Foro de elhacker.net SMF 2.1

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 ?

Bueno ENtonces SI NO Tienen Solucion A ESa Parte del webBrowser

El WebBrowser Pueden Tomarlo Como Un txtBox   =)

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 ..

Citar*http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico5.htm

todo lo puedes hacer en una sola linea ..

Cita de: cΔssiΔnі en 13 Junio 2009, 17:19 PM
hola, usa la función "INSTR" para buscar las palabras claves como "nombre, nick, etc.", luego usas "MID" para extraer y asignar al msgbox ..

Citar*http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico5.htm

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

CitarDevuelve una cadena que a su vez contiene un número especificado de caracteres de una cadena.

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"

Cita de: Emt.dev en 13 Junio 2009, 20:55 PM

Código (vb) [Seleccionar] Expandir

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

CitarDevuelve una cadena que a su vez contiene un número especificado de caracteres de una cadena.

Código (vb) [Seleccionar] Expandir

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"

Me Sirvio dE Mucho Tu Codigo

Pero De la Imagen QUe Puse Encontraste ALgun Otro Codigo

Buscarlo EN Un WebBrowser

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

Cita de: Emt.dev en 14 Junio 2009, 02:07 AM
Veamos si te sirve el siguiente code como orientación:

Código (vb) [Seleccionar] Expandir

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 =)

Cita de: NsTeam en 14 Junio 2009, 03:34 AM

Cita de: Emt.dev en 14 Junio 2009, 02:07 AM
Veamos si te sirve el siguiente code como orientación:

Código (vb) [Seleccionar] Expandir

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

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

Dulces Lunas

:xD

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