Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - Ricerca in file di testo
Forum - C# / VB.NET - Ricerca in file di testo

Avatar
mak76 (Normal User)
Newbie


Messaggi: 5
Iscritto: 06/04/2007

Segnala al moderatore
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.

PM Quote
Avatar
superchecco (Normal User)
Pro


Messaggi: 141
Iscritto: 20/01/2007

Segnala al moderatore
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

  1. Public Class Form4
  2.     Public c, n As String
  3.  
  4.     Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  5.         lsttrov.MultiColumn = True
  6.     End Sub
  7.  
  8.  
  9. 'bottone chiudi
  10.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  11.         Me.Close()
  12.     End Sub
  13.  
  14.  
  15.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  16.  
  17. 'apro il file
  18.         FileOpen(1, "nome.txt", OpenMode.Input, OpenAccess.Read)
  19.  
  20. 'eseguo una ricerca fino a EOF (end of file)
  21.         While Not EOF(1)
  22.             c = LineInput(1)
  23.             n = LineInput(1)
  24.             If c = txtcerca.Text Then
  25.                 lsttrov.Items.Add(c & vbTab & n)
  26.             End If
  27.         End While
  28.         FileClose(1)
  29.     End Sub
  30.  
  31.  
  32. 'si possono eseguire piu ricerche perche il
  33. 'fileopen e il fileclose sono dentro al button2
  34. 'e i valori sono aggiunti in coda nella listbox
  35. 'con la sub seguente viene svuotata
  36.  
  37.  
  38.     Private Sub btnvuota_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvuota.Click
  39.         lsttrov.Items.Clear()
  40.     End Sub
  41. End Class




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

PM Quote
Avatar
mak76 (Normal User)
Newbie


Messaggi: 5
Iscritto: 06/04/2007

Segnala al moderatore
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.

PM Quote