Merging continuation lines in a Au3 script.

[guinness 1,459]

This regular expression seems to work for me, so I was wondering could others test it please. Thanks.

#include <Constants.au3>

Local Const $bBinary = Binary( _
        '0x5553575631C0505050837C24280074118B6C2428837D14007407B801000000EB' & _ ; A comment.
        '0231C021C0747F8B6C24288B5D084B891C2431C03B04247F6DC7442404000000' & _
        '008B6C24288B5D044B3B5C24047C528B6C24288B5D148B7C24048B34248B6C24' & _
        '280FAF750401F7C1E70201FB895C24088B6C24088B5D0081E3FFFFFF003B5C24' & _
        '2475188B5C24048B6C24288B7D082B3C244FC1E71009FB89D8EB14FF44240471' & _ ; A second comment.
        'A0FF0C24718CB8FFFFFFFFEB0231C083C40C5E5F5B5DC21000')

Local Const $sString = 'Lorem ipsum dolor sit amet, consectetur adipisicing elit, ' & _
        'sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad ' & _
        'minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo ' & _
        'consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore ' & _
        'eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in ' & _
        'culpa qui officia deserunt mollit anim id est laborum.'

Func Example($vData = Default, _
        $sSomeVar = 'Example', _
        $sSomeVarBlah = 'ExampleBlah')
EndFunc   ;==>Example

Local $sData = FileRead(@ScriptFullPath)
$sData = StringRegExpReplace($sData, '_\h*(;.*)?\v{1,2}\h*', '') ; Merge continuation lines that use _. By guinness.
ConsoleWrite($sData & @CRLF)

[Nessie 29]

Seems to work here

Hi!

[guinness 1,459]

Excellent Nessie!

I've been wanting to ask and since this is "my thread" I will go off topic. Where have you come from? You seem to be helping quite a bit recently, so good on you and thanks. Oh, but surely "being seen" constantly will do badly on tourism in Loch Ness?

Edit: It's good to see new users getting into the spirit of helping out.

Edited February 28, 2013 by guinness

[PhoenixXL 159]

Here are some examples from the link in my signature

expandcollapse popup

; ===============================================================================================================================

;Link - http://www.autoitscript.com/forum/topic/145487-stringregexp-general-help/page__st__20#entry1038879

#include <Array.au3>

;Example : Replaces Underscore with the following line
#region -Examples-

$sString = '$s = "This a short example."' & @CRLF & _
'ConsoleWrite($s & @LF)'
Display($sString, RegEx($sString))

$sString = '$s = "Another example." ; with a short comment _' & @CRLF & _
'ConsoleWrite($s & @LF)'
Display($sString, RegEx($sString))

$sString = '$s = "Yet another example _ ; tada."' & @CRLF & _
'ConsoleWrite($s & @LF)'
Display($sString, RegEx($sString))

$sString = 'DllCall("ntdll.dll", "int", "RtlCompressBuffer", _' & @LF & _
'"ushort", 2, _ ;------> CompressFormat' & @LF & _
'"ptr", $pInput, _ ;---> ptrSrceBuffer' & @LF & _
'"dword", $iSize, _ ;--> SrceBufferSize' & @LF & _
'"ptr", $pBuffer, _ ;--> ptrDestBuffer' & @LF & _
'"dword", $iBufLen, _;aa; vv;> DestBufferSize' & @LF & _
'"dword", 4096, _ ;----> ChunkSize' & @LF & _
'"dword*", 0, _ ;------> CompressedSize' & @LF & _
'"ptr", $pWrkSp) ;-----> WorkspaceBuffer'
Display($sString, RegEx($sString))

$sString = 'MsgBox(4096, "Title _ v1", "This program is free software: you can redistribute it and/or modify" & _' & @LF
$sString &= ' "it under the terms of the GNU General Public License  _" & _ ; Only comment!' & @LF
$sString &= ' "as published by the Free Software Foundation, either version 3" & _' & @LF
$sString &= ' "of the License, or (at your option) any later version.")'
Display($sString, RegEx($sString))

#endregion -Examples-

Func RegEx($sData)
Return StringRegExpReplace($sData, '_\h*(;.*)?\v{1,2}\h*', '') ; Merge continuation lines that use _. By guinness.
EndFunc   ;==>RegEx


Func Display($sInput, $sOutput, $sLast = '\n\n')
;Display the Result
ConsoleWrite(StringFormat('-Input: %s\n+Output: %s' & $sLast, $sInput, $sOutput))
EndFunc   ;==>Display

There are some errors

Hope you solve them soon

Regards

[Nessie 29]

Excellent Nessie!

I've been wanting to ask and since this is "my thread" I will go off topic. Where have you come from? You seem to be helping quite a bit recently, so good on you and thanks. Oh, but surely "being seen" constantly will do badly on tourism in Loch Ness?

Edit: It's good to see new users getting into the spirit of helping out.

I'm Italian I use autoit for quite 5/6 years, and now it's time to share my "knowledge" to user

About the tourism in Loch Ness, i swimming in the lake hidden from the prying eyes

[Offtopic]What is excatly is your avatar? It's me or i see a face (?) inside the windows?[/offtopic]

Hi!

[guinness 1,459]

I'm Italian I use autoit for quite 5/6 years, and now it's time to share my "knowledge" to user

Welcome aboard the SS AutoIt.

My avatar is under the creative commons license and is a mannequin's head next to a pint of guinness. I removed the colour so it didn't look so creepy. You're the first person ever to ask me.

Source: http://www.flickr.com/photos/dotbenjamin/2590072463/

[guinness 1,459]

Here are some examples from the link in my signature

Hope you solve them soon

Regards

Thanks PhoenixXL.

[PhoenixXL 159]

Thanks PhoenixXL.

these were given by jchd to show my mistakes. its his credit

[guinness 1,459]

But useful, I will save this for when I need to test my Au3 regular expressions.

[guinness 1,459]

A nice little regular expression by ProgAndy to remove single line comments (not in quotes.)

Source: