determine bios setting

[gcue]

hello.

I am trying to determine the selected bios setting for SATA Emulation. The selected option is determined by a *. _arraysearch does not seem to support searching for that character. So I loop through each value to see which one has the asteris. This seems pretty inefficient - I'm sure there's a better way of doing this.

Thanks in advance =)

expandcollapse popup

#include <array.au3>

$msg_normal = 0

$string = "SATA Emulation: *IDE,--,RAID,AHCI"

$data = StringRegExp($string, "SATA Emulation: ([\S]*)", 3)

Debug($data)

$values = StringSplit($data[0], ",")

If @error Then
EndIf

Debug($values)

$index = _ArraySearch($values, "'*'")

If @error Then
EndIf

Debug($index, @error)

for $x = 1 to UBound($values)-1
if StringInStr($values[$x], "*") <> 0 Then
$selected_option = StringReplace($values[$x], "*", "")
EndIf
Next

Debug($selected_option)

Func Debug($variable1 = "", $variable2 = "", $variable3 = "")

If IsArray($variable1) Then
_ArrayDisplay($variable1)
Else
If $variable2 <> "" Then
$variable1 &= @CRLF & $variable2
EndIf

If $variable3 <> "" Then
$variable1 &= @CRLF & $variable3
EndIf

ClipPut($variable1)
MsgBox($msg_normal, "Debug", $variable1)
EndIf

EndFunc   ;==>Debug

[kylomas]

gcue,

This return protocals preceeded by an asterisk

$data = StringRegExp($string, "SATA Emulation: \*(.*?),", 3)

_arraysearch matches the entire element only, therefore, this would work

$index = _ArraySearch($values, "*IDE")

kylomas

[gcue]

gotcha thanks.

that stringregexp pattern works if IDE is the one that has the asterisk but not if any of the others do...

$string = "SATA Emulation: IDE,--,RAID,*AHCI"

[kylomas]

gcue,

Yes, my SRE stinks, sorry. I'm sure one of the Klingons will be by shortly to correct this.

kylomas

[BrewManNH]

I'm not sure how much better this one is, but at least it matches what you're looking for.

expandcollapse popup

#include <array.au3>
$msg_normal = 0

$string = "SATA Emulation: IDE,--,*RAID,AHCI"

;~ $data = StringRegExp($string, "SATA Emulation: ([\S]*)", 3)
$data = StringRegExp($string, "(\*(\b.*|.*))", 3)

Debug($data)
$values = StringSplit($data[0], ",")

If @error Then
EndIf

Debug($values)
$index = _ArraySearch($values, "*", 0, 0, 0, 1)

If @error Then
EndIf

Debug($index, @error)
$selected_option = StringReplace($values[$index], "*", "")

Debug($selected_option)

Func Debug($variable1 = "", $variable2 = "", $variable3 = "")
    If IsArray($variable1) Then
        _ArrayDisplay($variable1)
    Else
        If $variable2 <> "" Then
            $variable1 &= @CRLF & $variable2
        EndIf

        If $variable3 <> "" Then
            $variable1 &= @CRLF & $variable3
        EndIf
        ClipPut($variable1)
        MsgBox($msg_normal, "Debug", $variable1)
    EndIf

EndFunc   ;==>Debug

[gcue]

awesome thanks guys =)