Selection et importation de plusieurs fichiers texte dans une table memoire

[obehaki]

Bonjour,

Je voudrais selectionner et importer le contenu de plusieurs fichiers texte dan
chacune des lignes de ma table memoire mais je n'y arrive.

merci de votre aide

Voici mon bout de code:

FichierEDI est une chaîne
IdFichierEDI est un entier
i est un entier
j est un entier
nb est un entier
tabVar_tableau est un tableau de Variants
info1,info2,info3,info4,info5,info6,info7,info8,info9,info10,info11,info12,info13,info14,info15,info16,info17,info18,info19,info20,info21,info2
est une chaîne
//info1 est une chaine
// Sélection du fichier texte
FichierEDI = fSélecteur("", "", "Sélection d'un fichier EDI", ...
"Tous fichiers " + TAB + "*", ".EDI", fselOuvre+fselMulti)



// Ouverture du fichier sélectionné - attention verifier qu il ne soit pas dej
ouvert
IdFichierEDI = fOuvre(FichierEDI)
SI IdFichierEDI=-1 ALORS
Erreur("L'ouverture du fichier a échoué", ErreurInfo())
SINON
// Première ligne
FichierEDI = fLitLigne(IdFichierEDI)
TANTQUE FichierEDI<>EOT
// Traitement de la ligne lue
info1=ExtraitChaîne(FichierEDI,rangPremier)
info2=ExtraitChaîne(FichierEDI, 2, "'")
info3=ExtraitChaîne(FichierEDI, 3, "'")
info4=ExtraitChaîne(FichierEDI, 4, "'")
info5=ExtraitChaîne(FichierEDI, 5, "'")
info6=ExtraitChaîne(FichierEDI, 6, "'")
info7=ExtraitChaîne(FichierEDI, 7, "'")
info8=ExtraitChaîne(FichierEDI, 8, "'")
info9=ExtraitChaîne(FichierEDI, 9, "'")
info10=ExtraitChaîne(FichierEDI, 10, "'")
info11=ExtraitChaîne(FichierEDI, 11, "'")
info12=ExtraitChaîne(FichierEDI, 12, "'")
info13=ExtraitChaîne(FichierEDI, 13, "'")
info14=ExtraitChaîne(FichierEDI, 14, "'")
info15=ExtraitChaîne(FichierEDI, 15, "'")
info16=ExtraitChaîne(FichierEDI, 16, "'")
info17=ExtraitChaîne(FichierEDI, 17, "'")
info18=ExtraitChaîne(FichierEDI, 18, "'")
info19=ExtraitChaîne(FichierEDI, 19, "'")
info20=ExtraitChaîne(FichierEDI, 20, "'")
info21=ExtraitChaîne(FichierEDI, 21, "'")
info22=ExtraitChaîne(FichierEDI, 22, "'")
SI info1="FIN" OU info1="" ALORS GOTO Suivant

// Vide la table memoire
TableSupprimeTout(TABLE_CODECO)

// Ajouter la ligne dans la table
TableAjouteLigne(TABLE_CODECO,info1,info2,info3,info4,info5,info6,info7,info8,info9,info10,info11,info12,info13,info14,info15,info16,info17,info18,info19,info20,info21,info22)
nb=nb+1
// Ligne suivante
Suivant :
FichierEDI = fLitLigne(IdFichierEDI)
FIN
terminer:
FIN
// Fermeture du fichier
fFerme(IdFichierEDI)
RETOUR

[Romain PETIT]

Post by obehaki
Bonjour,

Bonjour,

même s'il y a plein de choses que tu peux améliorer dans ce code
(GOTO...), la plus grosse erreur est le "TableSupprimeTout" au milieu
de ta boucle...

Aide-toi du débogueur en pas à pas, tu verras immédiatement le
problème.

A+