[VB.NET] Leggere testo da file .txt in RESOURCE

[Catez]

Ciao a tutti... vi spiego il problema, ho importato nelle resource del mio programma un file Lista.txt, come faccio a leggerne il testo? Con il file situato ad esempio sul desktop riesco a farlo, ma per questioni di comodità dovrei fare in modo che l'utente non debba avere 2 file (il programma e il file di testo) ma solo il programma.
Dunque, ho provato in questo modo:

  Dim objReader As New StreamReader(My.Resource.Lista)
            Dim sLine As String = ""
            Dim arrText As New ArrayList()

            Do
                sLine = objReader.ReadLine()
                If Not sLine Is Nothing Then
                    arrText.Add(sLine)
                End If
            Loop Until sLine Is Nothing
            objReader.Close()

            For Each sLine In arrText
            If sLine.Contains(TextBox1.Text) Then
                Dim a() As String = Split(sLine, ";")
                TextBox2.Text = a(6)
            End If
            Next

Ora, lasciamo perdere il resto del codice, mi da errore in

Dim objReader As New StreamReader(My.Resource.Lista)

Non mi da invece errore se metto il file lista.txt sul desketop ed al posto di My.Resource.Lista metto il percorso del file.. come posso fare?

[eziogsv]

Originariamente inviato da Catez
Ciao a tutti... vi spiego il problema, ho importato nelle resource del mio programma un file Lista.txt, come faccio a leggerne il testo?

Non ho capito perché tutto quel codice.

Dim Testo as String = My.Resources.Lista

E poi della variabile "Testo" ne fai quello che vuoi.

[Catez]

Si il resto del codice è per un lavoro che devo fare con lista.txt. Il problema non si è risolto...praticamente nel file Lista.txt ho qualcosa del genere:

028001;ABANO TERME;PD;VEN;049;35031;A001;19726;HTTP://WWW.COMUNI-ITALIANI.IT/028/001/
098001;ABBADIA CERRETO;LO;LOM;0371;26834;A004;293;HTTP://WWW.COMUNI-ITALIANI.IT/098/001/
097001;ABBADIA LARIANA;LC;LOM;0341;23821;A005;3305;HTTP://WWW.COMUNI-ITALIANI.IT/097/001/
052001;ABBADIA SAN SALVATORE;SI;TOS;0577;53021;A006;6722;HTTP://WWW.COMUNI-ITALIANI.IT/052/001/
095001;ABBASANTA;OR;SAR;0785;09071;A007;2872;HTTP://WWW.COMUNI-ITALIANI.IT/095/001/
068001;ABBATEGGIO;PE;ABR;085;65020;A008;443;HTTP://WWW.COMUNI-ITALIANI.IT/068/001/
015002;ABBIATEGRASSO;MI;LOM;02;20081;A010;32035;HTTP://WWW.COMUNI-ITALIANI.IT/015/002/
047001;ABETONE;PT;TOS;0573;51021;A012;697;HTTP://WWW.COMUNI-ITALIANI.IT/047/001/
076001;ABRIOLA;PZ;BAS;0971;85010;A013;1599;HTTP://WWW.COMUNI-ITALIANI.IT/076/001/
088001;ACATE;RG;SIC;0932;97011;A014;9793;HTTP://WWW.COMUNI-ITALIANI.IT/088/001/
071001;ACCADIA;FG;PUG;0881;71021;A015;2481;HTTP://WWW.COMUNI-ITALIANI.IT/071/001/
004001;ACCEGLIO;CN;PIE;0171;12021;A016;177;HTTP://WWW.COMUNI-ITALIANI.IT/004/001/

Io devo leggere questo contenuto (che è molto più lungo) ogni riga, poi, se la riga contiene il testo contenuto nella TextBox1, splitto la riga ad ogni ";" e prendo ad esempio la sigla della provincia... come potrei fare?

[oregon]

Ma hai letto il testo come ti è stato detto ?

[Catez]

Ho letto ho letto, praticamente commettevo l'errore di usare lo streamreader, che è inutile :/ ho risolto così:

   Public Sub CP()
        Dim lista As String = My.Resources.Lista 'mette il testo del file lista nella variabile lista.
        Dim matrice_riga() As String = lista.Split(vbCrLf) 'splitta tutto il testo "lista" ad ogni "a capo".
        For Each riga In matrice_riga
            If riga.Contains(TextCP.Text) Then 'ad ogni riga che splitta legge se è presente il comune inserito.
                Dim cp() As String = Split(riga, ";") ' se è così splitta la riga ad ogni ";".
                TextCodFis.Text &= cp(6) 'Prende la sesta parola splittata, ovvero il codice provincia.
            Else
                MsgBox("Comune non trovato") ' se il non trova la riga con il comune inserito restituisce un errore.
                Exit Sub
            End If
        Next

    End Sub

Grazie a tutti!

[oregon]

Originariamente inviato da Catez
Ho letto ho letto, praticamente commettevo l'errore di usare lo streamreader, che è inutile

Quindi non avevi letto bene perché ti era stato detto

Non ho capito perché tutto quel codice

Comunque importante che hai risolto ...