read FUNC from a file and excute them as FUNC ?!

[Armand]

hey guys i was wandering how can i read a func from a file and make my program execute it> AS IS !!!

[DaleHohm]

DSo you really mean a function? Then:

#include <filename.au3>

_call_the_finction()

Dale

[Richard Robertson]

You cannot dynamically load a function at runtime. You can execute another script, but you cannot load a function from a file into the executing space.

[MrCreatoR]

Hi,

if you need read the whole function from other file (witch is not au3 file), and call it, you can't, but if you need to read just the name of function, and call it (the function is defined in your script), then you can try like this:

$FuncNameRead = FileReadLine("Test.txt", 1)

Call($FuncNameRead)

Func MyFunc()
   MsgBox(0, "", $FuncNameRead)
EndFunc

In this case the first line of file Test.txt must include this: MyFunc

[MrCreatoR]

if you need read the whole function from other file (witch is not au3 file), and call it, you can't

I am totaly wrong, sorry, you definitly can....

as DaleHohm seguest, you can read the function even from text file:

#include <test.txt>

Test()

And the file test.txt will include this:

Func Test()

MsgBox(0, "", "")

EndFunc

[MHz]

You cannot dynamically load a function at runtime. You can execute another script, but you cannot load a function from a file into the executing space.

I guess the Microsoft Script Control Object made for running dynamic code cannot do this? I think it can.

[Pakku]

I am totaly wrong, sorry, you definitly can....

as DaleHohm seguest, you can read the function even from text file:

#include <test.txt>

Test()

And the file test.txt will include this:

Func Test()

MsgBox(0, "", "")

EndFunc

BUT 'test.txt' will be INCLUDED in the script so after compilation it isn't posible to let your program run an other function by editing test.txt

so you can not run a function from a txt file dynamicly. so i think your previous post is the best one to do this.

Edited November 16, 2010 by Pakku

[Gif]

BUT 'test.txt' will be INCLUDED in the script so after compilation it isn't posible to let your program run an other function by editing test.txt

so you can not run a function from a txt file dynamicly. so i think your previous post is the best one to do this.

Arjan

if you include the .txt in a zipped folder after the compilations this might work..

[GaryFrost]

Haven't tried it, but might be able to vbs in autoit that way.

[Pakku]

if you include the .txt in a zipped folder after the compilations this might work..

Well it takes the content of the include file (open it with notepad or something) and adds that to de place where you have the line #include<file.zip> so after compilation you can edit the zip file but it has no effect

EDIT: and if this was possible, it would be VERY VERY dangeraus!

Edited November 16, 2010 by Pakku

[GaryFrost]

This is from randallac's quick sort

expandcollapse popup

Func _Quick_SortColumn(ByRef $ar_Array, $First, $Last, $i_ViewColNum = 1)
    If (Not IsArray($ar_Array)) Or $i_ViewColNum > UBound($ar_Array) Or $i_ViewColNum < 1 Then
        SetError(1)
        Return ""
    EndIf
    If UBound($ar_Array) = 1 Then; If the array is only 1 element in size then we can't delete the 1 element.
        SetError(2)
        Return ""
    EndIf
    Local $vbs, $code = "function Quick_SortColumn1(ByRef SortArray, First, Last,i_ViewColNum)"
    $code &= @LF & "    dim strWrite,ar_Col,ar_Column()"
    $code &= @LF & "    ReDim Preserve ar_Column(ubound(SortArray))"
    $code &= @LF & "    Dim intPointer, booIsNumeric: booIsNumeric = True"
    $code &= @LF & "    For intPointer = First To Last"
    $code &= @LF & '        ar_Col = Split( SortArray(intPointer), "|", -1,0 )'
    $code &= @LF & "        If Not IsNumeric( ar_Col(i_ViewColNum) ) Then"
    $code &= @LF & "            booIsNumeric = False"
    $code &= @LF & "            Exit For"
    $code &= @LF & "        End If"
    $code &= @LF & "    Next"
    $code &= @LF & "    For intPointer = First To Last"
    $code &= @LF & '        ar_Col = Split( SortArray(intPointer), "|", -1,0 )'
    $code &= @LF & '            If booIsNumeric Then'
    $code &= @LF & "            ar_Column(intPointer)  = CSng( ar_Col(i_ViewColNum) )"
    $code &= @LF & "        else"
    $code &= @LF & "            ar_Column(intPointer)  =  ar_Col(i_ViewColNum)"
    $code &= @LF & "        End If"
    $code &= @LF & "    Next"
    $code &= @LF & "    Quick_SortColumn  SortArray, ar_Column,First, Last,i_ViewColNum "
    $code &= @LF & "    Quick_SortColumn1= SortArray"
    $code &= @LF & "End function   "
    $code &= @LF & "function Quick_SortColumn(ByRef SortArray, ByRef ar_Column, First, Last,i_ViewColNum)"
    $code &= @LF & "    dim Low,High,collitem,ar_Col"
    $code &= @LF & "    dim Temp,List_Separator"
    $code &= @LF & "    Low = First"
    $code &= @LF & "    High = Last"
    $code &= @LF & "    List_Separator=ar_Column((First + Last) / 2)"
    $code &= @LF & "    Do"
    $code &= @LF & "        While (ar_Column(Low) < List_Separator)"
    $code &= @LF & "            Low = Low + 1"
    $code &= @LF & "        WEnd"
    $code &= @LF & "        While (ar_Column(High) > List_Separator)"
    $code &= @LF & "            High = High - 1"
    $code &= @LF & "        WEnd"
    $code &= @LF & "        If (Low <= High) Then"
    $code &= @LF & "            Temp = SortArray(Low)"
    $code &= @LF & "            SortArray(Low) = SortArray(High)"
    $code &= @LF & "            SortArray(High) = Temp"
    $code &= @LF & "            Temp = ar_Column(Low)"
    $code &= @LF & "            ar_Column(Low) = ar_Column(High)"
    $code &= @LF & "            ar_Column(High) = Temp"
    $code &= @LF & "            Low = Low + 1"
    $code &= @LF & "            High = High - 1"
    $code &= @LF & "        End If"
    $code &= @LF & "    Loop While (Low <= High)"
    $code &= @LF & "    If (First < High) Then Quick_SortColumn  SortArray, ar_Column,First, High,i_ViewColNum "
    $code &= @LF & "    If (Low < Last) Then Quick_SortColumn  SortArray, ar_Column,Low, Last,i_ViewColNum "
    $code &= @LF & "End function   "
    $vbs = ObjCreate("ScriptControl")
    If @error Then ;Return 0; SetError(Hex(@error, 8));EndIf
        SetError(3)
        Return ""
    EndIf
    $vbs.language = "vbscript"
    $vbs.addcode ($code)
    $ar_Array = $vbs.Run("Quick_SortColumn1", $ar_Array, $First, $Last, $i_ViewColNum - 1)
    If @error Then ;Return 0; SetError(Hex(@error, 8));EndIf
        SetError(4)
        Return ""
    EndIf
    $vbs = ""
    SetError(0)
    Return 1
EndFunc   ;==>_Quick_SortColumn

as you can see you can add code to the vbs, so you probably could have the vbs code in a file read it in and addcode and run