request help with StringRegExpReplace

[Factfinder]

Hi,

I need to replace some patterns in a text but the StringRegExpReplace is not doing the job if I use $ to match the end of line.

Let's explain what I do.

I have a file (input.txt) with the follwing text:

ab5d;4

TEAM;1 The dirctory is \System32\TEAM

Time;1 The dirctory is %SystemRoot%\Time

Version2;0

The lines without a directory indicate the directory is in the Program Files.

I would like to add "The dierctory is Program files\"Directory Name" (where the "Directory Name" is the one at the start of the line like "ab5d" in the first line):

The desired output would be:

ab5d;4 The dierctory is Program files\ab5d

TEAM;1 The dirctory is \System32\TEAM

Time;1 The dirctory is %SystemRoot%\Time

Version2;0 The dierctory is Program files\Version2

The script I'm using is:

#include <File.au3>
$txt = FileRead("input.txt")
$regexpr = StringRegExpReplace($txt, "(.*);(\d)$", "\1;\2 The dierctory is Program files\\\1")
FileWrite("output.txt" , $regexpr)
Exit

The syntax when used without $ matches all the lines and adds the pattern to all the 4 lines and if used with $ (to exclude the lines with a directory mentioned) gives the same output as input without any modification.

Thanks in advance.

[PsaltyDS]

Process it one line at a time and it works perfectly:

#include <File.au3>

Global $sTxt
Global $aTxt[4] = ["ab5d;4", "TEAM;1 The dirctory is \System32\TEAM", _
        "Time;1 The dirctory is %SystemRoot%\Time", "Version2;0"]

For $n = 0 To UBound($aTxt) - 1
    $sTxt = StringRegExpReplace($aTxt[$n], "(.*);(\d)$", "\1;\2 The dierctory is Program files\\\1")
    ConsoleWrite("output.txt:  " & $sTxt & @LF)
Next

Output:

output.txt:  ab5d;4 The dierctory is Program files\ab5d
output.txt:  TEAM;1 The dirctory is \System32\TEAM
output.txt:  Time;1 The dirctory is %SystemRoot%\Time
output.txt:  Version2;0 The dierctory is Program files\Version2
+>10:58:13 AutoIT3.exe ended.rc:0
>Exit code: 0    Time: 1.134

You can process it in a loop with FileReadLine() vice getting it all at once with FileRead().

Or you could just read it into an array with _FileReadToArray() and use the above method exactly.

Edited September 24, 2010 by PsaltyDS

[Factfinder]

Hi PsaltyDS,

Indeed it worked perfectly.

I had spend quite some time to get it work with FileRead() without success. Using FileReadLine() in a loop did the trick and the time delay is negligible even though the input file contains more than 300 lines.

Thanks a lot PsaltyDS.

[GEOSoft]

$ is not designed to match the end of a line. It matches the end of the string which in this case is the end of the file.

$sStr = FileRead("somefile.txt")
$sRstr = StringRegExp($sStr, "(.+)(;\d)(\v+|$)", "$1$2 The directory is Program files $1\\$3")

[Factfinder]

Hi GEOSoft,

Thanks for the reply and the info. $ is used in sed to match the end of line, and now I understand in this case the whole text is considered as a string.

I'll let you know if it worked.

Edited September 25, 2010 by Factfinder

[Factfinder]

Hi GEOSoft,

It worked like a charm. Thanks a lot.