Hallo,
Aus Zeitmangel (und da 4 Augen immer noch besser sehen als 2) mach ich mal einen Thread hierfür auf:
Ich wäre froh, wenn jemand mal ein paar UDFs durchtesten könnte. Mein script soll sie "installieren". Sprich ins include verzeichnis packen und die Calltips einbinden.
Ist natürlich erst eine Alpha, aber ich will garnicht erst Fehler auftreten lassen..
Also:
Mein Script starten, UDF "installieren", Scite neu starten, Calltips überprüfen.
Wäre toll!
Wenn jemand Fehler findet natürlich auch bitte bescheid sagen.
Ich danke euch.
Spoiler anzeigen
#include <String.au3>
#include <Array.au3>
$File = FileOpenDialog("","","AutoIt UDF's (*.au3)")
If @error Then exit
$FileName = StringRegExp($File,"(?<=\\)[\w\d]+\.[\w\d]+$",3)
$aArray = StringRegExp(FileRead($File),"(?<=Func )_?[a-zA-Z0-9]+\(.*\)",3)
For $i = 0 to UBound($aArray)-1
;~ StringStripWS($aArray[$i],8)
$aArray[$i] = StringRegExpReplace(StringRegExpReplace($aArray[$i],"\,\$\w+=[""'\w]+|\$\w+=[""'\w]+","[$0"),"\[,|\["," $0")
$iCount = @extended
$aArray[$i] = StringRegExpReplace(StringRegExpReplace($aArray[$i],"\)$",_StringRepeat("]",$iCount)&"$0"),"\( ","(")
$aArray[$i] = StringStripWS($aArray[$i],7) & " Requires: #Include <"&$FileName[0]&">"
Next
;~ _ArrayDisplay($aArray)
$string = _ArrayToString($aArray,@CRLF)
$AutoItDir = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt","InstallDir")
FileCopy($File,$AutoItDir&"\Include\"&$FileName[0])
$hCalltips = FileOpen($AutoItDir&"\SciTE\api\au3.user.calltips.api",1)
FileWrite($hCalltips,@CRLF&$string)
FileClose($hCalltips)
ShellExecute($AutoItDir&"\Include\")