WDForge.org

Re: lecture d'un fichier txt - le manipuler - l'importer

Posté par drcharly93 le 30/10/2007 14:45:02

bonjour,

PROCEDURE Transforme( sFichierSource, sFichierResultat)
sFichierSource est une chaîne
sUnElement est une chaîne
stLigne1 est une chaîne
stLigne2 est une chaîne

sFichierSource = fChargeTexte("\\mnkdevcdr\d$\Temp\1771711\1771711.log")
SI Taille(sFichierSource) = 0 ALORS RETOUR

POUR TOUTE CHAINE sUnElement DE sFichierSource SEPAREE PAR Caract(10)
	 SI ChaîneOccurrence( sUnElement, Caract( 28 ) ) > 0 ALORS
	 	stLigne1 += ExtraitChaîne( sUnElement, 1, Caract(28) ) + TAB
	 	stLigne2 += ExtraitChaîne( sUnElement, 3, Caract(28) ) + TAB
	 FIN	
FIN
fSauveTexte( sFichierResultat,  stLigne1 + RC + stLigne2 )

Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=5473&post_id=22476