Lire un groupe de fichier sans avoir à tous les declarer

Question

Bonjour tout le monde,

Je vous expose mon souci. Je doit v&#233;rifier dans des fichiers d'import
qu'il n'y &#224; pas d'erreur et donc tous les ouvrir un par un.

Il s'appele tous import.m01, import.m02 ... seul l'extention differe
pour aller jusqu'a import.m99, mais je me vois mal d&#233;clar&#233; 99 fichers
surtout en sachant qu'il n'y &#224; en g&#233;n&#233;ral que les 20 1er &#224; tester et
que j'ai en plus des fichier d'export &#224; traiter aussi.

J'avais pens&#233; &#224; d&#233;clarer mon fichier avec son chemin :
C:/monchemin/import.m** mais ca m'etonnerais que cela marche. En plus
je ne connais rien au VB.NET et n'est rien trouv&#233; dans les forums pour
m'orienter.

J'ecoute toute proposition si vous avez une id&#233;e !

Un grand merci d'avance

Me

aieeeuuuuu · Answer

pourquoi veux-tu instancier autant d'objets que de fichiers ?

puisque comme tu le dis, tu les ouvre un par un, tu instancie ton objet pour traiter le fichier une fois, tu traite le premier fichier, puis le deuxieme avec le meme objet.

quelle m&#233;thode utilises-tu pour ouvrir tes fichiers ? ca pourrait nous aider &#224; mieux r&#233;pondre &#224; ta question...

lynec45 · Answer

J'ai un peu de mal a savoir commun g&#233;rer mes fichiers car j'ai trouver
x m&#233;thodes diff&#233;rente et celle que je connais ne fontionne pas (open
nomfichier input for numero)

Sinon j'etait en train de cr&#233;er un streamreader pour chaque fichier,
plus la cr&#233;ation d'une variable pour le chemin d'acces, par exemple
pour avoir une date, ou tester l'existance du fichier
File.Exist(nomchemin)

Dim chemin1 as string = C:\dossier\sousdossier\import.m01

Dim str1 as streamreader = new streamreader (chemin1)

...

File.Open(chemin1, File.ModeOpen, FileAcces.Read)

...

if File.Exists(chemin1) then

    do while str1.peek() >0

       traitement

    loop

enf if
En gros j'ai le meme traitement a faire pour une centaine de
fichiers (tous n'ayant pas le meme nom ou n'etant pas dans le meme
dossier.



En plus je n'arrive pas &#224; me servir du debugeur donc je ne peux rien test&#233;, meme pas l'ex&#233;cution d'un message.

Please help !


Me

aieeeuuuuu · Answer

ce que je ferai a ta place, c'est un tableau de chemin

dim chemin(1 to 100) as string

apres, soit tu trouve une regle qui te permet de definir simplement toutes les valeur
du genre
for cpt = 1 to 100
   chemin(cpt) = "c:\...\import.m0" & cstr(cpt)
next cpt

soit, si ils sont dans des repertoires differents, tu les d&#233;finis a la main, mais ca c'est pas terrible. :(
chemin(1) = ...
chemin(2) = ...

ensuite tu fait une boucle qui ouvre les fichiers les un apres les autres

Lire un groupe de fichier sans avoir à tous les declarer

3 réponses

Discussions similaires