[VB6] Leggere testo ed effettuare "parsing"

[maximum]

Devo leggere il seguente file TXT

[ELENCO_SOCIETA]
SOC_1=E\A\Societa1
SOC_2=S\A\Societa2
SOC_3=Y\A\Societa3
SOC_4=C\A\Societa4	
SOC_5=B\A\Societa5	
SOC_6=M\A\Societa6	
SOC_7=D\A\Societa7	
SOC_8=X\A\Societa8	
SOC_9=T\A\Societa9	
SOC_10=A\A\Societa10

Io devo leggere le 10 righe identificate da "SOC_" & Progressivo, recuperando le decodifiche (Societa1, Societa2, ecc...) e l'identificativo corrispondente (ovvero la lettera iniziale subito dopo l'uguale, per popolare una collection.

Qualcuno mi sa dare una mano? Io ci sto impazzendo da stamattina.
Da notare che la prima riga ([ELENCO_SOCIETA]) dev'essere saltata in fase di lettura file.

Umilmente, chiedo a voi un aiuto...

Grazie anticipatamente.

[GudFella]

    Open (strpath) For Input As #1
        Do While Not EOF(1)
            Line Input #1, riga
        Loop
    Close #1

così leggi tutto il file riga per riga
elabora poi ogni riga nel modo in cui ti serve

[maximum]

Scusa ma in strpath metto il percorso al file, solo che mi torna:

- Nome o Numero di File non valido.

Come devo procedere?

[maximum]

Chiedo scusa, ma io non sto leggendo un file.
Come se non avessi aperto.

[maximum]

Ho la seguente stringa:

[ELENCO_SOCIETA]
SOC_1=E\A\Societa1
SOC_2=S\A\Societa2
SOC_3=Y\A\Societa3
SOC_4=C\A\Societa4 
SOC_5=B\A\Societa5 
SOC_6=M\A\Societa6 
SOC_7=D\A\Societa7 
SOC_8=X\A\Societa8
SOC_9=T\A\Societa9 
SOC_10=A\A\Societa10

Devo prendere le decodifiche (Societa1, Societa2, ecc...) e l'iniziale societario (la prima lettera dopo l'uguale), come posso scrivere la lettura di tale stringa (tenendo contro che la prima riga non mi serve e che ci sono gli "a capo")???

Grazie per gli aiuti.

[alka]

Ho unito le discussioni che hai aperto, in quanto non credo sia opportuno aprirne tre che sono in fondo precisazioni dello stesso argomento: la dispersione è eccessiva.

Ciao!

[Luciano79]

Originariamente inviato da maximum
Scusa ma in strpath metto il percorso al file, solo che mi torna:

- Nome o Numero di File non valido.

Come devo procedere?

strpath in realtà deve contenere Percorso & "\" & NomeFile

Open (strpath) For Input As #1
Do While Not EOF(1)
    Line Input #1, riga
    If InStr(Riga, "=") > 0 Then
        MsgBox ("La lettera dopo l'uguale è " & Mid(Riga, InStr(1, Riga, "=") + 1, 1)
        MsgBox ("La decodifica è " & Mid(Riga, InstrRev(Riga, "\") + 1)
    EndIf
Loop

Close #1

[maximum]

Ragazzi, non devo leggere un file ma una stringa di questo tipo:

SOC_1=E\A\Societa1#SOC_2=S\A\Societa2#SOC_3=Y\A\So cieta3 SEC.#SOC_4=C\A\Societa4 #SOC_5=B\A\Societa5 #SOC_6=M\A\Societa6 #SOC_7=D\A\Societa7 #SOC_8=X\A\Societa8 #SOC_9=T\A\Societa9 #SOC_10=A\A\Societa10#

Ogni "SOC_" & progressivo è separata dal simbolo "#" devo recuperae le varie decodifiche (Societa1, Societa2, ecc...) e le iniziali subito dopo l'uguale.

Qualche utility da sfruttare?

[Luciano79]

Originariamente inviato da maximum
Ragazzi, non devo leggere un file ma una stringa di questo tipo:

SOC_1=E\A\Societa1#SOC_2=S\A\Societa2#SOC_3=Y\A\So cieta3 SEC.#SOC_4=C\A\Societa4 #SOC_5=B\A\Societa5 #SOC_6=M\A\Societa6 #SOC_7=D\A\Societa7 #SOC_8=X\A\Societa8 #SOC_9=T\A\Societa9 #SOC_10=A\A\Societa10#

Ogni "SOC_" & progressivo è separata dal simbolo "#" devo recuperae le varie decodifiche (Societa1, Societa2, ecc...) e le iniziali subito dopo l'uguale.

Qualche utility da sfruttare?

Dim Stringa As String
Dim ElencoSocieta() As String
Dim SingolaSocieta As String

Stringa = "SOC_1=E\A\Societa1#SOC_2=S\A\Societa2#SOC_3=Y\A\Societa3 SEC.#SOC_4=C\A\Societa4#SOC_5=B\A\Societa5  #SOC_6=M\A\Societa6  #SOC_7=D\A\Societa7  #SOC_8=X\A\Societa8     #SOC_9=T\A\Societa9    #SOC_10=A\A\Societa10#"

ElencoSocieta = Split(Stringa, "#")

For Each SingolaSocieta In ElencoSocieta
    If InStr(SingolaSocieta, "=") > 0 Then
        MsgBox ("La lettera dopo l'uguale è " & Mid(Trim(SingolaSocieta), InStr(1, Trim(SingolaSocieta), "=") + 1, 1)
        MsgBox ("La decodifica è " & Mid(Trim(SingolaSocieta), InstrRev(Trim(SingolaSocieta), "\") + 1)
    EndIf
Next

[maximum]

Provo subito.

[EDIT]: funziona, grazie!