bonjour,
si tu connais les champs par avance de ton fichier .cvs
nIdFichierXLs= fOuvre(sFichierSelectionné , foLectureEcriture)
SI nIdFichierXLs<> - 1 ALORS
HOuvre(Table)
sChaineLecture = fLitLigne(nIdFichierXLs) //on lit une ligne
TANTQUE sChaineLecture<> EOT //Tant que je ne suis pas à la fin du fichier
HRAZ(TableCmdLocal)
SI ChaîneCommencePar(SansEspace(ExtraitChaîne( sChaineLecture,3,";",DepuisDébut)),1) ALORS
Table.1 = SansEspace(ExtraitChaîne( sChaineLecture,3,";",DepuisDébut))
Table.2 = SansEspace(ExtraitChaîne( sChaineLecture,4,";",DepuisDébut))
Table.3 = SansEspace(ExtraitChaîne( sChaineLecture,5,";",DepuisDébut))
Table.4 = SansEspace(ExtraitChaîne( sChaineLecture,6,";",DepuisDébut))
Table.5 = SansEspace(ExtraitChaîne( sChaineLecture,7,";",DepuisDébut))
Table.6 = SansEspace(ExtraitChaîne( sChaineLecture,8,";",DepuisDébut))
Table.7 = SansEspace(ExtraitChaîne( sChaineLecture,9,";",DepuisDébut))
etc.....
HAjoute(Table)
sChaineLecture=fLitLigne(nIdFichierXLs) //On passe à la ligne suivante
SINON
sChaineLecture=fLitLigne(nIdFichierXLs) //On passe à la ligne suivante
FIN
FIN
fFerme(nIdFichierXLs)
SINON
Info("Le fichier est introuvable.")
FIN
tu remplaces table.1 par TaTable.Tacolonne ca devrais fonctionner
puis ta table vers une base sera facile
cordialement
-
Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.
-
Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !Rejeter la notice
WD Importation de fichier csv
Discussion dans 'Sujets Divers' créé par Adaeberenger18@gmail, Sept 25, 2020.
Vous avez un exemple WD TableurAssistantCSV sur la LST127 ...