Taking user input and calling a function from the input

[WoodGrain]

Hi guys,

Could someone please tell me what I'm doing wrong with this code?
I'm trying to take user input and then run a function with the same name, but it's not calling the function.

So in the below after pressing Shift+F8 I would enter the text (without quotes) "testFunc".
As you can see I've also tried this with IF statements, I'm new to using Switch/Case.

HotKeySet("+{F8}", RunManually)

Func RunManually()
   ;Use a case statement with 1 hot key and an InputBox to manually run functions
   $funcName = InputBox("Which Func to Run?", "Enter the name of the function to run")
   MsgBox(0, "Entered value", $funcName)
   ;If $funcName = testFunc Then testFunc()
   ;If $funcName = test2Func Then test2Func()
   Switch $funcName
      Case testFunc
         MsgBox(0, "Calling", "Calling Function")
         testFunc()
         MsgBox(0, "Called", "Function call finished")
      Case test2Func
         MsgBox(0, "Calling", "Calling Function")
         test2Func()
         MsgBox(0, "Called", "Function call finished")
   EndSwitch
EndFunc

While 1
   ;testFunc()
   Sleep(1000)
WEnd

Func testFunc()
      MsgBox(0, "func running", "Seems to work!")
EndFunc

Func test2Func()
      MsgBox(0, "func 2 running", "2 Seems to work!")
EndFunc

Thanks!

[alien4u]

Use quotation marks you are comparing against an String value which is what InputBox get...

expandcollapse popup

HotKeySet("+{F8}", RunManually)

Func RunManually()
   ;Use a case statement with 1 hot key and an InputBox to manually run functions
   $funcName = InputBox("Which Func to Run?", "Enter the name of the function to run")
   MsgBox(0, "Entered value", $funcName)
   
   ;If $funcName = "testFunc" Then
    ;   testFunc()
   ;EndIf
   ;If $funcName = "test2Func" Then
       ;test2Func()
   ;EndIf
   
   Switch $funcName
      Case "testFunc"
         MsgBox(0, "Calling", "Calling Function")
         testFunc()
         MsgBox(0, "Called", "Function call finished")
     Case "test2Func"
       MsgBox(0, "Calling", "Calling Function")
      test2Func()
         MsgBox(0, "Called", "Function call finished")
   EndSwitch
EndFunc

While 1
   ;testFunc()
   Sleep(1000)
WEnd

Func testFunc()
      MsgBox(0, "func running", "Seems to work!")
EndFunc

Func test2Func()
      MsgBox(0, "func 2 running", "2 Seems to work!")
EndFunc

Note both versions works, the one with the IF and the one with the Case...
 

 

[WoodGrain]

Thanks!!