Bè, 1 erore è ke non hai specificato ke kosa è vir al punto:
[...]
Line Input #1, vir(numln3)
[...]
Credo che tu debba specificare vir, dicendo che è una variabile, una sub, ecc.
2) Quando fai ad esempio:
Open "C:\archivivirali" ...
devi dire l'estensione altrimenti non trova il file...
quindi devi fare tipo:
Open "C:\archivivirali.txt" ...
ci sono anke altri bug...
Adesso ho un pò modificato il tuo codice e funziona, l'unico problema è che controlla solo la prima riga (ma è risolvibile, adesso nn ho molto tempo a disposizione devo fare una cosa, quando sono libero se non ci sei riuscito vedo io, come si può fare...).
Cmq fai in C: 3 documenti di testo
Chiamati:
filesospetto.txt (con dentro scritto alla 1°riga ciao);
archivivirali.txt (con dentro scritto ciao sempre alla 1° riga);
virus.txt (con dentro scritto ciao alla 1°riga);
adesso se lancerai il prog. e premerai il pulsante command1 verra quel msgbox ke dice ke il file è infetta da un virus,
adesso cambia il contenuto di filesospetto.txt da ciao in una qualsiasi cosa, tipo:
cia
as
sddd
prova
virus
ecc.
quando rilancerai il prog. e premerai il pulsante stavolta non verrà il msgbox.
Ecco il codice:
Dim linea(1 To 600) As String
Dim arcvir(1 To 6000) As String
Dim numln As Integer
Dim numln2 As Integer
Dim numln3 As Integer
Dim x As Integer
Dim y As Integer
Dim filesospetto As String
Dim vir(1 To 6000) As String
Private Sub confronta()
Open "C:\filesospetto.txt" For Input As #1
Do
numln = numln + 1
Line Input #1, linea(numln)
Loop Until EOF(1) = True
Close #1
Open "C:\archivivirali.txt" For Input As #1
Do
numln2 = numln2 + 1
Line Input #1, arcvir(numln2)
Loop Until EOF(1) = True
Close #1
For x = 1 To numln2
If arcvir(x) = linea(1) Then
Open "C:\virus.txt" For Input As #1
Do
numln3 = numln3 + 1
Line Input #1, vir(numln3)
Loop Until EOF(1) = True
Close #1
For y = 1 To numln3
If Not linea(x) = vir(x) Then
Exit For
End If
Next y
MsgBox "warning virus found!!"
End If
Next x
End Sub
Private Sub Command1_Click()
confronta
End Sub
Se ci sono problemi postami
e dimmi se sei riuscito a far leggere al prog pure tutte le righe dopo e non solo la prima.
gius
