TexteRésolu

Question

bonjour &#224; tous,

Voil&#224; mon probl&#232;me: J'ai un fichier texte et je voudrais lire ligne par ligne et chaque ligne la d&#233;couper en N caract&#232;res pour pouvoir mettre certaine donn&#233;es dans une DB.
Bien sur je pourrais mettre un bouton  qui change de ligne &#224; chaque fois, mais sur un fichier de 16 mo, j'ai pas fini !!!
Si vous avez une bonne id&#233;e.    Merci d'avance.
john

cs_casy · Accepted Answer

J'ai pas tr&#232;s bien compris ton probl&#232;me. Pourquoi tu veux un bouton pour passer &#224; la ligne suivante ?
Lorsque tu as lu une ligne, le pointeur dans ton fichier est automatiquement positionn&#233; sur la ligne suivante, tu n'as pas besoin de changer de ligne, il te suffit de lire s&#233;quentiellement les lignes les unes apr&#232;s les autres. Tu peux faire &#231;a dans une boucle par exemple : 

Tant que pas fin du fichier
--> lecture de la ligne
--> traitement de la ligne lue
--> enregistrement des donn&#233;es
--> et on reboucle

<hr size="2" width="100%">

ScSami · Answer

En effet!!! Autrement dit, il faut un code du genre :

Dim varCheminDuFichier As String
Dim varCanal As Integer  '0-512

varCheminDuFichier = "C:\...\...\fichier.ext"
varCanal = FreeFile

Open varCheminDuFichier As Input As varCanal
 Do While Not(EOF(varCanal)
  Line Input #varCanal, maVariableATraiter
  'traitement de ta variable (ta ligne r&#233;cup&#233;r&#233;e)
 Loop
Close varCanal

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )<

cs_John7 · Answer

Bonsoir ScSami  et merci pour cette r&#233;ponse
Le plus gros probl&#232;me c'est que dans chaque ligne, j'ai des donn&#233;es a r&#233;cup&#233;rer qui ne sont pas identiques. Je m'explique:
Voi&#231;i une ligne type: 201500000000000000000000000170BMAUTO                                            COR_B39.9 2003043020030808075848
je dois couper cette ligne &#224; partir du d&#233;but en 9 puis 6 puis 6 puis1 puis 2 puis 3 chiffres et c'est &#224; partir des 3 chiffres, suivant les chiffres, que je mets dans une DB ce qui suit !!! j'espere que &#231;a va, c'est pas dur a comprendre mais &#224; ecrire!!!!

john

ScSami · Answer

Bon, je sais pas exactement comment tu veux faire exactement et comment ni même ce que tu veux mettre dans ta DB mais pour découper une String, c'est pas compliqué : il faut utiliser Mid ! Mid(String, Début, Longueur) P.ex. : Mid("ABCD", 2, 3) >> "BCD" Remplace ceci : 'traitement de ta variable (ta ligne récupérée) Par un truc du genre : Partie1 = Mid(maVariableATraiter, 1, 9) Partie2 = Mid(maVariableATraiter, 10, 6) Partie3 = Mid(maVariableATraiter, 16, 6) Partie4 = Mid(maVariableATraiter, 22, 6) Partie5 = Mid(maVariableATraiter, 28, 1) Partie6 = Mid(maVariableATraiter, 29, 3) Ensuite, c'est à toi de voir quoi faire de toutes ces parties et comment les traiter !!! Mais ça, c'est un autre problème (qui mériterait un autre post sans doute!)... Enjoy

( Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée". )<

cs_John7 · Answer

Mercci ScSami mais comment faire pour passer &#224; une autre ligne automatiquement
A+

john

econs · Answer

Salut,

Il faut combiner les deux codes de ScSami :



Dim varCheminDuFichier As String
Dim varCanal As Integer  '0-512

varCheminDuFichier = "C:\...\...\fichier.ext"

varCanal = FreeFile

Open varCheminDuFichier For Input As varCanal
    While Not(EOF(varCanal)
        Line Input #varCanal, maVariableATraiter
        Partie1 = Mid(maVariableATraiter, 1, 9)

        Partie2 = Mid(maVariableATraiter, 10, 6)

        Partie3 = Mid(maVariableATraiter, 16, 6)

        Partie4 = Mid(maVariableATraiter, 22, 6)

        Partie5 = Mid(maVariableATraiter, 28, 1)

        Partie6 = Mid(maVariableATraiter, 29, 3)

    Wend
Close varCanal



La m&#233;thode Line Input
passe automatiquement &#224; la ligne suivante apr&#232;s avoir lu une ligne. Et
la boucle While te permet de faire &#231;&#224; jusqu'&#224; la fin du fichier.




Manu

cs_John7 · Answer

Bonsoir, &#231;a j'avais bien compris, mais quand je veux afficher 3 ou 4 parties dans des textbox et passer &#224; une autre ligne pour en lire  d'autres, je repasse par ce sub mais &#231;a ne marche pas !!!

john

ScSami · Answer

Ce que tu n'as pas compris c'est que le code que je t'ai donn&#233; parcours AUTOMATIQUEMENT (via la boucle Do/Loop [ou While/Wend dans le code de Econs] ) TOUTES LES LIGNES de ton fichier, UNE PAR UNE en les d&#233;coupant &#224; chaque fois.

Tu n'es pas clair !!! D&#233;j&#224;, au d&#233;but, y'avait pas de TextBox mais tu parlais de DB... Alors ma question est simple : qu'est-ce que tu veux faire ???? Soit un peu plus clair s'il te plait.

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )<

cs_John7 · Answer

Re,
c'est vrai que c'est plus dur par &#233;crit, mais je vais essayer.
Je re&#231;ois un fichier txt avec des lignes presque semblable du genre :
201500000000000000000000000170BMAUTO                                            COR_B39.9 2003043020030808075848
201500000305422426498A00020                 1000              000000B   112                   1+000000000014151+000000000011040+000000000000000+000000000000000+040                              B   0400
je dois enlever 24 caract&#232;res puis suivant les 3 d'apr&#233;s (000 ou 001 ou 003 ou 005 etc...), je mets dans une DB tout ce qui suit au bon endroit.Pour la base , je sais!!! Il etait temps me direz-vous !!!!
Je voulais juste tester avec des textbox pour voir ce que &#231;a faisait.
J'espere avoir &#233;t&#233; assez clair  merci................

john

ScSami · Answer

Heu... pas certain &#231;a!

Moi, ce que j'ai compris c'est que finalement tu n'as plus besoin d'aide ! J'ai tout pig&#233; ou j''me trompe !?!?!?

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )<

cs_John7 · Answer

Bonjour,
 Merci &#224; vous deux pour votre aide.Je vais me d&#233;brouiller avec tout &#231;a......A+

john

ScSami · Answer

Pense &#224; "accepter" &#233;galement les r&#233;ponses des personne qui t'on apport&#233;s une aide comme, en l'occurrence, Econ et Casy !

Enfin bon, moi, ce que j'en dis...

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )<

Texte

12 réponses

Discussions similaires