Bouton de navigation vb6 à partir d'un fichier txt
Fermé
bayadkarim
Messages postés
22
Date d'inscription
vendredi 20 décembre 2013
Statut
Membre
Dernière intervention
26 janvier 2015
-
Modifié par bayadkarim le 8/07/2014 à 12:57
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 8 juil. 2014 à 14:18
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 8 juil. 2014 à 14:18
A voir également:
- Bouton de navigation vb6 à partir d'un fichier txt
- Fichier rar - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier host - Guide
- Fichier iso - Guide
7 réponses
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
8 juil. 2014 à 13:05
8 juil. 2014 à 13:05
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 ?
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 ?
bayadkarim
Messages postés
22
Date d'inscription
vendredi 20 décembre 2013
Statut
Membre
Dernière intervention
26 janvier 2015
8 juil. 2014 à 13:24
8 juil. 2014 à 13:24
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
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
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
8 juil. 2014 à 13:36
8 juil. 2014 à 13:36
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
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
bayadkarim
Messages postés
22
Date d'inscription
vendredi 20 décembre 2013
Statut
Membre
Dernière intervention
26 janvier 2015
Modifié par pijaku le 8/07/2014 à 14:28
Modifié par pijaku le 8/07/2014 à 14:28
je suis tout à fait d'accord avec vous. voici ce que je viens de faire
mais ça marche pas il affiche juste la dernier ligne :(
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 :(
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
Modifié par Polux31 le 8/07/2014 à 13:52
Modifié par Polux31 le 8/07/2014 à 13:52
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
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
bayadkarim
Messages postés
22
Date d'inscription
vendredi 20 décembre 2013
Statut
Membre
Dernière intervention
26 janvier 2015
8 juil. 2014 à 13:56
8 juil. 2014 à 13:56
voici un exemple :
70777777777777777777777777ACH60547895322559011010000001215555526 CEpppE azerty Aa aaaaaaa erTTAza 00 00 07 24 20 AGADIR G1 paris de france NA ONAR 04CTBCyyyy88888888C0890741
70777777777777777777777777ACH60547895322559011010000001215555526 CEpppE azerty Aa aaaaaaa erTTAza 00 00 07 24 20 AGADIR G1 paris de france NA ONAR 04CTBCyyyy88888888C0890741
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
Modifié par Polux31 le 8/07/2014 à 14:20
Modifié par Polux31 le 8/07/2014 à 14:20
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"
Ensuite on va faire une procédure qui lit le fichier .txt et remplit le tableau
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
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