visual_b
18-07-2005, 16:26
C'è un comando che mi permette di sapere quanti dati di un tipo ci sono in un file?
Qualcosa di equivalente a questo, ma in un solo comando, o comunque una soluzione più inteligente:
dim i,numFile as integer
dim frase as string
numFile = FreeFile
On Error GoTo basta
Open App.Path & "\pippo.txt" For Output As numFile
Do While Not EOF(numFile)
Get numFile, ,frase
i=i+1
Loop
msgbox "frasi nel file= "& i
basta:
Close
Qualcosa di equivalente a questo, ma in un solo comando, o comunque una soluzione più inteligente:
dim i,numFile as integer
dim frase as string
numFile = FreeFile
On Error GoTo basta
Open App.Path & "\pippo.txt" For Output As numFile
Do While Not EOF(numFile)
Get numFile, ,frase
i=i+1
Loop
msgbox "frasi nel file= "& i
basta:
Close