Creating words to search

[Sobiech]

Func _atts()
$aAtt[20]

$l = 13
For $i = 0 To 8
$aAtt[$i] = StringTrimLeft(FileReadLine($INI, $l), 5)
$l = $l + 1
Next

$l = 14
For $i = 9 To 19
$aAtt[$i] = StringTrimLeft(FileReadLine($INI, $l), 6)
$l = $l + 1
Next

EndFunc

This will declare Array, but how to use this array in

If StringInStr(_GetAtt(), $aAtt) Then

HMmm any ideas?

Edited July 12, 2010 by Sobiech

[Melba23]

Sobiech,

How about explaining in a bit more detail what on earth you are trying to do because at the moment I have not the slightest idea!

For example:

If StringInStr(_GetAtt(), $aAtt) Then

- What does function _GetAtt return?

- Do you want to check if a single element of $aAtt is present or do you need to know if there are several?

- The $aAtt array is declared within your _atts function - is it Local to that function or Global in scope?

Give us a bit more to work on please!

M23

[Mison]

How about explaining in a bit more detail what on earth you are trying to do

Agree. Maybe this could give you something to start with:

Local $array1[3] = ["one", "two", "three"]
Local $array2[3] = ["1","2","3"]
Local $search = "five"

SearchArray()

Func SearchArray()
    For $i = 0 To 2
        For $j = 0 To 2
            If StringInStr($array1[$j],$search) Then
                MsgBox(0,"",$search&"="&$array2[$j])
                Exit
            EndIf
        Next
    Next
    MsgBox(0,"",$search&"=Not found.")
EndFunc

[Sobiech]

Maybe i show this on code

Dim $line[4]

$line[0] = IniRead($INI, "SomeSec", "att0", "")
$line[1] = IniRead($INI, "SomeSec", "att1", "")
$line[2] = IniRead($INI, "SomeSec", "att2", "")
$line[3] = IniRead($INI, "SomeSec", "att3", "")

If $line[0] = "x" Then
    ; Do sth
EndIf

If $line[1] = "x" Then
    ; Do sth
EndIf

If $line[2] = "x" Then
    ; Do sth
EndIf

If $line[3] = "x" Then
    ; Do sth
EndIf

This code is too long...

I need sth like this

Dim $line[4]

$line[0] = IniRead($INI, "SomeSec", "att0", "")
$line[1] = IniRead($INI, "SomeSec", "att1", "")
$line[2] = IniRead($INI, "SomeSec", "att2", "")
$line[3] = IniRead($INI, "SomeSec", "att3", "")

If <one element of $line array> = "x" Then
; Do Sth
EndIf

Just to do not create XX IFs

How to write all elements in one variable? Just not $line[2], sth like $line[all]

Edited July 12, 2010 by Sobiech

[Melba23]

Sobiech,

You cannot compare all the elements in one variable - you must use a loop.

What I would do is add another section to the Ini file listing function names to call if that particular att? variable is "x". Then you could run your loop like this:

For $i = 1 To 4
    If IniRead($INI, "SomeSec", "att" & $i, "") = "x" Then Call(IniRead($INI, "SomeFunc", "att" & $i, "")
Next

using an Ini file that looked like this:

[SomeSec]
att1=x ; or whatever else it might be
att2=x
att3=x
att4=x
[SomeFunc]
att1=Func_1 ; code to run if att1 = "x"
att2=Func_2
att3=Func_3
att4=Func_4

It also has the advantage of keeping the code to run for each att? in a single function for easy maintenance.

M23

[GEOSoft]

Something like this maybe?

For $i = 1 To Ubound($aArray) -1
    If $aArray[$i] = "x" Then
        Switch $i
            Case 1
                ;Do Something
            Case 2
                ;Do Something Else
        EndSwitch
    EndIf
Next

You could also look in the Array.au3 UDF for _ArraySearch() and _ArrayFindAll(). Those are a couple of functions that could probably save you a lot of code in the long run.

[Sobiech]

You cannot compare all the elements in one variable - you must use a loop.

^^

So many posts, and this is the best answer

Thx for all

I will use a Loop