help with StringRegExpReplace

[shai]

i have text file like this:

2011-1-10 9:24:18> http://www.google.com/search?hl=en&safe=on&q=internet

2011-1-10 9:24:18> is a tata & time.

i want remove this (2011-1-10 9:24:18> ) string from line.

thanks

[computergroove]

I think StringTrimLeft will work

$NewString = StringTrimLeft("textfile.txt",19)

This should also remove the last space.

[iamtheky]

Trimleft may have issues because the hour column changes from one to two digits

$string = "2011-1-10 9:24:18> http://www.google.com/search?hl=en&safe=on&q=internet"

$new = stringregexp ($string , "http://(.*)" , 1)

msgbox (0, '' , 'http://' & $new[0])

[Melba23]

shai,

StringTrimLeft will not work if the data/time has a varying number of characters:

2011-1-10 9:24:18> = 19 Chars

2011-11-30 15:24:18> = 21 chars

I believe you are correct to want to use a RegEx - this should work in all cases:

$sText_1 = "2011-1-10 9:24:18> http://www.google.com/search?hl=en&safe=on&q=internet"
$sURL_1 = StringRegExpReplace($sText_1, "(?i).*?> (.*)", "$1")
ConsoleWrite($sURL_1 & @CRLF)

$sText_2 = "2011-11-30 15:24:18> http://www.google.com/search?hl=en&safe=on&q=internet"
$sURL_2 = StringRegExpReplace($sText_2, "(?i).*?> (.*)", "$1")
ConsoleWrite($sURL_2 & @CRLF)

Just to explain the SRE a bit:

(?i) = case insensitive

.*?> = A non-capturing group of the shortest run of characters ending in "> "

(.*) = A capturing group of the rest of the line

$1 = Replace with the first (and in this case only) capturing group

I hope all that makes sense - my brain starts to bleed when I deal with SREs.

M23

[shai]

shai,

StringTrimLeft will not work if the data/time has a varying number of characters:

2011-1-10 9:24:18> = 19 Chars

2011-11-30 15:24:18> = 21 chars

I believe you are correct to want to use a RegEx - this should work in all cases:

$sText_1 = "2011-1-10 9:24:18> http://www.google.com/search?hl=en&safe=on&q=internet"
$sURL_1 = StringRegExpReplace($sText_1, "(?i).*?> (.*)", "$1")
ConsoleWrite($sURL_1 & @CRLF)

$sText_2 = "2011-11-30 15:24:18> http://www.google.com/search?hl=en&safe=on&q=internet"
$sURL_2 = StringRegExpReplace($sText_2, "(?i).*?> (.*)", "$1")
ConsoleWrite($sURL_2 & @CRLF)

Just to explain the SRE a bit:

(?i) = case insensitive

.*?> = A non-capturing group of the shortest run of characters ending in "> "

(.*) = A capturing group of the rest of the line

$1 = Replace with the first (and in this case only) capturing group

I hope all that makes sense - my brain starts to bleed when I deal with SREs.

M23

ok its work perfect.

now if i have a file in desktop the name is "list_address.txt" and in this file i have multiline like this.

i want replace all lines and save the file after replaceing.

[Melba23]

shai,

Load the file into an array with _FileListToArray - loop through each line and apply the SRE - write the file back to disk with _FileWriteFromArray. Simple!

But be careful: the [0] index of the array is the count, so you will need to use the $i_Base parameter when you write the file.

M23

[GPinzone]

$sURL_1 = StringRegExpReplace($sText_1, "(?i).*?> (.*)", "$1")

You can simplify the regex:

$sURL_1 = StringRegExpReplace($sText_1, "[^>]*> ", "")

[^>]*> = A non-capturing group of the longest run of characters other than ">" ending in "> "

You don't need to worry about case since it will slurp up everything other than a ">" character.

[kylomas]

M23,

I'm with ya on that "brain bleedin" thing...

Do these examples assume that there are no ">"'s in the target text?

kylomas

[Melba23]

GPinzone,

Thanks for that. Always happy to learn about SREs - I make no pretence of being expert at them!

M23

Edit: Actually, always happy to learn about anything!

Edited January 11, 2011 by Melba23

[Varian]

If you use (?m) you can parse the entire string line by line (delimited by line feeds or carriage returns) so you do not have to read the file into an array

Local $String = FileRead('YourFile.txt')
If Not $String And Not @error Then Exit
MsgBox(0, 'Before', $String)
$String = StringRegExpReplace($String, '(?m)^.*> *', '')
MsgBox(0, 'After', $String)

Edited January 11, 2011 by Varian