Bouton de navigation vb6 à partir d'un fichier txt

bayadkarim Messages postés 30 Statut Membre -  
Polux31 Messages postés 7219 Statut Membre -
Bonjour,

j'ai un fichier .txt qui contient des données clients et je voudrais créer des bouton suivant et précédent pour afficher le contenu de chaque ligne de ce fichier dans une textbox ?

merci d'avance
A voir également:

7 réponses

Réponse 1 / 7
Polux31 Messages postés 7219 Statut Membre 1 204
 
Bonjour,

je voudrais créer des bouton suivant et précédent
Ça tu peux le faire, sans notre aide.

afficher le contenu de chaque ligne de ce fichier dans une textbox
Quelle partie du code te pose un problème ?
0
Réponse 2 / 7
bayadkarim Messages postés 30 Statut Membre
 
Bonjour,
Je suis débutant en vb et je ne le savais pas comment je dois le faire est-ce que tu peux m'aide stp
0
Réponse 3 / 7
Polux31 Messages postés 7219 Statut Membre 1 204
 
Là c'est plus de l'aide ... c'est plutôt "fait le pour moi"

Ca ne fonctionne pas comme ça. On veut bien t'aider, te corriger, te donner des pistes, mais pour cela il faut que tu fasses un minimum d'effort de ton coté.

Si tu ne sais pas lire un fichier .txt, tu as un tuto ici
0
Réponse 4 / 7
bayadkarim Messages postés 30 Statut Membre
 
je suis tout à fait d'accord avec vous. voici ce que je viens de faire 

   Dim t1 As String
    Dim t2 As String
    Dim t3 As String
    Dim t4 As String
    Dim t5 As String
    Dim strLigne As String
    Dim t6 As String
    Dim t7 As String
    Dim ss
    
    
    'traitement du fichier
    Open txtSrc For Input As #1          ' Ouvre le fichier en lecture
 
    Do While Not EOF(1)                  ' jusqu'à la fin du fichier.
 
    Line Input #1, strLigne

    t1 = Mid(strLigne, 385, 7) 'substraction
    t2 = Mid(strLigne, 395, 7) 'substraction
    t3 = Mid(strLigne, 382, 1) 'substraction
    t4 = Mid(strLigne, 392, 1) 'substraction
    t5 = Mid(strLigne, 47, 24) 'substraction
    t6 = Mid(strLigne, 15, 8)  'substraction
    t7 = Mid(strLigne, 23, 8)  'substraction
    
      
    Text1.Text=t1
    Text2.Text=t2
    Text3.Text=t3
    Text4.Text=t4
    Text5.Text=t5
    Text6.Text=t6
    Text7.Text=t7

        Loop
'fermeture de fichier
        Close #1

    End Sub


mais ça marche pas il affiche juste la dernier ligne :(
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
Polux31 Messages postés 7219 Statut Membre 1 204
 
Quelle structure a ton fichier .txt ?
Peux-tu mettre ici une ou deux lignes de ton fichier .txt, stp ?

«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau
0
Réponse 6 / 7
bayadkarim Messages postés 30 Statut Membre
 
voici un exemple :
70777777777777777777777777ACH60547895322559011010000001215555526 CEpppE azerty Aa aaaaaaa erTTAza 00 00 07 24 20 AGADIR G1 paris de france NA ONAR 04CTBCyyyy88888888C0890741
0
Réponse 7 / 7
Polux31 Messages postés 7219 Statut Membre 1 204
 
Ouais pas facile ...

Il faut créer un type de variable qui va contenir chaque ligne de ton fichier découpée. On déclare ensuite cette nouvelle variable comme un tableau :
Code à mettre en entête de module. Par exemple "Module1" 
Option Explicit

'Création d'un type de variable structuré
Private Type monTableau
    t1 As String
    t2 As String
    t3 As String
    t4 As String
    t5 As String
    t6 As String
    t7 As String
End Type

'Déclaration d'un tableau avec la structure
Public monTab() As monTableau
Public ind as long     'Index du tableau monTab()


Ensuite on va faire une procédure qui lit le fichier .txt et remplit le tableau 
Sub LireFichierTxt(ByVal txtSrc As String)
Dim fp As Integer        'Pointeur du fichier
Dim strLigne As String   'Conteneur d'une ligne du fichier

     fp = Freefile     'Attribut le premier pointeur libre
     'Ouverture et lecture du fichier
     Open txtSrc For Input As #fp
     While Not EOF(fp) ' jusqu'à la fin du fichier
          Line Input #fp, strLigne
          'On alloue un élément au tableau monTab()
          Redim preserve monTab(ind)
          'On découpe la ligne pour remplir monTab()
          monTab(ind).t1 = Mid(strLigne, 385, 7)
          monTab(ind).t2 = Mid(strLigne, 395, 7)
          'etc ....
          ind = ind + 1
     Wend

    'fermeture du fichier
End Sub


Tu n'as plus qu'à parcourir ton tableau pour afficher les éléments dans les textboxes
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau
0