Buongiorno a tutti,
ho un problema.LA mia sub legge da 2 file.txt parte di alcune strighe , le confronta e le scrive in un Terzo file.txt.
Il problema é che il ciclo interno Do While (per scorrere tutto il file 2) viene eseguito e tutte le righe del file vengono lette , mentre il ciclo esterno (per scorrere tutto il file 1) legge solo la prima riga e poi esce.
Grazie in anticipo se qualcuno capisce e mi indica l'errore.Saluti.MArcello
Il codice é il seguente:
'reads from text file
Open Text1.Text For Input As #1
Open Text2.Text For Input As #2
'writes to text file
Open Text3.Text For Output As #3
Do While Not EOF(1)
comG = Mid(totsun1, 1, 10)
Do While Not EOF(2)
'lire donnes fichier 2
Line Input #2, totsun2
ComFo = Mid(totsun2, 1, 10)
If comG = ComFo Then ' confronto tra 2 linee
Print #3, totsun1, totsun2
End If
Loop
Loop ' Perché questo ciclo lo esegue solo una volta ??
Close #1
Close #2
Close #3
|