Perl type Search

[HighlanderSword]

Hello,

I'm looking to do a search in Autoit, something similar to the code below from Perl.

I'm not having any luck getting this to work, the issue is with the before and after text that it needs to search for.

I tried using StringRegexp and have had no luck with that.

Any Ideas would be appreciated.

Thanks

Paul

sub parseAttrHtml {

my $file = shift;

my $attrHtml;

open (IN,$file) or die ("[PARSEATTRHTML] Can't open '$file' for input.\nError: $!\n");

{

local( $/ ); # slurp mode

$attrHtml = <IN>;

close IN;

}

my $matchBefore = ' <!---------- \

---------->

<TABLE CLASS=MAINBODY WIDTH=100% CELLSPACING=0 CELLPADDING=1>

<TR>

<TD WIDTH=60></TD>

<TD>

<TABLE CLASS=MAINBODY WIDTH=100% CELLSPACING=0 CELLPADDING=1>

';

my $matchAfter = ' </TABLE>';

my ($tableRows) = $attrHtml =~ m/$matchBefore(.*?)$matchAfter/s;

parseAttrLinks(split(/\n/,$tableRows));

}

[hannes08]

Hello HighlanderSword,

it appears to me that you try to extract strings from a given string between two strings.

So you might want to look for _StringBetween() in the helpfile.

[JohnOne]

Your first step is to show the code you are "not having any luck" with.

[hannes08]

Your first step is to show the code you are "not having any luck" with.

Not a bad idea, either.

[HighlanderSword]

Hello,

First issue I run into is using the code below the $matchBefore = section of the code in perl this work with no issues

I have tried taking each line and adding a quote at the end of the line and adding th strings together, that works but then when I

perform a StringInstr or _Stringbetween the search does not find it and it does exist in the file it reads in.

include <String.au3>

$file=FileOpen('C:\mstrdd\eSMART (20110529135434)\Attribute.html')

$data=FileRead($file)

$matchBefore = ' <!---------- \

---------->

<TABLE CLASS=MAINBODY WIDTH=100% CELLSPACING=0 CELLPADDING=1>

<TR>

<TD WIDTH=60></TD>

<TD>

<TABLE CLASS=MAINBODY WIDTH=100% CELLSPACING=0 CELLPADDING=1>

[JohnOne]

That code is opening and reading a file, it is not trying to parse it in any fashion at all.

How have you tried stringbetween or stringregexp?, please show

[hannes08]

Autoit does not support multiple line assignments as you try here. Instead you need to glue the lines together with a 'newline' in between:

$lines = "line1" & @CRLF & "line2" & @CRLF & "line3"

P.S. you can use the [ autoit] and [ /autoit] tags around your code to make it show correctly.

[HighlanderSword]

Hello,

I have tried the code below and no match is found on the string.

What am i missing ?

#include <String.au3>

$file=FileOpen('C:\mstrdd\eSMART (20110529135434)\Attribute.html')

$data=FileRead($file)

$matchBefore = " <!---------- \

---------->" & @crlf

$matchBefore = $matchBefore & "<TABLE CLASS=MAINBODY WIDTH=100% CELLSPACING=0 CELLPADDING=1>" & @crlf

$matchBefore = $matchBefore & " <TR>" & @crlf

$matchBefore = $matchBefore & " <TD WIDTH=60></TD>" & @crlf

$matchBefore = $matchBefore & " <TD>" & @crlf

$matchBefore = $matchBefore & " <TABLE CLASS=MAINBODY WIDTH=100% CELLSPACING=0 CELLPADDING=1>" & @crlf

MsgBox(0,"$matchBefore",$matchBefore)

$matchafter= ' </TABLE>'

$test=StringInStr($data,$matchBefore)

MsgBox(0,"Results",$test)

[JohnOne]

Try Replacing @crlf with @cr or @lf

[JohnOne]

It might even be that there are unseen whites paces in the before string.

Perhaps you could put the exact string into a file and have it read in as a variable, much as you do the whole document.

[HighlanderSword]

Hello,

I tried that as well and no match.

I also attached the HTML file im reading in.

Thanks

Paul

Attribute.html

[BrewManNH]

This <!----------

----------> does not equal this <!---------- \ ---------->, which is why it's not finding a match. Edited September 30, 2011 by BrewManNH

[hannes08]

This <!----------

----------> does not equal this <!---------- \ ---------->, which is why it's not finding a match.

Sometimes solutions for problems we try to solve for hours can be that easy.

[HighlanderSword]

Thanks I totaly missed that ....