[T] Enlever les espaces de fin de ligne dans un block
Posté : jeu. 03 janv. 2008 00:35
Message transféré de l'ancien forum.
Auteur : TerminAdminAtor
Date : 20/02/2007
Citation :
Voilà avec le test pour bien voir qu'il n'y a plus d'espace :
Auteur : TerminAdminAtor
Date : 20/02/2007
Citation :
Voilà avec le test pour bien voir qu'il n'y a plus d'espace :
Code : Tout sélectionner
Dim $rendu, $block1, $IncomingBlock
$block1 = 'abc ' & Chr(13) & 'def ' & Chr(13) & 'ghi ' & Chr(13) & 'jkl '
MsgBox(0, '', BlockStripWS($block1))
Exit
Func BlockStripWS($IncomingBlock)
$IncomingBlock = StringSplit($IncomingBlock, Chr(13))
For $i = 1 To $IncomingBlock[0]
$rendu &= StringStripWS($IncomingBlock[$i], 2) & Chr(13)
Next
Return $rendu
EndFunc ;==>BlockStripWS