Discussion :

[thomas12]

Bonjour à tous,

J'ai réussi à ouvrir un fichier texte fourni par un prof contenant des noms de villes et leurs populations respectives grâce au code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim VP As VILPOP
        Dim I, NB As Integer
        I = 1
        NB = FileLen("C:\Documents and Settings\iga\Bureau\Communes.txt") / 30
        MsgBox(CStr(NB))
        FileOpen(3, "C:\Documents and Settings\iga\Bureau\Communes.txt", OpenMode.Random, , , 30)
        Do While I <= 3
            FileGet(3, VP, I)
            TVP(I) = VP
            MsgBox(VP.Nom)
            MsgBox(VP.Pop)
            I = I + 1
        Loop
        NBVP = 3
    End Sub

L'ennui c'est que nous devons créer propre fichier texte et j'ignore comment le prof s'y est pris.

Voici le fichier texte en question, tiré du Bloc-notes:

Amberieu-en-Bugey Ú( Bellegarde-sur-Valserine ‘+ Bourg-en-Bresse * Oyonnax C] Chateau-Thierry Ë;


Quelqu'un sait il comment créer un tel fichier texte? Je rappelle que le fichier contient uniquement des noms de villes ainsi que leurs populations.

Merci d'avance pour vos réponses

[Pol63]

ca ressemble à vb6 ton code
si tu fais du vb6, il y a un forum pour vb6
si tu fais ca sur du vb.net, je te conseille system.io.file.readalltext (et writrealltext pour écrire)

[thomas12]

C'est bien du vb.net