10/01/08 6:03
kryc
tu vuoi in pratica vuoi ricercare una determinata riga di una rich text box, tra le varie righe dell'altra giusto?E se non trovi la prima riga, allora passare a confrontare la seconda frase della seconda riga con tutte le righe dell'altra rich
In questo caso devi divedere le righe della rich text box di riferimento, cioè quella contenente le rasi da ricercare nella seconda
Quindi come aveva suggerito prima ( non mi ricordo il nick)
Devi splittare le righe e aggiungere ad un vettore
Dim riga() as string
riga=split(richtextbox,vbcrlf)
For i = LBound(riga) To UBound(riga)
If InStr(Text2, riga(i)) Then
MsgBox "riga " & i & "trovata"
Else
MsgBox "riga " & i & "non trovata"
End If
Next i
In questo esempio ti scorre la prima riga della rich da confrontare con tutta la seconda rich ( o viceversa come preferisci)
Dopodichè passa alla seconda riga e la confronta con tuttta la rich etc etc
Il mio esempio ti rimanda un messaggio se trovata o meno la frase nell'altra rich ( ma è solo un esempio)
Fammi sapere se ho capito o meno
aaa
10/01/08 17:55
GrG
Ma tu vuoi ke ad esmpio:
rich1 = "prova 1"
rich2 = "nella prova della 1 mattinata..."
allora quel kodice visto ke trova 1 & prova manda 2 msgbox e tu invece vorresti ke ne mandasse 1 x tutti e 2 giusto o mi sbglio?
aaa