14/10/07 15:36
Ciao a tutti ragazzi...
Ho bisogno di sapere come leggere un file txt ed agire in base a quello che c'è scritto al suo interno.
per esempio ho un txt nel quale sta scritto:
1
come gli dico al progr di farsì che se c'è scritto 1 deve compiere una determinata azione?
Punto secondo:
e se invece di uno ci fosse scritto:
ciao: 1
e io gli volessi fare leggere solo 1.. fregandosene di "ciao: " come si fa?
Spero sappiate rispondermi..
Grazie 1000!!!
14/10/07 15:47
LuigiBiasi
prova a salvare in un array non so... tutte le righe del file.
Dopo verifica se in ogni riga c'è il carattere 1 o altro...
dim c(100) as string
dim i,j as integer
i=-1
Open "percorsofile" for input access read as 1
while not eof(1)
i=i+1
line input #1,c(i)
wend
ora verifica se ci sono i caratteri che ti servono...
For j = 0 To i
If InStr(1, c(j), "1", vbTextCompare) Then
MsgBox "carattere 1 trovato nella riga " & j+1
End If
Next j
Ciao.
Ultima modifica effettuata da LuigiBiasi 14/10/07 15:55
aaa
14/10/07 18:55
LoL Non ci ho capito molto...
Vedi il fatto è che... non è solo 1 lettera che dovrei usare..
Mio papo, ha usato un'altro metodo.. che però non ricordo..
una cosa che mi ricordo.. è che diceva
open "percorsofile" for input as#1
e poi mi ricordo questa parola:
Myrecord
Cos'è!?
grazie per avere risposto!!!!
14/10/07 19:41
BytE-FucK
MMh mai sentita,forse l'avrà "creata" lui...
Cmq,per il fatto di vedere cosa c'è scritto a parte 1,la stringa è sempre la stessa?
aaa
15/10/07 11:30
LuigiBiasi
Nel bottone scrivi cosi...
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
End Sub
nella Form_Load scrivi...
Private Sub Form_Load()
i = -1
Open "percorsofile" For Input Access Read As 1
While Not EOF(1)
i = i + 1
Line Input #1, c(i)
Wend
End Sub
in globale
Dim c(100) As String
Dim i, j As Integer
Adesso non so come è strutturato il tuo programma... questo è un esempio per vedere ne nel file c'è il valore che è nella text1, ora adattalo al tuo programma.
Ciao
Ultima modifica effettuata da LuigiBiasi 15/10/07 11:32
aaa