[VB]Recuperare i dati da un FlatFile per key

[Toeke]

Ho un Flat File la cui composizione puo' essere varia a seconda del programma dell'utente (nn gestito da me) che lo genera.
Ho la necessita di leggere questo file affinche' mi vada recuperare i dati del flat file per parole chiave.

Facciamo un esempio con la classica rubrica telefonica:

Ho un Flat_file di questo genere:
Nome:Pippo Cognome:Pluto
Indirizzo: Via-dei-gerani
Citta': Topolinia

Il mio progamma ha la necessita' di recuperare i dati presenti in questi file.
L'ordine delle voci puo' essere casuale, ma io so che tutto quello che vi sta dopo la parola chiave nome e' da associare alla mia variabile fino a che nn trova un blank.

Tnk a ki mi sa aiutare






Toeke

[Toeke]

UP!

[xegallo]

è un pochino complicato cmq io proverei a creare tante matrici quante sono le parole chiave
nome() as string
citta() as string
....

poi aprirei il file in binario e lo metterei in una stringa
alchè
con un ciclo i = 0 to len

cerco le parole chiavi

ichar = instr(iSpazio + 1,sFile,"Città
poi cerco uno spazio seguente ai 2 punti(attenzione se metti lo spazio dopo i 2punti toglilo con una replace prima)
iSpazio=instr(ichar +1,sfile,chr(32))
quindi fai
stemp = mid$(sfile,ichar + 1,(ispazio - ichar))
citta(x)=stemp

[xegallo]

il mio file di testo era c:\x.txt
Nome:Giovanni Città:Genova Cognome:Rossi Nome:Lucio Cognome:Verdi Città:Lucca

Option Explicit

Dim sFile As String


Private Sub Command1_Click()

Dim iChar(2) As Integer 'un indice per ogni chaive nel mio caso sono 3
Dim iSpazio As Integer
Dim stemp As String

For iChar(0) = 0 To Len(sFile)
   iChar(0) = InStr(iSpazio + 1, sFile, "Nome:")
   If iChar(0) = 0 Then Exit For
   iSpazio = InStr(iChar(0) + 1, sFile, " ")
   stemp = Mid(sFile, iChar(0) + Len("nome:"), (iSpazio - iChar(0)) - Len("nome:"))
   lstNome.AddItem stemp
Next
iSpazio = 0
For iChar(1) = 0 To Len(sFile)
   iChar(1) = InStr(iSpazio + 1, sFile, "Cognome:")
   If iChar(1) = 0 Then Exit For
   iSpazio = InStr(iChar(1) + 1, sFile, " ")
   stemp = Mid(sFile, iChar(1) + Len("cognome:"), (iSpazio - iChar(1)) - Len("cognome:"))
   lstCognome.AddItem stemp
Next
iSpazio = 0
For iChar(2) = 0 To Len(sFile)
   iChar(2) = InStr(iSpazio + 1, sFile, "Città:")
   If iChar(2) = 0 Then Exit For
   iSpazio = InStr(iChar(2) + 1, sFile, " ")
   stemp = Mid(sFile, iChar(2) + Len("città:"), (iSpazio - iChar(2)) - Len("città:"))
   lstCittà.AddItem stemp
Next

End Sub

Private Sub Form_Load()
Dim ifile As Integer
ifile = FreeFile
Open "c:\x.txt" For Binary As #ifile
   sFile = Space$(LOF(ifile))
   Get #ifile, , sFile
Close #ifile
End Sub

[Toeke]

Grazie Xegallo