C# / VB.NET - Ricerca in file di testo

Forum - C# / VB.NET - Ricerca in file di testo

mak76 (Normal User)
Newbie

Messaggi: 5
Iscritto: 06/04/2007

Postato alle 8:12
Venerdì, 06/04/2007

Buongiorno, scusate l'ignoranza ma sono un newbie con vb.net. Ho il seguente problema. Dovrei riuscire ad aprire un file di testo (e fino a qui tutto ok) che è composto da molte stringhe le quali iniziano tutte per un numero di 4 cifre. Io dovrei inserire detto numero in un'imput box (gia fatto) e ricercare tutte le stringhe che iniziano con questo valore, estrapolarle e creare quindi un nuovo file di testo che contenga solo le stringhe con il codice cercato. Un grazie in anticipo a chi vorrà aiutarmi.

superchecco (Normal User)
Pro

Messaggi: 141
Iscritto: 20/01/2007

Postato alle 10:45
Venerdì, 06/04/2007

ciao! io faccio in questo modo che secondo me è il piu facile e flessibile...
allora premettendo di aver riempito prima un file di testo (nomi.txt) ora ricerco i valori.
è importante che esista un solo valore per ogni riga..
io ho 2 campi record (nome e cognome)
in questa form c è una listbox (lsttrov), una textbox per inseirire il valore da ricercare(txtcerca) e un bottone "Vai" (Button2)

Codice sorgente - presumibilmente VB.NET

Public Class Form4
    Public c, n As String
 
    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lsttrov.MultiColumn = True
    End Sub
 
 
'bottone chiudi
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
'apro il file
        FileOpen(1, "nome.txt", OpenMode.Input, OpenAccess.Read)
 
'eseguo una ricerca fino a EOF (end of file)
        While Not EOF(1)
            c = LineInput(1)
            n = LineInput(1)
            If c = txtcerca.Text Then
                lsttrov.Items.Add(c & vbTab & n)
            End If
        End While
        FileClose(1)
    End Sub
 
 
'si possono eseguire piu ricerche perche il 
'fileopen e il fileclose sono dentro al button2
'e i valori sono aggiunti in coda nella listbox
'con la sub seguente viene svuotata
 
 
    Private Sub btnvuota_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvuota.Click
        lsttrov.Items.Clear()
    End Sub
End Class

spero ti possa essere utile..se hai bisogno chiedi pure o manda anche una mail! :k:

mak76 (Normal User)
Newbie

Messaggi: 5
Iscritto: 06/04/2007

Postato alle 11:48
Venerdì, 06/04/2007

ti ringrazio per l'aiuto, ho fatto tutto come dici tu ma ricevo un errore, ora ti invio una mail. Grazie.