Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Confrontare 2 files
Forum - Visual Basic 6 - Confrontare 2 files

Avatar
meno93 (Normal User)
Rookie


Messaggi: 33
Iscritto: 08/01/2008

Segnala al moderatore
Postato alle 14:29
Mercoledì, 09/01/2008
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!!!!:):)

PM Quote
Avatar
Roberto VB (Member)
Expert


Messaggi: 419
Iscritto: 29/01/2007

Segnala al moderatore
Postato alle 14:35
Mercoledì, 09/01/2008
Puoi fare una cosa tipo:
Codice sorgente - presumibilmente Visual Basic 6

  1. if Textbox1.Text = Textbox2.Text then
  2.   beep
  3. end if


PM Quote
Avatar
meno93 (Normal User)
Rookie


Messaggi: 33
Iscritto: 08/01/2008

Segnala al moderatore
Postato alle 14:42
Mercoledì, 09/01/2008
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:
:)

PM Quote
Avatar
meno93 (Normal User)
Rookie


Messaggi: 33
Iscritto: 08/01/2008

Segnala al moderatore
Postato alle 14:46
Mercoledì, 09/01/2008
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

PM Quote
Avatar
albertking82 (Member)
Pro


Messaggi: 112
Iscritto: 14/08/2006

Segnala al moderatore
Postato alle 15:13
Mercoledì, 09/01/2008
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

PM Quote
Avatar
Roberto VB (Member)
Expert


Messaggi: 419
Iscritto: 29/01/2007

Segnala al moderatore
Postato alle 15:13
Mercoledì, 09/01/2008
Ecco un esempio che confronta lettera per lettera
Codice sorgente - presumibilmente VB.NET

  1. Dim i As Integer
  2. Dim inizio As Integer
  3. Dim fine As Integer
  4. i = 1
  5. inizio = 1
  6. fine = 1
  7. For i = 1 To Len(Text1.Text)
  8.     Text3.Text = Text3.Text & Mid(Text1.Text, inizio, fine)
  9.         If InStr(1, Text2.Text, Text3.Text) Then
  10.             MsgBox "OK"
  11.         Else
  12.            
  13.         End If
  14.     Text3.Text = ""
  15.     inizio = inizio + 1
  16. 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:

http://img253.imageshack.us/img253/1724/immaginelh3.jpg

Credo che si poteva utilizzare anche un ciclo Do... loop

PM Quote
Avatar
meno93 (Normal User)
Rookie


Messaggi: 33
Iscritto: 08/01/2008

Segnala al moderatore
Postato alle 15:26
Mercoledì, 09/01/2008
Grazie ad entrambi ho risolto..Siete mitici:k::k::k:

PM Quote