Selection et importation de plusieurs fichiers texte dans une table memoire

Bonjour,

Je voudrais selectionner et importer le contenu de plusieurs fichiers texte dans 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,info22 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 deja 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