finding a array value

LukeJrs · August 7, 2007

Thanks you again, I need some more help

CODE

#include <IE.au3>

#include <String.au3>

#include <array.au3>

; $avCodes contains the strings you want to search for

; NOTE: last two values in the array are in the html code.

;Dim $avCodes[6] = ["68819", "73501", "73417", "72146", "68994", "48526"]

; Create an invisible browser

$soIE1 = _IECreate("http://www.freewebs.com/lukejrs/testvar.html", 0, 0, 1)

$sText1 = _IEDocReadHTML($soIE1) ;READ FROM HTML CODE ON WEBSITE

$avFeature = _StringBetween($sText1, 'teleFeature.code = "', '";') ; FEATURE

For $i = 0 To UBound($avFeature) - 1

$Input = $avFeature[$i]

Switch $Input

Case 68819, 73501, 73417

;.... some unique calculation charging 30% extra.....

MsgBox(0, "account is over by: ", $Input & " and will be charged 30% fee")

Case 72146

;.... some unique calculation charging 15% extra.....

MsgBox(0, "account is over by: ", $Input & " and will be charged 15% fee")

Case 68994, 48526

;.... some unique calculation charging 65% extra.....

MsgBox(0, "account is over by: ", $Input & " and will be charged 65% fee")

EndSwitch

It found the charging 65%. Is't very helpful it cleaned the scripst lot cleaner but still not able to do what I'm trying to achive. Like if take your time and view source of the site it appear there is 21 array of value contain in stringbetween so basicly the For $i = 0 To UBound($avFeature) - 1 wil search if value match 68994 which located on the site and the value is on $avFeature[14] as a array which what i'm trying to do is not load array 1 by 1. Is't possible can be all array loaded at once then compare the value to check which one match case? because to get 68994 will have to go next like 14 time to match my value and the reason i'm trying to do that because at the end result if array didnt find anything at end search resut of trying to locate any of value in stringbetween and there wasn't any found then excute a chuck of command because if i put it as

CODE

#include <IE.au3>

#include <String.au3>

#include <array.au3>

; $avCodes contains the strings you want to search for

; NOTE: last two values in the array are in the html code.

;Dim $avCodes[6] = ["68819", "73501", "73417", "72146", "68994", "48526"]

; Create an invisible browser

$soIE1 = _IECreate("http://www.freewebs.com/lukejrs/testvar.html", 0, 1, 1)

$sText1 = _IEDocReadHTML($soIE1) ;READ FROM HTML CODE ON WEBSITE

$avFeature = _StringBetween($sText1, 'teleFeature.code = "', '";') ; FEATURE

For $i = 0 To UBound($avFeature) - 1

$Input = $avFeature[$i]

Switch $Input

Case 68819, 73501, 73417

;.... some unique calculation charging 30% extra.....

MsgBox(0, "account is over by: ", $Input & " and will be charged 30% fee")

Case 72146

;.... some unique calculation charging 15% extra.....

MsgBox(0, "account is over by: ", $Input & " and will be charged 15% fee")

Case 68994, 48526

;.... some unique calculation charging 65% extra.....

MsgBox(0, "account is over by: ", $Input & " and will be charged 65% fee")

Case Else

MsgBox(0, "dude ", "damn didnt find anything")

EndSwitch

ssubirias3 · August 7, 2007

Thanks you again, I need some more help
... code ...

It found the charging 65%. Is't very helpful it cleaned the scripst lot cleaner but still not able to do what I'm trying to achive. Like if take your time and view source of the site it appear there is 21 array of value contain in stringbetween so basicly the For $i = 0 To UBound($avFeature) - 1 wil search if value match 68994 which located on the site and the value is on $avFeature[14] as a array which what i'm trying to do is not load array 1 by 1. Is't possible can be all array loaded at once then compare the value to check which one match case? because to get 68994 will have to go next like 14 time to match my value and the reason i'm trying to do that because at the end result if array didnt find anything at end search resut of trying to locate any of value in stringbetween and there wasn't any found then excute a chuck of command because if i put it as

@LukeJrs - new question new post, but same script. To answer your specific question "finding an array value" the command to use is _ArraySearch() since searching is the same thing as looking for or finding something, right? That's why I gave you the code I did since your initial code's logic wasn't working. On your other topic titled "stopping a loop", I told you the code I gave you was a modification of the help file's example. Look at what I gave you and compare it to the following code. You'll see they look very very similar.

#Include<Array.au3>
Dim $Array[6]
$Array[0] = "String0|SubString0"
$Array[1] = "String1|SubString1"
$Array[2] = "String2|SubString2"
$Array[3] = "String3|SubString3"
$Array[4] = "String4|SubString4"
$Array[5] = "String5|SubString5"

$Input = InputBox("ArraySearch Demo", "String To Find?")
If @error Then Exit

