Visual Basic 6 - Leggere un file e agire di conseguenza

nel cmd button scrivi due volte il loop la prima volta lascia text1.text e la seconda volta invece metti text2.text...
non ho provato se funziona cosi... prova tu
ciao.

Non ho mai usato il Loop... Non è che puoi dirmi come posso usarlo?

Scusa la mia ignoranza....


@BytE-FucK: LoL 2 commandbutton... Non ci avevo pensato.. Poi provo.. grazie del consiglio!


Grazie dell'aiuto!!

Lui per loop intendeva il While-Wend che hai usato

Io intendevo il loop(il ciclo) del cmd button il for...next, nel cmd button mettine due uguali solo che ne secondo metti text2.text al posto di text1.text, non so se mi sono spiegato

Private Sub Command1_Click()
For j = 0 To i
If InStr(1, c(j), Text1.Text, vbTextCompare) Then
MsgBox "carattere 1 trovato nella riga " & j + 1
End If

Next j
For j = 0 To i
If InStr(1, c(j), Text2.Text, vbTextCompare) Then
MsgBox "carattere 1 trovato nella riga " & j + 1
End If

Next j

End Sub

Ciao.

Beh si in effetti è giusto e piu comodo dei 2 cmd

Credo comunque che questa soluzione non vada bene per il login...
se mi dici come è strutturato il file di testo magari so darti una soluzione migliore.
Perchè cosi se per esempio la parola da cercare è "prova" e nel file trovi "prova1" la funzione instr avra successo perchè "prova" è contenuto in "prova1" .
Non so se mi sono spiegato.
Se invece il tuo file è strutturato diversamente tipo hai in una riga:
utente1 password1
utente2 password2
utenten passwordn

cioè nella prima colonna hai gli utenti e nella seconda hai le rispettive password possiamo usare un metodo migliore di quello trovato prima.
Io ti ho dato un consiglio poi vedi tu...
Ciao

Il File Di Testo è strutturato così:


User: Dj_Max
Password: CHUPA

ora nelle txtbox che ho nel form metto user e password...


il programma deve verificare
se l'user e la password sono uguali a DJ_Max e a CHUPA

Ecco... Spero abbiate capito..

Cmq Veramente grazie!!!

Io credo che il programma andrebbe riscritto.
Prima di tutto si dovrebbe strutturare il file di testo in questo modo:
utente password
utente1 password1
Sj_Max CHUPA
...

cosi è + sicuro il login
e scrivi nel codice del programma questo, cancellando quello scritto prima:

Dim c(2, 100) As String
Dim i As Integer

Private Sub Command1_Click()
Dim f As Integer
Dim ver As Boolean
ver = False
For f = 0 To 100
If Text1.Text = c(0, f) And Text2.Text = c(1, f) Then
MsgBox "login effettuato"
ver = True
Exit For
End If
Next f
If ver = False Then
MsgBox ("login fallito")
End If
End Sub

Private Sub Form_Load()
i = -1
Dim a As String
Dim d() As String

Open "percorsofile" For Input As 1
While Not EOF(1)
i = i + 1
Line Input #1, a
If a <> "" Then
d = Split(a, " ")
c(0, i) = d(0)
c(1, i) = d(1)
End If
Wend
End Sub

ATTENZIONE questo programma funziona solo se il file di testo è strutturato come ho scritto prima cioè sulla colonna di sinistra ci sono tutti gli utenti e nella colonna di destra ci sono le rispettive password.
Comunque questo è solo un consiglio poi decidi tu come fare...
Ciao.