[String] StringIsSpace - Leerstellen in einem String wegmachen

    Hi
    Und wieder eine schöne Frage =)

    [autoit]

    HotKeySet ("{Numpad5}","mach")
    While (1)
    Sleep (1000)
    WEnd

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

    Func mach ()
    $Text = InputBox ("","")
    $count = StringLen ($Text)
    For $i = 1 to $count
    Send (StringLeft ($Text,$i))
    Send ("{Enter}")
    Next
    EndFunc

    [/autoit]

    Das ist mein Programm - ich weiß ziemlich sinnlos ;D
    Am besten ihr probiert es einfach ...
    Was es im Moment macht:
    Wenn der $Text = Hi ihrs dann macht er:
    H
    Hi
    Hi
    Hi i
    Hi ih
    Hi ihr
    Hi ihrs

    Nun möchte ich im Programm jedoch, dass er im String die Leerstellen sich vorerst "wegdenkt" [<= Im Programm soll er die sich halt wegdenken... sonst denke ich haut es nicht hin ;D] und dann die Leerstelle + den nächsten Buchstaben schreibt, also er soll dann statdessen machen:
    $Text = Hi ihrs
    H
    Hi; er soll hier Hi nicht mehr wiederholen
    Hi i
    Hi ih
    Hi ihr
    Hi ihrs

    Hierzu müsste ich wissen, wie ich es mache, dass er wenn der Text ($Text) " " ist, dass er dann nichts macht... :D
    Ich habe mich schon mit StringIsSpace durchprobiert ... aber da will irgendwie überhaupt nichts klappen =)

    Lösungsvorschläge wären toll =) Oder zumindest Tipps ;D

    Mit sehr freundlichen Grüßen
    MasterRobb


    :thumbup:

    Lächel, du kannst sie nicht alle töten.

    Einmal editiert, zuletzt von masterRobb (19. November 2009 um 17:09)

    schau dir mal StringMid an

    Spoiler anzeigen
    [autoit]


    HotKeySet ("{Numpad5}","mach")
    While (1)
    Sleep (1000)
    WEnd

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

    Func mach ()
    $Text = InputBox ("","")
    $count = StringLen ($Text)
    For $i = 1 to $count
    If StringMid($Text, $i, 1) <> " " Then
    Send (StringLeft ($Text,$i))
    Send ("{Enter}")
    EndIf
    Next
    EndFunc

    [/autoit]


    ungetestet (hab hier leider kein Autoit)

    Hi!

    Schau dir mal

    [autoit]

    StringStripWS ( "string", flag )

    [/autoit]

    an!

    LG Concara

    edit:

    Spoiler anzeigen
    [autoit]


    HotKeySet ("{Numpad5}","mach")
    While (1)
    Sleep (1000)
    WEnd

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

    Func mach ()
    $Text = InputBox ("","","Concara go home please")
    $Text = StringStripWS($Text, 7)
    ShellExecute("Notepad.exe")
    WinWait("Unbenannt")
    WinActivate("Unbenannt")
    $count = StringLen ($Text)
    For $i = 1 to $count
    If StringMid($Text, $i, 1) <> " " Then
    Send (StringLeft ($Text,$i))
    Send ("{Enter}")
    EndIf
    Next
    EndFunc

    [/autoit]

    If not :?: then ?( else :thumbup:

    Einmal editiert, zuletzt von Concara (19. November 2009 um 17:50)

    Noch ne Möglichkeit wär:

    [autoit]

    HotKeySet ("{Numpad5}","mach")
    While (1)
    Sleep (1000)
    WEnd

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

    Func mach ()
    $Text = InputBox ("","")
    $count = StringLen ($Text)
    For $i = 1 to $count
    If StringRight(StringLeft ($Text,$i), 1) <> Chr(32) Then
    Send (StringLeft ($Text,$i))
    Send ("{Enter}")
    EndIf
    Next
    EndFunc

    [/autoit]

    Lg Arkaneus