[VB6] Leggere testo ed effettuare "parsing"

[maximum]

[EDIT]: risolto da me. Grazie lo stesso!

[alka]

Originariamente inviato da maximum
[EDIT]: risolto da me. Grazie lo stesso!

Scusa, se modifichi ciò che scrivi in continuazione, la discussione diventa un assembramento di "EDIT: risolto", "EDIT: risolto", "EDIT: risolto" e così via.

La funzionalità di editing non serve per annullare ogni precisazione fatta in una discussione, ma per correggere eventualmente un post in determinati punti.

Invece di nascondere la domanda originale, se hai posto un quesito e ne hai trovato autonomamente la soluzione, allora riporta questa; in caso contrario, attendi qualche minuto prima di scrivere una domanda oppure scrivi solamente quando non riesci a risolvere il problema, evitando così post inutili.

Ciao!

[maximum]

Sorry, ho risolto così:

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), InStr(1, Trim(SingolaSocieta), "=") + 1, Len(SingolaSocieta)))
    EndIf
Next