[T] Enlever les espaces de fin de ligne dans un block

Partagez vos scripts, et vos applications AutoIt.
Règles du forum
.
Répondre
Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11773
Enregistré le : ven. 20 juil. 2007 21:00
Localisation : Bordeaux
Status : Hors ligne

[T] Enlever les espaces de fin de ligne dans un block

#1

Message par Tlem »

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 :

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
Répondre