Il Totem (Admin)
Guru^2
Messaggi: 3635
Iscritto: 24/01/2006
|
Legge solo una riga perchè tu gli hai comunicato di leggere solo una riga: infatti la funzione ReadLine è presente solo una volta nell'assegnazione in-line della variabile b (di cui non si conosce il tipo, e perciò vengono effettuate operazioni di boxing a runtime che aumentano l'uso di memoria). Oltre a questo, non hai controllato che il file esista prima di procedere e ti sei dimenticato di chiuderlo.
Codice sorgente - presumibilmente VB.NET |
If Not IO. File. Exists(TextBox1. Text) Then 'Il file non esiste, lancia un errore Exit Sub End If Dim R As New IO.StreamReader(TextBox1.Text) Dim Line As String 'Fino alla fine del file While Not R.EndOfStream 'Legge una riga Line = R.ReadLine 'Controlla che contenga "del", senza tener conto 'delle maiuscole If Line.ToLower.Contains("del") Then 'Il file e' pericoloso: inutile procedere MessageBox.Show("File pericoloso!") Exit While End If End While 'Chiude il file R.Close()
|
P.S.: mi sa che Piero non ha tenuto conto che commenti in Visual Basic sono solo a linea singola...
Ultima modifica effettuata da Il Totem il 06/12/2007 alle 17:17 |