[VB.NET]: Gestione contatti di MSN Messenger

[Napster]

raga, impazzendo cn sto programma sn arrivato ad una soluzione, c'è penso
ho provato a vedere se il programma mi scrive i contatti su un file e ho fatto

 Private Sub Messenger_OnSynchronizationCompleted(ByVal sender As Messenger, ByVal e As EventArgs) Handles messenger.SynchronizationCompleted
        For Each contact As Contact In messenger.GetListEnumerator(MSNList.ForwardList)
            Dim scrivi As StreamWriter = New StreamWriter("prova.txt")
            scrivi.Write(contact.Status().ToString() & " > " + contact.Name.ToString() + " {" + contact.Mail + "}" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" & vbCrLf)
            scrivi.Close()
                 Next
           End Sub

Il programma mi dà l'ultimo contatto dela lista...come faccio a far mettere tt i contatti??...
cmq successivamente cn il metodo ReadToEnd li metto tutti sulla ListBox...

[Sypher]

Originariamente inviato da Napster
raga, impazzendo cn sto programma sn arrivato ad una soluzione, c'è penso
ho provato a vedere se il programma mi scrive i contatti su un file e ho fatto

 Private Sub Messenger_OnSynchronizationCompleted(ByVal sender As Messenger, ByVal e As EventArgs) Handles messenger.SynchronizationCompleted
        For Each contact As Contact In messenger.GetListEnumerator(MSNList.ForwardList)
            Dim scrivi As StreamWriter = New StreamWriter("prova.txt")
            scrivi.Write(contact.Status().ToString() & " > " + contact.Name.ToString() + " {" + contact.Mail + "}" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" & vbCrLf)
            scrivi.Close()
                 Next
           End Sub

Il programma mi dà l'ultimo contatto dela lista...come faccio a far mettere tt i contatti??...
cmq successivamente cn il metodo ReadToEnd li metto tutti sulla ListBox...

devi solo mettere la creazione del file all'inizio della funzione...prima dei cicli e chiudere il file alla fine dei cicli

cmq come solzione fa schifo e non sono sicuro che funzionerà in questo modo...ma è anche vero che tentar non nuoce...non era forse meglio provare prima a metterli in un array di stringhe?

[Napster]

em senti nn sn molto pratico cn i cicli...potresti postarmi il codice, pls...

[Sypher]

 Private Sub Messenger_OnSynchronizationCompleted(ByVal sender As Messenger, ByVal e As EventArgs) Handles messenger.SynchronizationCompleted
        Dim scrivi As StreamWriter = New StreamWriter("prova.txt") 

        For Each contact As Contact In messenger.GetListEnumerator(MSNList.ForwardList)
                       scrivi.Write(contact.Status().ToString() & " > " + contact.Name.ToString() + " {" + contact.Mail + "}" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" & vbCrLf)
            
                 Next
           scrivi.Close() 
           End Sub

[Napster]

il programma funziona...però nn sò mettere tutto sulla ListBox, ho fatto

 Dim leggi As StreamReader = New StreamReader("prova.txt")
        Dim line As String = leggi.ReadToEnd
        CONTATTI.Items.Add(line)
        leggi.Close()

però me ne legge soltanto 1...

[Sypher]

Originariamente inviato da Napster
il programma funziona...però nn sò mettere tutto sulla ListBox, ho fatto

 Dim leggi As StreamReader = New StreamReader("prova.txt")
        Dim line As String = leggi.ReadToEnd
        CONTATTI.Items.Add(line)
        leggi.Close()

però me ne legge soltanto 1...

dovresti leggere riga per riga e aggiungere all listitem

[Napster]

e quindi km poxo fare??

[icecube_HT]

Originariamente inviato da Napster
e quindi km poxo fare??

h prvt tglr ttt l vcl nch l cdc, mgr cs' fnzn ?















































(hai provato a togliere tutte le vocali anche al codice, magari cosi' funziona !)

[Napster]

k vuoi dire cn qst?

[Sypher]

Originariamente inviato da icecube_HT
h prvt tglr ttt l vcl nch l cdc, mgr cs' fnzn ?
(hai provato a togliere tutte le vocali anche al codice, magari cosi' funziona !)