variable has several line breaks

[gcue]

hello, i have a variable ($s1Text) that equals this:

  Quote

" Cancel

Searchresult No Documents Found

"

I'm not sure how to make this condition true:

if $s1Text = "" then
   MsgBox(0, "Body Text", "true")
EndIf

i tried to count the number of line breaks and substituting them with & Chr(13) - but i couldnt get that to work...

[picaxe]

Maybe something like

if StringRegExpReplace($s1Text, "\s", "") = "" then
   MsgBox(0, "Body Text", "true")
EndIf

[gcue]

that didnt seem to work =/

any other ideas?

[Valuater]

*** TESTED OK ***

$string = fileread("Tester.txt")

$string = StringReplace($string, @CRLF, "")

MsgBox(0x0, @extended, $string)

8)

[gcue]

brilliant! that works

thanks bud

[GEOSoft]

Just a variation on Valuaters code that will only get the blank line count.

$string = fileread("Tester.txt")
StringRegExpReplace($string, "(?m:^)\v", "")
MsgBox(4096, "Results", "There are " & @Extended & " empty lines")

[Valuater]

  gcue said:

brilliant! that works

thanks bud

Welcome

@GEO ...

8)

[GEOSoft]

  Valuater said:

Welcome

@GEO ...

8)

Hope you realize that technically we are both incorrect. To get the count only the replace string should be the same as the search string. In your case

$string = StringReplace($string, @CRLF, @CRLF)

and in mine

StringRegExpReplace($string, "(?m:^)(\v)", "$1")

Also, using the regexp, it will get empty lines no matter what vertical character was used for the line terminator, char() 10 through 13

[PsaltyDS]

I think y'all been into the Egg Nogg and are over-thinking it a bit:

If StringStripWS($s1Text, 8) = "" Then
   MsgBox(0, "Body Text", "true")
EndIf

[GEOSoft]

  PsaltyDS said:

I think y'all been into the Egg Nogg and are over-thinking it a bit:

If StringStripWS($s1Text, 8) = "" Then
   MsgBox(0, "Body Text", "true")
EndIf

Everybody is missing the point that the OP asked for a COUNT of the blank lines.

Edit: Actually I'm wrong In that. He just wants to replace all of the line breaks with Chr(13). Therefore my code should have been

$string = fileread("Tester.txt")
$string = StringRegExpReplace($string, "\r\n|\v", Chr(13))

That will replace any vertical WS character with Chr(13) and it wont matter if the line actually ended with @CRLF, @CR, @LF or a vertical tab or Form Feed

Edited December 29, 2008 by GEOSoft

[PsaltyDS]

  GEOSoft said:

Everybody is missing the point that the OP asked for a COUNT of the blank lines.

Edit: Actually I'm wrong In that. He just wants to replace all of the line breaks with Chr(13). Therefore my code should have been

$string = fileread("Tester.txt")
$string = StringRegExpReplace($string, "\r\n|\v", Chr(13))

That will replace any vertical WS character with Chr(13) and it wont matter if the line actually ended with @CRLF, @CR, @LF or a vertical tab or Form Feed

Well, it would be best if gcue answered for himself, but the code he posted in post #1 was a test for a null string, that he seemed to want to be true even if there were multiple blank lines. The rest was about achieving that, which StringStripWS() does nicely.

You've just been around Ron long enough that every problem looks like a RegExp!

[GEOSoft]

  PsaltyDS said:

You've just been around Ron long enough that every problem looks like a RegExp!

Are you syaing I've been brainwashed? Probably true.

[PsaltyDS]

  GEOSoft said:

Are you syaing I've been brainwashed? Probably true.

Func _SmOke_N_Reeducation()
      $GEOSoft = StringRegExpReplace($GEOSoft, "[[:reality:]]", $NewSpeak)
EndFunc

Edited December 29, 2008 by PsaltyDS

[SmOke_N]

  PsaltyDS said:

Func _SmOke_N_Reeducation()
      $GEOSoft = StringRegExpReplace($GEOSoft, "[[:reality:]]", $NewSpeak)
EndFunc

You've obviously not seen this rare occasion : http://www.autoitscript.com/forum/index.ph...st&p=622128