cercare valori in un file di testo

Ciao a tutti avrei la neccessità di recuperare dei valori presenti in un file di testo. Esempio ho un file con i codici dei comuni italiani tipo questo:

A087;AGRATE BRIANZA;MB;;;;
A088;AGRATE CONTURBIA;NO;;;;
A089;AGRIGENTO;AG;;;;
A090;AGRONE;TN;;;;
A091;AGROPOLI;SA;;;;
A092;AGUGLIANO;AN;;;;
A093;AGUGLIARO;VI;;;;
A094;AIAS;AO;;;;
A095;AIBA;GO;;;;


vorrei che passando esempio il codice A089 mi venisse restituito AGRIGENTO o AG

è fattibile con VB6 ?


per la ricerca sto usando questo :

Dim Riga As String
        Open "C:\DB.csv" For Input As 1
      
        
        Do While Not EOF(1)
            Line Input #1, Riga
            If InStr(Riga, Text1.Text) Then
                MsgBox "RECORD TROVATO"
                Else
                MsgBox "NESSUN RECORD PRESENTE"
                Exit Do
                
            End If
          
        Loop
        Close 1
End Sub

ma legge solo la prima riga, dovrei scorrere tutto il file e una volta trovato il valore, dovrei navigare la riga tramite i separatori... qualche aiuto ?

Beh, rifletti ... se non lo trovi al primo giro ed esci dal ciclo con l'exit do, è ovvio che non arriverai mai al secondo ...

Quindi, rivedi la logica con cui fai la ricerca. Se trovi il dato, imposta un flag che ti dica che il dato è stato trovato e usa la Exit Do; se non trovi il dato, continua il ciclo.
All'uscita del ciclo, il flag ti dirà se il dato è stato trovato o no.

Ciao
per recuperare i vari valori della separati da ;
cerca informazioni sulla funzione Split del VB6 [la funzione crea un array di elementi partendo da una stringa con separatori noti al suo interno].

Grazie Antonio sono riuscito creandomi un form con una text box, un bottone di ricerca e una label con il risultato, all'evento click del command button ho dato:

Dim s1 As String

Open "c:\DB.csv" For Input As #1

Do While Not EOF(1)

Line Input #1, s1

If InStr(1, s1, Text1.Text) Then MsgBox ("Trovato" & s1): Close #1: Exit Sub
Label6.Caption = s1
Loop

MsgBox ("Non trovato")

Close #1

Funziona il valore trovato lo restituisce alla label6.caption in visualizzazione sul form, ora però ho neccessita di recuperare della stringa intera solo i valori dopo il separatore che è il ;

Leggi la risposta precedente e usa la Split

Ciao Zax78,

mi permetto un appunto;

quando apri un file invece di usare un numero fisso (#1) è opportuno usare Freefile

https://docs.microsoft.com/en-us/off...efile-function

Scusatemi se intervengo; ho una routine che forse potrebbe esservi utile:

Sub CercoSTRINGAnelFIle()
    Dim a As String
    Dim linea As String
    Dim linea2 As String
    
    a = InputBox("Scrivi la riga da cercare")
    
    Open ("C:\Nazioni.txt") For Input As #1
        Do
            Input #1, linea
            linea2 = linea2 & linea
        Loop Until EOF(1) = True
        If InStr(linea2, a) Then
            MsgBox "la stringa " & a & " è presente nel file Nazioni"
        Else
            MsgBox "La stringa non è presente"
        End If
    Close #1
End Sub