[vb6] Cercare parola in una txtbox...

[ASyd]

Vorrei cercare un termine all'interno di una text box (magari una rich text box, che possiede il metodo "find") impostando una parola di inizio ricerca e una di fine, memorizzando poi ciò che ci sta in mezzo.

Esempio: "Ieri ho mangiato una mela, era buona." (stringa all'interno della txtbox).

Parola1: "mangiato"
Parola2: ","
Risultato: " una mela"


Spero di essere stato chiaro :quipy:

ciao.

[Toeke]

  Dim MyString  As String
  Dim iBegin    As Integer
  Dim iLen      As Integer
  
  MyString$ = "Ieri ho mangiato una mela, era buona."

  iBegin% = InStr(MyString$, "mangiato") + Len("mangiato")
  iEnd% = InStr(MyString$, ",") - iBegin%

  MsgBox Mid$(MyString$, iBegin%, iEnd%)

[Acaro]

ciao
puoi usare il metodo Instr
if Instr(1,"stringa da cercare","StringaIntera",vbtextcompare)<>0 then
se è diverso di 0 vuol dire che la parola esiste dentro al stringa intera altrimenti
no
fammi sapere