Charger un fichier .txtRésolu

Question

Apr&#232;s r&#233;flection, je pense qu'il est plus simple de le faire avec un fichier texte. Cependant avant, j'avais les diff&#233;rentes donn&#233;es en les unes au dessous des autres : 
1
2
3
mon code &#233;tait : 
    stFichier = (App.Path & "\Essai.txt")
    
    Open stFichier For Input As #1
    
        num_fiche = 0
        
        Do While Not EOF(1)
            num_fiche = num_fiche + 1
            Line Input #1, tabl1(num_fiche, 1)
            Line Input #1, tabl1(num_fiche, 2)
            Line Input #1, tabl1(num_fiche, 3)
            Line Input #1, tabl1(num_fiche, 4)
            Line Input #1, tabl1(num_fiche, 5)
            Line Input #1, tabl1(num_fiche, 6)
            Line Input #1, tabl1(num_fiche, 7)
            Line Input #1, tabl1(num_fiche, 8)
            Line Input #1, tabl1(num_fiche, 9)
            Line Input #1, tabl1(num_fiche, 10)
            Line Input #1, tabl1(num_fiche, 11)
            Line Input #1, tabl1(num_fiche, 12)
            Line Input #1, tabl1(num_fiche, 13)
        Loop
        Close #1

Maintenant pour chaque fiches, les diff&#233;rentes donn&#233;es sont les unes &#224; cot&#233;e des autres, le enter ne sert que pour ins&#233;rer une autre fiche, d'o&#249; : 

1er fiche :         1      (tab)      3      (tab)     5      (tab)     3      (tab)     2      (tab)     66     (tab)     
2i&#232;me fiche :     4      (tab)      13      (tab)     51      (tab)     3      (tab)     7      (tab)     1     (tab)   

ect....

Comment je dois &#233;crire (modifier) le code pour ouvrir un fichier texte comme celui la ?

Merci davance pour votre aide .....

Luca62.

PCPT · Accepted Answer

tu sais que tu as "21 colonnes" en fait, et tu peux compter ton niombre de lignes au fur et &#224; mesure. tu as tout cedont tu as besoin.

pour excel, tu n'as pas dit si VB reprenait excel, ou si tu travaillais &#224; partir d'un fichier excel converti (manuellement).
si c'est le 2e cas, c'est dans les options d'export.

afficher ensuite chaque valeur dans un TxtBox, bon courage, &#231;&#224; va &#234;tre moche et inutile, mais c'est faisable.

il te faut proc&#233;der de la 2e mani&#232;re indiqu&#233;e, &#224; savoir faire un Type de 21 var :

Private Type MesColonnes
   c01 as string
   c02 as string
   ...
   c21 as string
end type
dim Tabligne() as MesColonnes

et dans ta lecture :

Input #1, tabligne(i).c1, tabligne(i).c2, tabligne(i).c3, tabligne(i).c4, (.........) tabligne(i).c20, tabligne(i).c21

ensuite, avec i, tu sauras qu'il y a par exemple 3lignes, donc 63 TxtBox

tu n'as qu'une TxtBox &#224; cr&#233;er, en groupe, puis Load 62 fois.
plus moche, dur dur....