$Pos = _ArraySearch ($Array, $Input, 0, 0, 0, True)
Select
    Case $Pos = -1
        MsgBox(0, "Not Found", '"' & $Input & '" was not found in the array.')
    Case Else
        MsgBox(0, "Found", '"' & $Input & '" was found in the array at pos ' & $Pos & ".")
EndSelect

as you notice will keep poping msg saying damn couldnt find it everytime it go array by array can this be executed when it's done searching array if wasn't found then execute msg box?

I put those message boxes in the code so you could follow along and better understand what was going on. My guess is no one has responded to this topic since you have the answers to your questions but don't know they are there despite my attempts to help you understand. Do this, go back to your other post where I gave you the working code and look at the updated code I've given you. Then compare the different version and see how its changed. Good luck and I hope this makes sense for you.

LukeJrs · August 8, 2007

I tried and tried can't get it to work. can i have it to read a value if match the value then do this if value not found else do that because with arraysearch it get the pos of it but you must imput what to search for and if you search for this and not in webpage then error and script crash because

CODE

>"D:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "D:\Documents and Settings\Administrator\Desktop\demo.au3"

D:\Documents and Settings\Administrator\Desktop\demo.au3 (17) : ==> Array variable subscript badly formatted.:

Switch $avFeature[$Pos]

Switch $avFeature[^ ERROR

>Exit code: 1 Time: 1.111

This what i been working so far

CODE

#include <IE.au3>

#include <String.au3>

#include <array.au3>

; $avCodes contains the strings you want to search for

; NOTE: last two values in the array are in the html code.

;Dim $avCodes[6] = ["68819", "73501", "73417", "72146", "68994", "48526"]

; Create an invisible browser

$soIE1 = _IECreate("http://www.freewebs.com/lukejrs/testvar.html", 0, 1, 1)

$sText1 = _IEDocReadHTML($soIE1) ;READ FROM HTML CODE ON WEBSITE

$avFeature = _StringBetween($sText1, 'teleFeature.code = "', '";') ; FEATURE

$Input = "68994" ;let say i wanted to put 689954 to search for now if value not found booom crash

$Pos = _ArraySearch ($avFeature, $Input)

Switch $avFeature[$Pos]

Case 68819, 73501, 73417

;.... some unique calculation charging 30% extra.....

MsgBox(0, "account is over by: ", $Input & " and will be charged 30% fee")

Case 72146

;.... some unique calculation charging 15% extra.....

MsgBox(0, "account is over by: ", $Input & " and will be charged 15% fee")

Case 68994, 48526

;.... some unique calculation charging 65% extra.....

MsgBox(0, "account is over by: ", $Input & " and will be charged 65% fee")

Case Else

MsgBox(0, "account is over by: ", $Input & " FREE FOOD")

EndSwitch

I dont want it to crash

enaiman · August 8, 2007

The only explanation is that you're wrong using _StringBetween and the string you're looking for it is not delimited by teleFeature.code = " and ";

the string should look like:

teleFeature.code = "68994";

To show you that your script is working in its actual form, I've built a string according to your pattern and ran the script - it worked

here it is:

#include <IE.au3>
#include <String.au3>
#include <array.au3>
; $avCodes contains the strings you want to search for
; NOTE: last two values in the array are in the html code.
;Dim $avCodes[6] = ["68819", "73501", "73417", "72146", "68994", "48526"]

; Create an invisible browser
;$soIE1 = _IECreate("http://www.freewebs.com/lukejrs/testvar.html", 0, 1, 1)
;$sText1 = _IEDocReadHTML($soIE1) ;READ FROM HTML CODE ON WEBSITE

$sText1 = "teleFeature.code = ""68819""; teleFeature.code = ""68994"";teleFeature.code = ""72146"";teleFeature.code = ""48526"";"
$avFeature = _StringBetween($sText1, 'teleFeature.code = "', '";') ; FEATURE



$Input = "68994" ;let say i wanted to put 689954 to search for now if value not found booom crash
$Pos = _ArraySearch ($avFeature, $Input)
Switch $avFeature[$Pos]
Case 68819, 73501, 73417
;.... some unique calculation charging 30% extra.....
MsgBox(0, "account is over by: ", $Input & " and will be charged 30% fee")
Case 72146
;.... some unique calculation charging 15% extra.....
MsgBox(0, "account is over by: ", $Input & " and will be charged 15% fee")
Case 68994, 48526
;.... some unique calculation charging 65% extra.....
MsgBox(0, "account is over by: ", $Input & " and will be charged 65% fee")
Case Else
MsgBox(0, "account is over by: ", $Input & " FREE FOOD")
EndSwitch

if you're not convinced that your script works - post a small part of the HTML source code here. You only need to "tune" the string delimiters in _StringBetween

LukeJrs · August 8, 2007

This the actual html, I can find the code if i put it on $input to search for the array that contain that value to locate pos work good but what i'm trying to say let say the value on $input was more like $Input = "689954" and couldn't find it on array then crash the script can i make it not crash?

CODE

<html>

<head>

function setFeatures() {

var teleFeature;

var i = teleClientMgr.data.featureList.length;