chargé un txt dans une listbox

Question

Bonsoir, voila je cherche a chargé un document texte multilignes dans une listbox
j'ai ça comme code mais apparemment ça ne marche pas


 Dim sFile As String
    

    With dlgCommonDialog
        .DialogTitle = "Open"
        .CancelError = False
        'ToDo: set the flags and attributes of the common dialog control
        .Filter = "All txt (*.txt)|*.TXT"
        .ShowOpen
        If Len(.FileName) = 0 Then
            Exit Sub
        End If
        sFile = .FileName
    End With
    List1.List = sFile

quelqu'un a une idée, List1.List = sFile est pas supporté
merci d'avance

cs_Galain · Answer

Salut mySQL15


    Dim f As Integer, ligne As String
    Dim sFile As String


    With dlgCommonDialog
        .DialogTitle = "Open"
        .CancelError = False
        'ToDo: set the flags and attributes of the common dialog control
        .Filter = "All txt (*.txt)|*.TXT"
        .ShowOpen
        If Len(.FileName) = 0 Then
            Exit Sub
        End If
        sFile = .FileName
    End With
    f% = FreeFile
    Open sFile For Input As #f%
    While Not EOF(f%)
        Line Input #f%, ligne$
        List1.AddItem (ligne$)
    Wend
    close #f%


Il faut ouvrir le fichier en lecture et lire chaque ligne du fichier pour la mettre dans la listbox

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

Mayzz · Answer

Et bien entendu placer un contrôle CommonDialog sur ton formulaire et rennomer celui-ci : dlgCommonDialog

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

cs_Galain · Answer

Salut Mayzz

Evidemment mais mySQL15 l'avait déjà inclus dans son propre code

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

Mayzz · Answer

J'ai juste apporté cette précision car il n'a pas l'air d' en comprendre le fonctionnement. Et pas de déclaration de la CommonDialog non plus. Ce code étant commenté :

'ToDo: set the flags and attributes of the common dialog control 

J'en déduis qu'il provient d'un copié/collé ^^

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

Chargé un txt dans une listbox

4 réponses

Votre réponse

Discussions similaires