En vb, hay "...tasdldjffhhkkghfgy...(que representa varios caracteres)" en texto1.
Subcomando privado 1_Click()
Dim a es Long, b es Long, nStr es String
Obtiene dos caracteres que comienzan con s:
a = InStr(Text1 . Texto, "s")
Si a & gt entonces 0
nStr = Mid(Text1. Text, 2)
MsgBox "Con s=" & "Los dos caracteres que comienzan con; nStr
Terminará si...
Obtiene los caracteres entre d y h:
a = InStr (Texto1 . Texto, "d")
b = InStr(a + 1, Texto1. Texto, "h")
Si a & gt0 y b & gt entonces 0
nStr = Mid(Texto1. Texto, a + 1, b - a - 1)
MsgBox "Caracteres entre d y h = "&"; nStr
It finalizará si...
Conector final