daft117 Posted April 30, 2012 Share Posted April 30, 2012 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] Quote Link to comment Share on other sites More sharing options...
Mehmet Posted April 30, 2012 Share Posted April 30, 2012 bunu bir notdefterine uygulamak istersek nasıl yapmamız gerekir bir örnek verebilirmisin Quote Link to comment Share on other sites More sharing options...
daft117 Posted May 1, 2012 Author Share Posted May 1, 2012 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.