Endfunc ;==>Funktionsname

1. offizieller Beitrag

    Für die Faulen :D

    [autoit]

    ;blubbstar
    ;Fügt hinter EndFunc ;==>Funktionsname an, damit man eine bessere Übersicht hat, welches Endfunc zur welcher Funktion gehört.
    #include <String.au3>
    #include <File.au3>

    [/autoit][autoit][/autoit][autoit]

    $Func = False
    $Endfunc = False

    [/autoit][autoit][/autoit][autoit]

    $Datei = @DesktopDir & "\test.au3"
    $lines = _FileCountLines($Datei)

    [/autoit][autoit][/autoit][autoit]

    For $i = 0 to $lines
    $Zeile = StringLower(FileReadLine($Datei, $i))
    If $Func = False and StringInStr($Zeile, "func") Then
    $a = StringInStr($Zeile, "func")
    $b = StringInStr($Zeile, ";")
    If $b = "0" or $b > $a Then
    $Funcname = StringTrimLeft($Zeile, 4)
    $Funcname = _StringBetween($Funcname, " ", "(")
    $Func = True
    EndIf
    ElseIf $Func = True And StringInStr($Zeile, "endfunc") Then
    $a = StringInStr($Zeile, "endfunc")
    $b = StringInStr($Zeile, ";")
    If $b = "0" or $b > $a Then
    _FileWriteToLine($Datei, $i, "EndFunc ;==>"&$Funcname[0], 1)
    $Func = False
    EndIf
    EndIf
    Next

    [/autoit]