Beiträge von wakillon
-
-
Welche phantasie UEZ !
Vielleicht ein link zum meinen Chiptunes Players Thema könnte interessant sein für german liebhaber von Chiptunes muzik.
-
sehr gute Idee UEZ!
Vielen Dank!
-
Ich vereinfacht den Code vorgeschlagen durch fire4orce@it
Spoiler anzeigen
[autoit]#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <File.au3>Global $_SciTEUserPropPath = @UserProfileDir & '\SciTEUser.properties'
[/autoit] [autoit][/autoit] [autoit]
Global $_au3PropPath = StringReplace ( RegRead ( 'HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\SciTE.exe', ''), '\SciTE.exe', '' ) & '\Properties\au3.properties'
ConsoleWrite ( '!> Free command number : ' & _SciTEGetCmdNbToUse ( ) & @Crlf )Func _SciTEGetCmdNbToUse ( )
[/autoit] [autoit][/autoit] [autoit]
Local $_FileReadArray1 = _GetCommandNameArray ( $_au3PropPath, 'command.name.' ), $_FileReadArray2 = _GetCommandNameArray ( $_SciTEUserPropPath, 'command.name.' )
For $_I = $_FileReadArray1[UBound ( $_FileReadArray1 ) - 1] + 1 To 49
If _ArraySearch ( $_FileReadArray2, $_I, 1, 0, 0, 1 ) = -1 Then Return $_I
Next
EndFunc ;==> _SciTEGetCmdNbToUse ( )Func _GetCommandNameArray ( $_FilePath, $_String )
[/autoit]
Local $_Array, $_RetArray[1], $_FindAll
_FileReadToArray ( $_FilePath, $_Array )
$_FindAll = _ArrayFindAll ( $_Array, $_String, 0, 0, 0, 1 )
For $_I = 0 To UBound ( $_FindAll ) -1
_ArrayAdd ( $_RetArray, Number ( StringRegExpReplace ( StringLeft ( $_Array[$_FindAll[$_I]], 16), '(?i)[^0-9]', '' ) ) )
Next
Return $_RetArray
EndFunc ;==> _GetCommandNameArray ( ) -
Hallo UEZ
Ich erhalte eine Fehlermeldung :
C:\Check Online Status.au3 (254) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
If $aIP[$e] < 0 Or $aIP[$e] > 255 Then
If ^ ERROR -
Ersetzen die Zeile 23 durch ShellExecute ( @ScriptDir & "\ffmpegthumbtemp" )