Also 1.
Absolut Krass.
mehr brauch ich wohl nicht sagen.
Aber witzig, schau was ich von gestern auf heute geschrieben habe, hahaha
C
;=============] [Includes] [>>]
#include-once
#include <String.au3>
#include <Array.au3>
#include "AutoItObject.au3"
;=============] [Includes] [End] [<<]
;=============] [Variable-Declaration], [Object-Initialization] [>>]
Global $mStrings, $mStrings_Class, $new_class_name='nParser_Convert_oParser' ;
_AutoItObject_Startup() ;
If @error Then Exit ; exit on error
;=============] [Variables-declared], [Object-Initialized] <<
;=============] [Creating-Object] [>>]
$mStrings = magic_strings_object()
$mStrings_Class = magic_strings_class($new_class_name)
;=============] [Created] [<<]
With $mStrings
;$sPattern = '(\$[_\w]+)(?:\s*=[^,])?' ; OHNE ZUWEISUNGEN
$sPattern = '(\$[_\w]+)(?:\s*=([^,]+))?' ; MIT ZUWEISUNGEN
$aResult = StringRegExp($sLine, $sPattern, 3)
For $i = 0 To UBound($aResult) -1
ConsoleWrite($aResult[$i] & @CRLF)
Next
#cs
(\$[_\w]+)(?:\s*=([^,]+))?
#ce
EndWith
;=============] [Object-Definition] [>>]
Func magic_strings_object()
Global $magic_string_obj_intern = _AutoitObject_Create(); create obj
With $magic_string_obj_intern
_AutoitObject_AddProperty ($magic_string_obj_intern,"COMPLETE_FILE_READ", $ELSCOPE_PUBLIC,'')
_AutoitObject_AddProperty ($magic_string_obj_intern,"FILE_READ_TO_ARRAY", $ELSCOPE_PUBLIC,'')
_AutoitObject_AddProperty ($magic_string_obj_intern,"NEXT_STRING", $ELSCOPE_PUBLIC,'')
_AutoitObject_AddProperty ($magic_string_obj_intern,"TMP_STR_ONE", $ELSCOPE_PUBLIC,'')
_AutoItObject_AddMethod ($magic_string_obj_intern,"not_compare", "__magic_string_compare_not")
_AutoItObject_AddMethod ($magic_string_obj_intern,"compare", "__magic_string_compare")
Endwith
Return $magic_string_obj_intern
EndFunc;======][Object-Definition-End] [<<]
Func magic_strings_class($new_class_name='nParser_Convert_oParser');class-name
Local $class_intern = _AutoItObject_Class() ;create_class
Local $magic_intern = magic_strings_class_constants()
With $class_intern
.AddProperty ("NEW_CLASSNAME", $ELSCOPE_READONLY, $new_class_name)
.AddProperty ("CONVERT_FILE", $ELSCOPE_PUBLIC, $magic_intern.CONVERT_FILE_PATH.CONVERT_FILE_NAME)
.AddProperty ("LAST_SAVE", $ELSCOPE_PUBLIC, '')
.AddProperty ("SAVE", $ELSCOPE_PUBLIC, '')
.AddProperty ("TRASH", $ELSCOPE_PUBLIC, '')
.AddProperty ("TMP_STRING", $ELSCOPE_PUBLIC, '')
.AddProperty ("CUR_STRING", $ELSCOPE_PUBLIC, '')
.AddProperty ("CUR_FUNC_STR", $ELSCOPE_PUBLIC, '')
.AddProperty ("CUR_METHOD_STR", $ELSCOPE_PUBLIC, '')
.AddProperty ("CUR_VAR_STR", $ELSCOPE_PUBLIC, '')
.AddMethod ('add', '__class_magic_add_string')
.AddMethod ('del', '__class_magic_del_string')
.AddMethod ('show', '__class_magic_show_string')
.AddMethod ('move', '__class_magic_move_string')
.AddMethod ('','')
Endwith
Return $class_intern.Object
Endfunc;======][Class-Definition-End] [<<]
Func magic_strings_class_database()
Dim $OBJ_METHOD_FUNC,$OBJ_METHOD,$OBJ_METHOD_PROP,$CLASS_PROPERTYS
Local $class_intern = _AutoItObject_Class() ;create_class
With $class_intern
.AddProperty ("OBJ_METHOD_ARRAY", $ELSCOPE_PUBLIC, $OBJ_METHOD_FUNC)
.AddProperty ("OBJ_MET_FUNC_ARRAY", $ELSCOPE_PUBLIC, $OBJ_METHOD)
.AddProperty ("OBJ_PROPERTY_ARRAY", $ELSCOPE_PUBLIC, $OBJ_METHOD_PROP)
.AddProperty ("CLASS_PROP_ARRAY", $ELSCOPE_PUBLIC, $CLASS_PROPERTYS)
.AddProperty ("OBJ_METHOD_STR", $ELSCOPE_PUBLIC, "")
.AddProperty ("OBJ_MET_FUNC_STR", $ELSCOPE_PUBLIC, "")
.AddProperty ("OBJ_PROPERTY_STR", $ELSCOPE_PUBLIC, "")
.AddProperty ("CLASS_PROP_STR", $ELSCOPE_PUBLIC, "")
.AddProperty ("OBJ_METHOD_CNT", $ELSCOPE_PUBLIC, 0)
.AddProperty ("OBJ_MET_FUNC_CNT", $ELSCOPE_PUBLIC, 0)
.AddProperty ("OBJ_PROPERTY_CNT", $ELSCOPE_PUBLIC, 0)
.AddProperty ("CLASS_PROP_CNT", $ELSCOPE_PUBLIC, 0)
.AddProperty ("WORKING_STRING", $ELSCOPE_PUBLIC, "")
.AddMethod ('add_method_str', '__set_obj_method_str')
.AddMethod ('add_met_func_str', '__set_obj_met_func_str')
.AddMethod ('add_property_str', '__set_obj_property_str')
.AddMethod ('add_class_property_str', '__set_class_prop_str')
Endwith
Return $class_intern.Object
Endfunc
Func __set_obj_method_str($oSelf)
With $oSelf
.OBJ_METHOD_STR = .WORKING_STRING
.OBJ_METHOD_CNT += 1
Dim $tmp[.OBJ_METHOD_CNT] = .OBJ_METHOD_ARRAY
$tmp[.OBJ_METHOD_CNT-1] = .OBJ_METHOD_STR
.OBJ_METHOD_ARRAY = .OBJ_METHOD_ARRAY
dbg(.OBJ_METHOD_STR,1)
Endwith
Return $class_intern.Object
Endfunc
Func __set_obj_met_func_str($oSelf)
With $oSelf
.OBJ_MET_FUNC_STR = .WORKING_STRING
.OBJ_MET_FUNC_CNT += 1
Endwith
Return $class_intern.Object
Endfunc
Func __set_obj_property_str($oSelf)
With $oSelf
.OBJ_PROPERTY_STR = .WORKING_STRING
.OBJ_PROPERTY_CNT += 1
Endwith
Return $class_intern.Object
Endfunc
Func __set_class_prop_str($oSelf)
With $oSelf
.CLASS_PROP_STR = .WORKING_STRING
.CLASS_PROP_CNT += 1
Endwith
Return $class_intern.Object
Endfunc
Func magic_strings_class_constants()
Local $class_intern = _AutoItObject_Class() ;create_class
With $class_intern
.AddProperty ("TIDYPATH", $ELSCOPE_READONLY, 'D:\Data\Programme\AutoIt3\SciTE\Tidy\Tidy.exe')
.AddProperty ("CONVERT_FILE_PATH", $ELSCOPE_READONLY, @ScriptDir&"\test\")
.AddProperty ("CONVERT_FILE_NAME", $ELSCOPE_READONLY, "selfconvert.au3")
.AddProperty ("CONVERT_FILE_PATHs", $ELSCOPE_READONLY, '%%CONVERT_FILE_PATH%%')
.AddProperty ("CONVERT_FILE_NAMEs", $ELSCOPE_READONLY, '%%NEW_CLASSNAME%%')
.AddProperty ("VERSION", $ELSCOPE_READONLY, 'v0.85 pub.alpha')
.AddProperty ("VERSIONs", $ELSCOPE_READONLY, '%%VERSION%%')
.AddProperty ("DELIMs", $ELSCOPE_READONLY, '%%DELIM%%')
.AddProperty ("CRs", $ELSCOPE_READONLY, '%%CR%%')
.AddProperty ("CRr", $ELSCOPE_READONLY, @CR)
.AddProperty ("DELIMr", $ELSCOPE_READONLY, "")
.AddProperty ("HEADER_DELIM", $ELSCOPE_PUBLIC, ';================================================;')
.AddProperty ("HEADER_ONE", $ELSCOPE_PUBLIC, ';| [A]uto[IT] - [Script]-to-[OOP-Converter] |;')
.AddProperty ("HEADER_TWO", $ELSCOPE_PUBLIC, ';| (c)2017 by busti_ownz@me.com |;')
.AddProperty ("HEADER_THR", $ELSCOPE_PUBLIC, ';| Converted with AutoIT "'&@AutoItVersion&'" and |;')
.AddProperty ("HEADER_FOU", $ELSCOPE_PUBLIC, ';| Class And Object Parser & Builder "%%VERSION%%" |;')
.AddProperty ("HEADER_FIV", $ELSCOPE_PUBLIC, ';| '&StringTrimLeft('%%CONVERT_FILE_PATH%%',StringInStr('%%CONVERT_FILE_PATH%%',"\",1,-1)) & ' [>>] ' &'%%NEW_CLASSNAME%%%%CR%%%%CR%%')
.AddProperty ("HEADER_SIX", $ELSCOPE_PUBLIC, ';| released on: ["autoit.de"/"codebot.de"] |;')
.AddProperty ("HEADER_SEV", $ELSCOPE_PUBLIC, ';================================================;')
.AddProperty ("HEADER_STR", $ELSCOPE_PUBLIC, '')
.AddProperty ("INTERN_COUNT", $ELSCOPE_PUBLIC, 0)
Endwith
Return $class_intern.Object
Endfunc;======][Class-Definition-End] [<<]
Func _dbg($msg,$i=1)
Return ConsoleWrite('!'&$i&' ] ' & $msg & @CR)
EndFunc
Func __class_magic_move_string($oSelf,$take_from,$pos,$put_to)
With $oSelf
EndWith
EndFunc
Func __class_magic_show_string($oSelf,$tree=1,$count=1)
With $oSelf
Switch $tree
Case 1
Return
Case 2
Return
Case 3
Return
EndSwitch
Return -1; wrong selection
EndWith
EndFunc
Func __class_magic_del_last_string($oSelf,$index)
With $oSelf
.UNKOWN_STRING = $NewString
Return ._class_move_string
EndWith
EndFunc
Func __class_magic_add_string($oSelf,$NewString)
With $oSelf
.UNKOWN_STRING = $NewString
.CUR_STRING = $NewString
.count_increase
Return .move
EndWith
EndFunc
Func __magic_string_readfile($oSelf,$file)
With $oSelf
Return FileRead(FileOpen($file))
EndWith
EndFunc
Func __magic_string_replace($oSelf,$string,$search,$rep='',$occ=0,$case=1)
With $oSelf
Return StringReplace($string,$search,$rep,$occ,$case)
EndWith
EndFunc
Func __magic_string_regex($oSelf,$string,$ptn,$flag=3,$occ=1)
With $oSelf
Return StringRegExp($string,$ptn,$flag,$occ)
EndWith
EndFunc
Func __magic_string_regexprep($oSelf,$string,$ptn,$rep,$count)
With $oSelf
Return StringRegExpReplace($string,$ptn,$rep,$count)
EndWith
EndFunc
Func __magic_string_get($oSelf,$string,$count,$lor=0)
With $oSelf
If ($lor >= 0) Then Return StringLeft($string,$count)
Return StringRight($string,$count)
EndWith
EndFunc
Func __magic_string_trim($oSelf,$string,$count,$lor=0)
With $oSelf
If ($lor >= 0) Then;links
Return StringTrimLeft($string,$count)
ElseIf ($lor < 0) Then;rechts
Return StringTrimRight($string,$count)
EndIf
EndWith
EndFunc
Func __magic_string_getlen($oSelf,$string)
With $oSelf
Return StringLen($string)
EndWith
EndFunc
Func __magic_string_compare_part( $oSelf, $string, $string_two, $case=0 )
With $oSelf
Local $string_len = StringLen($string_two)
If $mode >= 0 Then Return (StringCompare(StringLeft($string,$string_len),$string_two,$case)
Return (StringCompare(StringRight($string,$string_len),$string_two,$case)
EndWith
EndFunc
Func __magic_string_compare_part_not( $oSelf, $string, $string_two, $case=0 )
With $oSelf
Local $string_len = StringLen($string_two)
If $mode >= 0 Then Return Not (StringCompare(StringLeft($string,$string_len),$string_two,$case)
Return Not (StringCompare(StringRight($string,$string_len),$string_two,$case)
EndWith
EndFunc
Func __magic_string_compare_not($oSelf, $string_one, $string_two)
With $oSelf
If $mode >= 0 Then Return Not (StringCompare($string_one,$string_two));left
Return Not (StringCompare($string_one,$string_two))
EndWith
EndFunc
Func __magic_string_compare($oSelf, $string_one, $string_two)
With $oSelf
If $mode >= 0 Then Return StringCompare($string_one,$string_two)
Return StringCompare($string_one,$string_two)
EndWith
EndFunc
Alles anzeigen