String erweitern?!

1. offizieller Beitrag
    [autoit]

    #include <WindowsConstants.au3>
    #include <EditConstants.au3>
    #Include <string.au3>
    opt("TrayIconDebug",1)
    Dim $hGUIY = GUICreate("XY", 140, 200, -1, -1, $WS_CAPTION)
    Dim $Edit = GUICtrlCreateEdit("", 0, 0, 140, 200, $ES_READONLY + $ES_AUTOHSCROLL + $ES_AUTOVSCROLL)
    GUISetState(@SW_SHOW, $hGUIY)

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

    $Text = "Text"
    If StringLen($Text) < 10 Then
    Do
    _StringInsert($Text, ".", -2)
    Until StringLen($Text) = 10
    EndIf

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

    GUICtrlSetData($Edit, GUICtrlRead($Edit) & $Text & @CRLF)

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

    While True
    Sleep(10)
    WEnd

    [/autoit]

    Wieso funktioniert das nicht? Ich möchte den String um "." erweitern bis er eine Länge von 10 hat!

    Einmal editiert, zuletzt von freakisch (12. Mai 2009 um 14:20)

    warum so kompliziert:

    [autoit]

    #include <WindowsConstants.au3>
    #include <EditConstants.au3>
    #Include <string.au3>
    opt("TrayIconDebug",1)
    Dim $hGUIY = GUICreate("XY", 140, 200, -1, -1, $WS_CAPTION)
    Dim $Edit = GUICtrlCreateEdit("", 0, 0, 140, 200, $ES_READONLY + $ES_AUTOHSCROLL + $ES_AUTOVSCROLL)
    GUISetState(@SW_SHOW, $hGUIY)

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

    $Text = "Text"
    while Stringlen($Text) < 10
    $Text &= "."
    wend

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

    GUICtrlSetData($Edit, GUICtrlRead($Edit) & $Text & @CRLF)

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

    While True
    Sleep(10)
    WEnd

    [/autoit]
    [autoit]


    #Include <string.au3>
    $text="text"
    Do
    $text=_StringInsert($text, ".", StringLen($text))
    Until StringLen($text)=10
    MsgBox(0, "", $text)

    [/autoit]

    so ginge es mit deiner variante