en plus, je crois qu'une form est limit&#233;e en composants, je ne sais pas si c'est en composants fixes ou totaux....
(je viens d'essay&#233; avec 1000, &#231;&#224; marche...)
 

voil&#224; ;)

PCPT

cs_Jack · Answer

Salut
Bah en fait, &#224; chaque fois que tu vas lire UNE ligne, tu liras les X param&#232;tres de ta fiche : Suffit d'utiliser Split par exemple :

Dim Tableau() As String
Tableau = Split(LaLigneLue, vbTab)
et tu auras la premi&#232;re donn&#233;e dans Tableau(0), et la derni&#232;re dans Tableau(UBound(Tableau))
Attention : si ta ligne se termine par un vbTab, la derni&#232;re donn&#233;e sera vide, normal

A toi de les r&#233;int&#233;grer dans ton propre tableau avec une boucle.
Eventuellement, regarde l'aide de la fonction Split, je crois qu'il est possible de Split vers un tableau &#224; plusieurs dimensions, ce qui simplifierait la routine.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)
(je

PCPT · Answer

ta m&#233;thode d'ouverture est bonne (input #)
c'est tes Line qui sont fausses

en suposant que tu ne sais pas combien de ligne contient ton fichier texte :

dim TabLigne() as string
dim i as integer
dim stFichier as string

stFichier = (App.Path & "\Essai.txt")
  
    Open stFichier For Input As #1
    
        i=0
        
        Do While Not EOF(1)
            redim preserve tabligne(i)
            Input #1, tabligne(i)
            i = i +1
        Loop
        Close #1

c'est tout.
ensuite, il te suffit de compter le nombre de tabulation dans chaque tabligne(x) pour savoir que tu as autant de valeurs par ligne

si tu savait que tu as toujours 6 valeurs par lignes, et qu'elles ne sont pas :
1er fiche :         1      (tab)      3      (tab)     5      (tab)     3      (tab)     2      (tab)     66     (tab)   

mais plut&#244;t

1er fiche :         "1";"3";"5";"3";"2";"66"

tu pourrais alors cr&#233;er un tableau de 6 colonnes, qui recevraient directement la ligne "format&#233;e"

   
        Do While Not EOF(1)
            Input #1, tabligne(i).a, tabligne(i).b, tabligne(i).c, tabligne(i).d, tabligne(i).e, tabligne(i).f
            i = i +1
        Loop

voil&#224; ;)

attention : il faut cr&#233;&#233; un type pour les colonnes. on ne peut pas faire de Redim Preserve sur un Tableau Multidimentionnel

PCPT

luca62 · Answer

En fait j'ai 21 valeurs qui sont toutes s&#233;par&#233;e par une tabulation. Mais elle provienne d'un tableau en excelle, alors y a t'il un moyen de passer excelle en .txt et en rempla&#231;ant le ";", car si j'ai bien compris, &#231;a facilite l'op&#233;ration ?
Car les 21 valeurs correspondent &#224; 21 cases textes, et

luca62 · Answer

En fait j'ai 21 valeurs qui sont toutes s&#233;par&#233;e par une tabulation. Mais elle provienne d'un tableau en excelle, alors y a t'il un moyen de passer excelle en .txt et en rempla&#231;ant le ";", car si j'ai bien compris, &#231;a facilite l'op&#233;ration ?
Car les 21 valeurs correspondent &#224; 21 cases textes, et donc, il faut que je place les diff&#233;rentes valeus dans ces cases ?

L'indice i me permet de connaitre le nombre de ligne donc le nombre de fiche, mais comment je peux mettre (diff&#233;rencier) les diff&#233;rents textes et les plac&#233;s dans les cases textes ?? Est ce qu'il ne me faut pas un indice supl&#233;mentaire ?

Merci d'avance .

Luca62.

luca62 · Answer

j'ai mis le Private Type MesColonnes dans le form_load et j'ai le message d'erreur suivant : invalide inside procedure ? 

Qu'est ce que je dois faire ?

Merci.

Luca62

PCPT · Answer

il faut le d&#233;clarer en d&#233;claration g&#233;n&#233;rale
(toute premi&#232;re lignes en haut de page)
PCPT

luca62 · Answer

Dis, encore un petit probl&#232;me, pourquoi il me met un subscipt out of range &#224; cette ligne : 

Input #1, tabligne(num_fiche).c01, tabligne(num_fiche).c02, tabligne(num_fiche).c03, tabligne(num_fiche).c04, tabligne(num_fiche).c05, tabligne(num_fiche).c06, tabligne(num_fiche).c07, tabligne(i).c08, tabligne(i).c09, tabligne(num_fiche).c10, tabligne(num_fiche).c11, tabligne(num_fiche).c12, tabligne(num_fiche).c13, tabligne(num_fiche).c14, tabligne(num_fiche).c15, tabligne(num_fiche).c16, tabligne(num_fiche).c17, tabligne(num_fiche).c18, tabligne(num_fiche).c19, tabligne(num_fiche).c20

voil&#224; comment j'ai mis : 

    Open stFichier For Input As #1
    
        num_fiche = 1
        
        Do While Not EOF(1)
            Input #1, tabligne(num_fiche).c01, tabligne(num_fiche).c02, tabligne(num_fiche).c03, tabligne(num_fiche).c04, tabligne(num_fiche).c05, tabligne(num_fiche).c06, tabligne(num_fiche).c07, tabligne(i).c08, tabligne(i).c09, tabligne(num_fiche).c10, tabligne(num_fiche).c11, tabligne(num_fiche).c12, tabligne(num_fiche).c13, tabligne(num_fiche).c14, tabligne(num_fiche).c15, tabligne(num_fiche).c16, tabligne(num_fiche).c17, tabligne(num_fiche).c18, tabligne(num_fiche).c19, tabligne(num_fiche).c20

            num_fiche = num_fiche + 1
            
                    Loop
    Close #1

Merci d'avance.

Luca62

PCPT · Answer

parce que tu commences ton tableau &#224; 1. donc tabligne(1) n'existe pas encore quand tu le remplis.
mais comme de toute mani&#232;re, tu as oubli&#233; de redimentionner ton tableau dans la boucle (redim preserve tabligne(num_ligne)) .......

voil&#224;, relis ci-dessus pour + d'infos  ;)
PCPT

luca62 · Answer

Ha, ok .... Donc j'ai commenc&#233; &#224; z&#233;ro, et mis le redis, il commence bien &#224; lire le fichier mais il s'arrete &#224; la num_fiche 396 et j'ai le message d'erreur suivant : Input past end of file ?? Alors que dans le fichier texte, tout est normal, j'ai v&#233;rifier, y a bien les 20 champs s&#233;par&#233;s par un ; donc ok.

Ca peut &#234;tre d&#251; &#224; quoi ?

Merci pour votre aide.

Luca62

luca62 · Answer

je viens de v&#233;rifi&#233; ce que j'ai mis au dessus, m&#234;me avec seulement 4 lignes, il me met ce message d'erreur (Input past end of file) ?? Ca veut pas dire qu'il n'arrive pas au bout ?

Je sais pas, j'ai un peu du mal avec les messages d'erreurs ....

Merci d'avance.

Luca62

PCPT · Answer

essaie avec simplement :
(...)
Input #1, tabligne(num_fiche).c01
(...)

l&#224;, on lui dit de prendre la ligne compl&#232;te uniquement dans la premi&#232;re "colonne de tableau"
si il n'y a pas d'erreur, alors &#231;&#224; veut dire qu'actuellement, le passage dans la boucle ne prend pas correctement les diff&#233;rentes occurences du fichier...

dis moi si je ne suis pas assez clair ;)
PCPT

luca62 · Answer

oui, &#231;a fonctionne il lance bien le programme... Qu'est ce que cela signifie ??

Luca62.

luca62 · Answer

/auteurdetail.aspx?ID=410800 oui, &#231;a fonctionne il lance bien le programme... Qu'est ce que cela signifie ??

Je lui ai demander dans une case texte le tabligne(num_fiche).c01 il m'indique bien quelque chose de la premi&#232;re ligne, mais pas la premi&#232;re partie de chiffre avant le ;

La premi&#232;re ligne du fichier texte est : 
4/02/1978;6;17;30;31;35;37;15;281535;460171;0;0;0;0;18;5418;1701;28,51;35206;1,24
et il m'indique la partie en rouge.... BIZARRE ???

Luca62.

PCPT · Answer

peux tu refaire le teste avec ton fichier texte ayant ce format de lignes :

"4/02/1978";"6";"17";"30";"31";"35";"37";"15";"281535";"460171";"0";"0";"0";"0";"18";"5418";"1701";"28,51";"35206";"1","24"

m&#234;me une seule ligne si besoin, ou 5fois la m&#234;me ;)
PCPT

PCPT · Answer

et si toujours rien, entre les c&#244;tes, essaie de remplacer les ";" par des ","

PCPT · Answer

cherche pas c'est bon, l'erreur est l&#224;......

relis ta syntaxe, la valeur prise est &#224; partir de la virgule. suis donc mon dernier exemple/conseil
PCPT

luca62 · Answer

J'ai copier deux lignes comme celle la dans le fichier texte...
Voil&#224; ce qu'il m'affiche dans la case texte cette fois ...

;"6";"17";"30";"31";"35";"37";"15";"281535";"460171";"0";"0";"0";"0";"18";"5418";"1701";"28

et quand je fais d&#233;filer avec les fl&#232;ches il m'indique autre chose mais jamais ce qu'il y a entre deux "" ??

Merci.

luca62 · Answer

ok, &#231;a fonctionne bien, j'ai remplacer les , pour des . et les ; par les ,
il m'indique bien tout ce qu'il y a entre deux ,XXX,
Mais dans une ligne comment diff&#233;rencier les 20 valeurs ? car j'ai fait txtDate = tabligne(num_fiche).c01 et forcement j'ai toute la ligne dans la case txtDate, enfin pas toute la ligne les 20 valeurs, donc &#224; chaque fois que je clique sur les fl&#232;ches qui permette de changer de ficher, ben il passe les diff&#233;rentes valeurs en revue ...

Donc, dans cette ligne comme attibu&#233; aux 20 cases textes les 20 valeurs d'un ligne ? 

MERCI..... 

Luca62

PCPT · Answer

"il m'indique autre chose mais jamais ....."
&#231;&#224; te dirait pas d'&#234;tre encore moins pr&#233;cis???

vide ton fichier texte (totalement vide).
copie en bloc &#231;&#224; :
"a1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20"
"b1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20"
"c1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20"
"d1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20"
"e1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20"

donc on part sur 20 valeurs (et non plus 21 comme tu l'avais dit)
ensuite tu fais le test avec

Input #1, tabligne(num_fiche).c01

et un autre avec

Input #1, tabligne(num_fiche).c01, tabligne(num_fiche).c02, tabligne(num_fiche).c03, tabligne(num_fiche).c04, tabligne(num_fiche).c05, tabligne(num_fiche).c06, tabligne(num_fiche).c07, tabligne(i).c08, tabligne(i).c09, tabligne(num_fiche).c10, tabligne(num_fiche).c11, tabligne(num_fiche).c12, tabligne(num_fiche).c13, tabligne(num_fiche).c14, tabligne(num_fiche).c15, tabligne(num_fiche).c16, tabligne(num_fiche).c17, tabligne(num_fiche).c18, tabligne(num_fiche).c19, tabligne(num_fiche).c20

l&#224; tu compares et tu me colles le rendu exact. &#231;&#224; sera plus simple ;)

PCPT

PCPT · Answer

tabligne(num_fiche).c01 &#233;tait un exemple pour trouver la faille

maintenant que tu arrives &#224; bien reprendre ligne par ligne, tu auras chaque occurence dans chaque "colonnes" du tableau
cf post pr&#233;c&#233;dent

donc apr&#232;s, ton txtdate tu dois savoir que tu lis la 2e ligne.
i=2 '(2e ligne)
donc txtDate.text = tabligne(i-1).c01

j'd&#233;bloque tout ce temps perdu.....
je veux bien aider, mais l&#224;, je m&#226;che ce que je t'ai pr&#233;-vomi !

PCPT

luca62 · Answer

lol, je sais, c'est pas facile avec un &#233;l&#232;ve comme moi .... je viens de comprendre. Mais je comprenais pas pourquoi il attribuais les 20 champs &#224; une seul case et qu'en fesant d&#233;filer cette case, il d&#233;filais les 20 champs les uns apr&#232;s les autres.

ENFIN, un super grand merci pour m'avoir d&#233;bloqu&#233; !!!!!

Bon, une bonne fin de soir&#233;e et ma fois au prochain probl&#232;me.... sans rancune .....

@++ Luca62.

Charger un fichier .txt

22 réponses

Discussions similaires