_StringBetween

[LukeJrs]

The project that I'm working on for stringbetween not working well.....

CODE

#include <IE.au3>

#include <String.au3>

#include <array.au3>

$sURL = "http://www.freewebs.com/lukejrs/test.html"

$oIE = _IECreate($sURL, 1, 1)

$sText = _IEBodyReadText($oIE)

$aArray1 = _StringBetween($sText, "zip.value = "", "";")

If IsArray($aArray1) Then

MsgBox(0, "Body Text", $aArray1[0])

Else

MsgBox(0, 'Empty', 'Nothing found')

EndIf

I'm trying to get this Value 34444-2345. I would like to use _IE like _IENavigate, IECreate, and IEBodyReadHtml etc not INetGetSource because doesn't use cookie which at work doesn't find anything.

CODE

$profile = 'http://www.freewebs.com/lukejrs/test.html'

$values = _StringBetween(_INetGetSource($profile), 'zip.value = "' , '";')

For $i = 0 To UBound($values) - 1 ; maybe $i = 1 if you needn't the count.

MsgBox(0, "Comment count is:", $values[$i])

Next

I would like to extract al this value

CODE

data.address.city.value = "FORT ";

data.address.state.value = "NY";

data.address.zip.value = "34444-2345";

data.address.country.value = "USA";

data.address.home.value = "(999) 999-9999";

data.address.work.value = "(999) 888-8888";

data.address.email.value = "BIGDUH@AOL.COM";

data.address.language.value = "ENGLISH";

data.address.firstName.value = "BETA ";

data.address.lastName.value = "HELP ";

data.address.middleInit.value = "A ";

data.address.title.value = "";

data.address.address1.value = "2456 SEA ISLAND RD ";

data.address.address2.value = " ";

data.address.address3.value = " ";

Such as Fort, Ny, and much more.... More String Between

Any Idea?

[Xenobiologist]

Hi,

how to test it?

before :

...

after :

what do you need?

So long,

Mega

[Xenobiologist]

Hi,

#include <IE.au3>
#include <String.au3>
#include <array.au3>
$sURL = "http://www.freewebs.com/lukejrs/test.html"
$oIE = _IECreate($sURL, 1, 1)
$sText = _IEDocReadHTML($oIE)
$aArray1 = _StringBetween($sText, 'zip.value = "', '";')
If IsArray($aArray1) Then
    MsgBox(0, "Body Text", $aArray1[0])
Else
    MsgBox(0, 'Empty', 'Nothing found')
EndIf

So long,

Mega

[Xenobiologist]

Hi,

no problem. I tested on XP SP2.

So long,

Mega