Oppure

Loading
09/01/08 13:29
meno93
come faccio a confrontare il testo di una textbox se contiene qualsiasi parola messa nella textbox2???e se qualche parola concide far scattare un evento nn so un beep o un msgbox???:):)xfavore rispondete!!!!:):)
aaa
09/01/08 13:35
Roberto VB
Puoi fare una cosa tipo:
if Textbox1.Text = Textbox2.Text then
  beep
end if
aaa
09/01/08 13:42
meno93
il codice che mi hai dato da il beep quando tutto il contenuto della textbox1 e uguale alla textbox2!!!io vorrei che dasse il beep quando una o piu parole della textbox2 fossero contenute nella textbox1..nn so se mi spiego...e come un filtraggio di certe parole!!!capito??sai aiutarmi??:k:
:)
aaa
09/01/08 13:46
meno93
Io vorrei realizzare un programma che filtra dei testi....magari che se ci fossero delle parolacce per esempio li cancellasse oppure vaceva qualcosa..le possibbili parolacce erano contenute in un file di testo che si apriva all'avvio...poi con un pulsante aprire il testo da controllare e con un altro fare il confronto?????ok???aiuto x favore
aaa
09/01/08 14:13
albertking82
Per filtrare delle stringhe puoi usare la funzione Mid oppure la funzione Instr.

es.

dim l as integer,i as integer
dim char as string
char="a"
l=len(text1.text)
for i = 1 to l
if char=mid(text1.text,i,1) then
beep
end if
next i
aaa
09/01/08 14:13
Roberto VB
Ecco un esempio che confronta lettera per lettera
Dim i As Integer
Dim inizio As Integer
Dim fine As Integer
i = 1
inizio = 1
fine = 1
For i = 1 To Len(Text1.Text)
    Text3.Text = Text3.Text & Mid(Text1.Text, inizio, fine)
        If InStr(1, Text2.Text, Text3.Text) Then
            MsgBox "OK"
        Else
            
        End If
    Text3.Text = ""
    inizio = inizio + 1
Next

Ho creato 3 textbox.
Nella prima c'è la stringa originale
Nella seconda la stringa inserita dall'utente
La terza serve per farti vedere come analizza la stringa.
Ti faccio vedere l'immagine del form:

img253.imageshack.us/img253/1724/…

Credo che si poteva utilizzare anche un ciclo Do... loop
aaa
09/01/08 14:26
meno93
Grazie ad entrambi ho risolto..Siete mitici:k::k::k:
aaa