sFichier,sConteneur,sLigne,sTexte sont des chaînes x est un entier // Ouvre le sélecteur de fichiers sFichier = fSélecteur("", "", "Sélectionnez un fichier...", "Csv" + TAB + "*.csv", "*.csv") sConteneur=fChargeTexte(sFichier) sConteneur =UTF8VersChaîne(sConteneur,alphabetAnsi) POUR TOUTE CHAINE sLigne DE sConteneur SEPAREE PAR RC TableAjoute(Table1) TableSelectPlus(Table1,TableOccurrence(Table1)) x = 0 POUR TOUTE CHAINE sTexte DE sLigne SEPAREE PAR ";" x += 1 SI x <= 4 // Prendre les 4 premières colonnes {"TABLE1.COL_Colonne"+x,indChamp}=sTexte FIN FIN FIN
Archives par mois : octobre 2012
Rupture de table : couleur
Changer la couleur des lignes de rupture dans une table :
Pour Toute Ligne nIndice de TABLE_Produit SI nIndice = TableIndiceRupture(RUPT_HautDeRupture,nIndice) TABLE_Produit[nIndice-1]..CouleurFond=Grisclair FIN SI nIndice = TableIndiceRupture(RUPT_BasDeRupture,nIndice) TABLE_Produit[nIndice+1]..CouleurFond=Grisclair FIN FIN
Ajouter une durée à une date heure
Exemple
05-10-2012 23:50
Ajouter 40 Minutes
pour obtenir : 06-10-2012 00:30
dhDate est une DateHeure ="201210052350" dhDate..Minute += 40 Info(dhDate,DateVersChaîne(dhDate..PartieDate,"JJ-MM-AAAA")+" "+HeureVersChaîne(dhDate..PartieHeure,"HH:MM"))