Boş Satırları Silme

[daft117]

Satır1

Satır2




Satır3

örneğindeki gibi aradaki boş satırları (@CR,@LF,@CRLF) silmeye yarayan fonksiyon.

[code]Func __RemoveExtraLines($string)
Local $i = 0, $s = "", $split
$split = StringSplit($string, @CRLF, 0)
Do
$i = $i + 1
If $split[$i] = @CR Or $split[$i] = @CRLF Or $split[$i] = "" Or $split[$i] = @LF Then ContinueLoop
If $s == "" Then
$s = $split[$i]
Else
$s = $s & @CRLF & $split[$i]
EndIf
Until $i = UBound($split) - 1
Return ($s)
EndFunc [/code]

[Mehmet]

bunu bir notdefterine uygulamak istersek nasıl yapmamız gerekir bir örnek verebilirmisin

[daft117]

notdefteriyle kafayı bozmuşsun.

elinde içinde gereksiz satırlar olan bi değişken var

$gereksiz olsun ismi

$yeni = __RemoveExtraLines($gereksiz)

$gereksiz'deki gereksiz satırları silip yeni değişkenine atayacak