Help to sort string :(

[Belfigor]

Hi. For example i have file named "test"

It contains

1. Action I (1 hour, 51 minutes, 38 seconds; Finish: 12.10.2008 8:46:48)

2. Action II (8 hours, 39 minutes, 54 seconds; Finish: 12.10.2008 17:26:42)

3. Action III (1 hour, 35 minutes, 41 seconds; Finish: 12.10.2008 19:02:24)

4. Action IV (4 days, 1 hour, 27 minutes, 1 second; Finish: 16.10.2008 20:29:25)

When i am using

_FileReadToArray("test.txt", $ActionArray)

i am reciaving an array, that have

string "1. Action I (1 hour, 51 minutes, 38 seconds; Finish: 12.10.2008 8:46:48)" in $ActionArray[1]

How can i delete every information that i don need, and recive from "1. Action I (1 hour, 51 minutes, 38 seconds; Finish: 12.10.2008 8:46:48)", string like "Action I - 12.10.2008 8:46:48"?

Help please

Edited October 12, 2008 by Belfigor

[rasim]

Hi. For example i have file named "test"

It contains

1. Action I (1 hour, 51 minutes, 38 seconds; Finish: 12.10.2008 8:46:48)

2. Action II (8 hours, 39 minutes, 54 seconds; Finish: 12.10.2008 17:26:42)

3. Action III (1 hour, 35 minutes, 41 seconds; Finish: 12.10.2008 19:02:24)

4. Action IV (4 days, 1 hour, 27 minutes, 1 second; Finish: 16.10.2008 20:29:25)

When i am using

_FileReadToArray("test.txt", $ActionArray)

i am reciaving an array, that have

string "1. Action I (1 hour, 51 minutes, 38 seconds; Finish: 12.10.2008 8:46:48)" in $ActionArray[1]

How can i delete every information that i don need, and recive from "1. Action I (1 hour, 51 minutes, 38 seconds; Finish: 12.10.2008 8:46:48)", string like "Action I - 12.10.2008 8:46:48"?

Help please

Try this:

$sFile = @ScriptDir & "\test.txt"

$sRead = FileRead($sFile)

$sRead = StringRegExpReplace($sRead, "(?i).*(Action\s?\w+).*?:(.*)\)", "\1 -\2")

$hFile = FileOpen($sFile, 2)
FileWrite($hFile, $sRead)
FileClose($hFile)

Edited October 12, 2008 by rasim

[herewasplato]

...or the hard way

Dim $ActionArray[2]
$ActionArray[1] = "1. Action I (1 hour, 51 minutes, 38 seconds; Finish: 12.10.2008 8:46:48)"

$act = StringInStr($ActionArray[1], "Action")
$par1 = StringInStr($ActionArray[1], "(")
$part1 = StringMid($ActionArray[1], $act, $par1 - $act)

$fin = StringInStr($ActionArray[1], "Finish")
$par2 = StringInStr($ActionArray[1], ")")
$part2 = StringMid($ActionArray[1], $fin, $par2 - $fin)

MsgBox(0, "", $part1 & "- " & $part2)

:-)

[Belfigor]

Thank you every one!

herewasplato's way is more understandeble for me thank you

Now i have script that will generate for me from the test.txt file test2.txt file with lines looks like that:

[name] [date]

[science I] [13.12.2008 4:17:47]

[Engineering IV] [13.12.2008 4:57:39]

[industry II] [13.12.2008 8:03:22]

[industry III] [14.12.2008 8:03:22]

[industry IV] [15.12.2008 8:03:22]

[industry V] [16.12.2008 8:03:22]

now i need to change .txt file once more.

How can i teach my script to understand how to mark each line if that line have special word?

For example, if script found in any line, words: "Science I" "Science II" "Science III" "Science IV" "Science V", he will add to the begining of the line word "Science" and after all changes line

[science I] [13.12.2008 4:17:47]

will looks like

[class] [name] [date]

[science] [science I] [13.12.2008 4:17:47]

How can i do it?

Edited October 12, 2008 by Belfigor

[Belfigor]

Allready found how to make it. Thx everyone

[oMBRa]

Try this:

$sFile = @ScriptDir & "\test.txt"

$sRead = FileRead($sFile)

$sRead = StringRegExpReplace($sRead, "(?i).*(Action\s?\w+).*?:(.*)\)", "\1 -\2")

$hFile = FileOpen($sFile, 2)
FileWrite($hFile, $sRead)
FileClose($hFile)

can u explain that "+" ?... why it is needed?

[MrCreatoR]

can u explain that "+"

Help file can explain things to

+ Repeat the previous character, set or group 1 or more times. Equivalent to {1,}

[oMBRa]

I asked here because I didnt understand reading the help

[herewasplato]

I asked here because I didnt understand reading the help

I agree.

It does not make sense to me either - but I've not spent a lot of time going over and over it. When I find a task that I must use RegExp in, I'll probably dive in. Until then, the stuff I posted works for me.

[SmOke_N]

The "+" is telling the regex engine that there are at least 1 word character but may be more... to get through all of them before it continues to the next match command.

[MrCreatoR]

Here is simple example that shows why to use "+":

$Var = "My 1001 String"

$Ret1 = StringRegExpReplace($Var, ".*[^\d](\d).*", "\1")
$Ret2 = StringRegExpReplace($Var, ".*[^\d](\d+).*", "\1")

MsgBox(0, "", StringFormat("Without '+'\t= %i\nWith '+'\t\t= %i", $Ret1, $Ret2))

Here we can see that when we use "+" with "\d" (it's digits matching), the RegExp match number that include more than 1 digit.