StringInStr <> 0 but still else

[careca]

 

Hi, Maybe it's late, maybe i don't know what im doing, all i know is that $Str is different than 0, first result for me is '*' but still does 'Else'.

Im puzzled.

Local $sVar, $i = 1

Do
    $sVar = RegEnumKey("HKCR", $i)
    If @error <> 0 Then ExitLoop
    $Str = StringInStr($sVar, '.')
    If $Str <> 0 Then
    ConsoleWrite("Value Name  #" & $i & " under in AutoIt3 key " & $sVar &' - '&@MSEC&@CRLF)
    $i = $i + 1
    Else
    $i = 'Done'
    EndIf
Until $i = 'Done'

any idea what is going on? From what i get, if stringinstr fails to find the '.' it should output 0.

Edited December 31, 2016 by careca

[careca]

Oh crap, i figured it out, first key in registry is *, so of course there it isn't a dot. i need to go to sleep.

[careca]

Just so that this topic isn't totally useless, here's what i just done:

Local $sVar, $sVar2,$sVar3,$sVar4, $Str, $Str2, $i = 2

Do
    $sVar = RegEnumKey("HKCR", $i)
    If @error <> 0 Then ExitLoop
    $Str = StringInStr($sVar, '.')
    If $Str <> 0 Then
        For $u = 1 To 5
            $sVar2 = RegEnumKey("HKCR\" & $sVar, $u)
            If @error <> 0 Then ExitLoop
            $Str2 = StringInStr($sVar2, 'OpenWithList', 2)
            If $Str2 <> 0 Then
                For $v = 1 To 5
                    $sVar3 = RegEnumKey("HKCR\" & $sVar & '\' & $sVar2, $v)
                    If @error <> 0 Then ExitLoop
                    $sVar4 = RegRead("HKCR\" & $sVar & '\' & $sVar2 & '\' & $sVar3, '')
                    If $sVar4 <> '' Then
                    ConsoleWrite("HKCR\" & $sVar & '\' & $sVar2&'\' & $sVar3 &'\' &$sVar4 &' - ' & @MSEC & @CRLF)
                    EndIf
                Next
            EndIf
        Next
        $i = $i + 1
    Else
        $i = 'Done'
    EndIf
Until $i = 'Done'

Provides a list of the 'OpenWithList' executables with corresponding path, for the extension.

[iamtheky]

2 hours ago, careca said:

need to go to sleep

I almost asked why you were comparing a $Str with a number, tired assumptions are fun.

[genius257]

4 minutes ago, iamtheky said:

I almost asked why you were comparing a $Str with a number, tired assumptions are fun.

$Str IS a number. Representing the position of "." found in $sVar

[iamtheky]

was the joke not painfully obvious?

who names their number $String?

Edited December 31, 2016 by iamtheky

[genius257]

39 minutes ago, iamtheky said:

was the joke not painfully obvious?

who names their number $String?

My apologies. I'm afraid i do not interpret humor well through text.

And from experience i can tell you, when depraved of sleep there is no guarantee that anything makes sense.

[JLogan3o13]

Certainly nothing is going to make sense if you're depraved...

Spoiler

 

Edited January 1, 2017 by JLogan3o13

[Somerset]

10 minutes ago, JLogan3o13 said:

Certainly nothing is going to make sense if you're depraved...

  Reveal hidden contents

 

You called?

[Danyfirex]

Hello. nothing important. but why comparing this way "If @error<>0 then" . Just do it like "if If @error then"...

 

 

Saludos

[careca]

Yeah. Either way is fine to me, sometimes i do one, other times i do the other.