Strings in code

[JohnOne]

I was thinking about starting a small project, but when weighing up what would be needed, one of the requirements would be to find and replace all strings in an AutoIt script, and the more I thought about it, the more difficult and complex it seemed, and I'd have absolutely no chance of creating a regex pattern for something like that.

" 'strings like this for example' ", and worse "these one's".

I've had a quick unsuccessful search, does anyone know if one exists?

[asdf8]

#Include <Array.au3>

$str = "MsgBox(64, 'Title', 'My ''test''')&, '''test'' My' &, 'M ''test'' y' ; $var = '"
$str &= @CRLF & 'MsgBox(64, "Title''s", ''test'') & ""'
$str &= @CRLF & '"these one''s"'
$str &= @CRLF & '" ''strings like this for example'' "'


$aOut = StringRegExp($str, '(''(?:[^''\r\n]*(?:'''')*[^''\r\n]*)*?''(?!'')|"(?:[^"\r\n]*(?:"")*[^"\r\n]*)*?"(?!"))', 3)
ConsoleWrite($str & @CRLF)
_ArrayDisplay($aOut)

[guinness]

Replace strings to what exactly?

[JohnOne]

#Include <Array.au3>

$str = "MsgBox(64, 'Title', 'My ''test''')&, '''test'' My' &, 'M ''test'' y' ; $var = '"
$str &= @CRLF & 'MsgBox(64, "Title''s", ''test'') & ""'
$str &= @CRLF & '"these one''s"'
$str &= @CRLF & '" ''strings like this for example'' "'


$aOut = StringRegExp($str, '(''(?:[^''\r\n]*(?:'''')*[^''\r\n]*)*?''(?!'')|"(?:[^"\r\n]*(?:"")*[^"\r\n]*)*?"(?!"))', 3)
ConsoleWrite($str & @CRLF)
_ArrayDisplay($aOut)

That's quite great.

Thank you.

Shame it grabs strings from comments, but suppose they could be stripped first.

[JohnOne]

Replace strings to what exactly?

Variables.

[guinness]

Look at my Script Parsing thread for removing comments beforehand.

[JohnOne]

Cheers guinness.

[czardas]

The regexp part is tricky. When replacing multiple strings, it's essential to replace the longest strings first to avoid replacing part of a longer string by mistake. I don't know if there are many other functions to sort by length, but I wrote one if it's any use _ArraySortByLen(). Link

[JohnOne]

Good point, cheers czardas.