Sorting numbers into groups

[abc]

Hi,

I have little to no experience with Autoit and scripting in general.

Here is the problem which I have encountered:

There are various numbers corresponding to values. In total, there are 9999 numbers assigned to 180 values.

Example:

0001 - 0250: Value A

0251 - 1200: Value B

...and so on.

What I want to do, is to check a 4 digit string and have the proper value returned.

For example, if I check the number 0235, i want to have Value A returned since 0235 falls within the number range of 0001 - 0250.

I retrieve the number like this:

Func Find()
Dim $abc="12345678"
$kilde=(_INetGetSource( 'URL' & $abc ))
$nr=StringRegExp( $kilde, '(?:<br/>)([0-9]{4})(?:&nbsp;)', 1)
If @error == 0 Then 
return Plass() 
Else 
return "X"
EndIf
EndFunc

Then, I check what value the number corresponds to, like this:

Func Plass()
    If ($nr [0] >= "0001") and  ($nr [0] <= "1295") Then
        return "Value A"
    EndIf

    If ($nr [0] >= "1300") and  ($nr [0] <= "1369") Then
        return "Value B"
    EndIf
    
    If ($nr [0] >= "1371") and  ($nr [0] <= "1399") Then
        return "Value C"
    EndIf
    
    If ($nr [0] >= "1400") and  ($nr [0] <= "1459") Then
        return "Value D"
    EndIf

...and so on.

It works, however this seems to be an extremely redundant way to get the proper value returned. I need hundreds of lines of code just to find out if the number falls within one of 180 possible number ranges. Is there a more efficient way to do this?

I hope I have stated my problem clearly enough, and look forward to any kind of help.

[SmOke_N]

1. You are using >= on a string and not a number, in order to keep correct results, I suggest If Number(x) >= Number(y)

2. You could try to create a for/next loop to loop through all 180 scenerios... you may want to look at how arrays are set up, and possibly use that scenerio

pseudo

Dim $aMin(180) = [1, 1300, 1371, 1400, etc..]
Dim $aMax(180) = [1295, 1369, 1399, 1459, etc]
Dim $aValues(180) = ["value a", "value b", "value c", "value d", etc]
For $i = 0 To 179
    If Number($n[0]) >= $aMin[$i] And Number($n[0]) <= $aMax[$i] Then Return $aValues[$i]
Next

3. You could create an incredibly long hash table.

[abc]

You pointed me in the right direction, and now the script seems much tidy. Thanks!

[Valuater]

???

C:\Program Files\AutoIt3\Examples\My Stuff\junk.au3(3,10) : ERROR: syntax error
Dim $aMin(
~~~~~~~~~^
C:\Program Files\AutoIt3\Examples\My Stuff\junk.au3 - 1 error(s), 0 warning(s)

8)

[SmOke_N]

???

C:\Program Files\AutoIt3\Examples\My Stuff\junk.au3(3,10) : ERROR: syntax error
Dim $aMin(
~~~~~~~~~^
C:\Program Files\AutoIt3\Examples\My Stuff\junk.au3 - 1 error(s), 0 warning(s)

8)

Yeah, I was just telling George I saw that... Freebasic uses ()'s to determine their arrays, and I was writing a function there when I answered here ...

[Valuater]

I didn't know you were studying VB... thats great!!

8)

[GEOSoft]

Yeah, I was just telling George I saw that... Freebasic uses ()'s to determine their arrays, and I was writing a function there when I answered here ...

You can be forgiven. Just blame it on me distracting you.

[SmOke_N]

I didn't know you were studying VB... thats great!!

8)

(it's not vb lol)