Stringregexpreplace

[Simucal]

Ok.. so I'm starting to get a basic hang on stringregexp's.

However, I have a situation where my StringRegExp will sometimes produce one word for an array entry and sometimes two.

Example:

[0] = "Sunny"

[1] = "Partly Cloudy"

[2] = "Rainfall"

[3] = "Very cloudy"

Is the result of my StringRegExp:

$DescArray = StringRegExp($10DayFile, '(?:"padding:0px 3px 0px 0px;">)([a-zA-Z]*\s?[a-zA-Z]*?)(?:</TD>)',3)

This all works great. However, what I would LIKE to do is: For whatever entries have two words, replace the space that seperates them with an @CRLF.

StringRegExpReplace ( "test", "pattern", "replace", [ count ])

I've thought about doing a StringRegExpReplace, but I'm a little hazy on how I would setup up the "replace" field of the function.

I think I will need to use \1-\9 to insert my matched group.

StringRegExpReplace($10DayFile, '(?:"padding:0px 3px 0px 0px;">)([a-zA-Z]*\s?[a-zA-Z]*?)(?:</TD>)',StringReplace(\2," ",@CRLF),0)

However, StringReplace will not take the \2 to refer to the second matched group. I'd like to stick with StringRegReplace/StringReg's and not do any combersome loops.

Thanks,

-Sim

EDIT: As a work around.. I StringReplace each member of the array.. but I wanted to see how else it could be done.

Edited April 26, 2006 by Simucal

[neogia]

$DescArray = StringRegExp($10DayFile, '(?:"padding:0px 3px 0px 0px;">)([a-zA-Z]*\s?[a-zA-Z]*?)(?:</TD>)',3)

StringRegExpReplace($10DayFile, '(?:"padding:0px 3px 0px 0px;">)([a-zA-Z]*)\s?([a-zA-Z]*?)(?:</TD>)',',0)

You can try this:

StringRegExp(StringRegExpReplace($10DayFile, '(?:"padding:0px 3px 0px 0px;">)([a-zA-Z]*)\s?([a-zA-Z]*?)(?:</TD>)', '\1' & @CRLF & '\2', 0), '(?:"padding:0px 3px 0px 0px;">)([a-zA-Z]\r\n[a-zA-Z]*?)(?:</TD>)',3)

Untested... could you post the file you are trying to parse?

[jvanegmond]

This may be a dumb question: but why not do this?

$string = "Rainfall"

$check = StringSplit ( $string , " " )
If $check[0] = 2 Then
    MsgBox(0, "", $check[1] & @CRLF & $check[2])
Else
    MsgBox(0, "", $string)
EndIf


$string = "Very cloudy"

$check = StringSplit ( $string , " " )
If $check[0] = 2 Then
    MsgBox(0, "", $check[1] & @CRLF & $check[2])
Else
    MsgBox(0, "", $string)
EndIf

$string = "Very cloudy indeed"

$check = StringSplit ( $string , " " )
If $check[0] = 2 Then
    MsgBox(0, "", $check[1] & @CRLF & $check[2])
Else
    MsgBox(0, "", $string)
EndIf

[edit] The code makes a lot more sence now

Edited April 26, 2006 by Manadar

[Simucal]

Because I would need to do that for each member of the array and it is clunky.

If I can do it with one stringregexpreplace, then it is a better solution.

I'm already doing a:

StringReplace($DescArray[0], " ", @CRLF)

Edited April 26, 2006 by Simucal

[neogia]

Ah, having the source to parse makes it alot easier, here's the one-liner version, returns an array:

#include <array.au3>
$ret = StringRegExp(StringRegExpReplace($10DayFile, '(?:"padding:0px 3px 0px 0px;">)([a-zA-Z]*)\s*?([a-zA-Z]*?)(?:</TD>)', '~~\1' & @CRLF & '\2~~', 0), '~~(.*?)~~',3)
_ArrayDisplay($ret, "")

[neogia]

The previous one didn't handle one word descriptions, this one does:

#include <Array.au3>
$ret = StringRegExp(StringRegExpReplace($10DayFile, '(?:"padding:0px 3px 0px 0px;">)([a-zA-Z]*?)(?:\s*?)([a-zA-Z]*?)(?:</TD>)', '~~\1' & @CRLF & '\2~~', 0), '~~(.*?)~~|"padding:0px 3px 0px 0px;">(.*?)</TD>',3)
_ArrayDisplay($ret, "")

[Simucal]

Wow Neogia, you went above and beyond what I expected. That is exactly what im looking for!!

Many thanks! Also, I'll be looking for the update on your StringRegExp tutorial.

-Sim