Certo!, è fondamentale capire i passaggi
allora ti spiego riga x riga:
Do
Inizia il ciclo, spero che tu sappia almeno i cicli do Loop xD
----------------------
i = i + 1
incrementa i di 1
----------------------
Line Input #1, parole(i)
Nell'array parole mette la linea (1, 2, 3, ecc...) cioè mette la linea 1 in parole(1), la linea 2 in parole(2), tutto questo regolato dalla variabile i (non so se sn stato chiaro...)
-----------------------
Loop Until EOF(1) = True
EOF = End Of File quindi quando arriva alla fine del file termina il ciclo
-----------------------
Close #1
Chiude il documento
Allora per quanto riguarda For Input As #1 la "traduzione" in italiano è più o meno:
apri "ciccio.txt" in input come 1
forse la traduzione come 1 l'ho sbagliata, ma nn saprei come dirlo :P
adesso ti spiego, allora input dice al programma di aprire il documento NON per scriverci dentro, ma per LEGGERLO. Invece il numero #1 è un numero diciamo assegnato al file, infatti se apri più documenti insieme come fai?
si fa così:
open "ciccio.txt" for input as #1
open "ciccia.txt" for input as
#2
...
quindi si incrementa il numero se avevi aperto un documento in precedenza e non l'avevi chiudo con il close #numero corrispondente del file da chiudere
Per ricercare le parole nell'array ecco una funzione con un esempio per applicarla (poi te la devi un pò adattare):
Codice sorgente - presumibilmente VB.NET |
Dim ciao(2) As String Private Sub Command1_Click() ciao(0) = "hi = ciao" ciao(1) = "lol = lol" ciao(2) = "asd = asd" MsgBox CercaInArray(ciao(), "asd") End Sub Private Function CercaInArray(ByRef nArray() As String, parola As String) Dim x As Long For x = 1 To UBound(nArray) If InStr(1, nArray(x), parola) > 0 Then CercaInArray = nArray(x) Exit Function End If Next x End Function
|