Discussion :

[olidefoer]

Bonjour,

Je cherche le code correspondant à l'utilisation suivante :

Dans un fichier txt, je veux récupérer et affecter chaque ligne à une textbox différente (soit ligne1 = textbox1 ; ligne2 = textbox2...)

A la manière d'un streamreader sur Visual Basic.

Le code que j'ai trouvé est le 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 filenum  As Integer, contents As String, filename As String
 filenum = FreeFile
 Open Fichier_txt For Input As #filenum
 
    Do Until EOF(filenum)
        Line Input #filenum, contents
 
        Dim num As String
        num = contents
          Textbox1 = num
 
        Debug.Print num
    Loop
 
Close #filenum

Quelqu'un a-t-il une solution ?

Merci pour votre aide !

[Theze]

Bonsoir,

Un début de piste, les noms des TextBox doivent commencer par "TextBox" et suivis du numéro ordinal, exemple TextBox1, TextBox2, etc... Le nombre de lignes doit correspondre au nombre de texbox. A mettre dans le module de la Form :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Private Sub UserForm_Initialize()
 
    LireValeurs
 
End Sub
 
Sub LireValeurs()
 
    Dim Tbl() As Controls
    Dim Ctrl As Control
    Dim Index As Integer
    Dim I As Integer
    Dim Ligne As String
 
    'si erreur
    On Error GoTo FIN
 
    Index = FreeFile
 
    'ouvre le fichier (adapter le chemin)
    Open "D:\Texte.txt" For Input As #Index
 
    Do While Not EOF(Index)
        Input #Index, Ligne
        I = I + 1
        'pour l'exemple, les valeurs doivent être dans l'ordre ordinal des textbox
        Me.Controls("TextBox" & I).Value = Ligne
    Loop
 
    Close #Index
 
    Erase Tbl
 
    Exit Sub
 
FIN:
 
    MsgBox "Vérifier si le controle TextBox" & I & " existe !"
 
End Sub

Hervé.

[olidefoer]

Bonjour,

Ca ne fonctionne pas...

Si je remplace le chemin "C:\..." par la variable qui modifie x.pdf en x.txt, ça me retourne une chaîne vide.

[Theze]

Bonjour,

Je ne comprends pas, que vient faire le .pdf ici ? Tu parles de fichier texte donc de .txt et le fait de renommer un pdf en txt n'en fait pas pour autant un fichier texte !
Dans le fichier texte, les valeurs de chaque textbox doivent se trouver sur une ligne, exemple :
Valeur 1
Valeur 2
Valeur 3

Valeur 1 pour le TextBox1, Valeur 2 pour le TextBox2, etc...

Hervé.

[olidefoer]

Au temps pour moi !

Dans mon application, je dois charger deux fichiers : pdf et txt.

Sachant que le PDF contient un cv et que le fichier txt du même nom que le pdf des informations générales.

Par contre, je corrige : ça fonctionne parfaitement !

J'ai simplement inséré le code dans une procédure button_click.

Merci pour ton aide.