Importer des CSV en masse : Différence entre versions

De zBasic
Aller à : navigation, rechercher
(Page créée avec « Chaque CSV est localisé dans un répertoire dédié sous la forme "1","01","Ain","AIN","ain","A500" "2","02","Aisne","AISNE","aisne","A250" "3","03","Allier","ALLIER",... »)
(Aucune différence)

Version du 2 janvier 2024 à 10:53

Chaque CSV est localisé dans un répertoire dédié sous la forme 

"1","01","Ain","AIN","ain","A500"
"2","02","Aisne","AISNE","aisne","A250"
"3","03","Allier","ALLIER","allier","A460"
"5","05","Hautes-Alpes","HAUTES-ALPES","hautes-alpes","H32412"
...
  • La 2nde colonne du CSV doit être considérée comme du texte

Une feuille nommée "CSV_" suivi d'un numéro incrémenté sera créée. 

Sub Main
	GlobalScope.BasicLibraries.loadLibrary ("zBasic")
	
	sChemin = "c:\temp\test"
	oTablo = zBasic.ListeFichiers(sChemin, "csv")
	oListe = zTable.VersListe(oTablo)
	for each sFichier in oListe
		i=i+1
		oFiltre = zCSV.Demarre(sFichier,"V")
		zCSV.Parametre(oFiltre, "JEU", "UTF-8")
		zCSV.Colonne(oFiltre, 2, "TEXTE")
		zFeuille.Importe(sFichier, "CSV_" & i, oFiltre)
	next
End Sub
Récupérée de « https://beaussier.com/wiki/index.php?title=Importer_des_CSV_en_masse&oldid=445 »