XProfan

ipouttxt$=Translate$(ipouttxt$,@Chr$(10),"")
bla$=trim$(blub$)e>

String verlängern

Proc extend

    parameters var$, length%

    while len(var$)<length%

        var$=var$+" "

    endwhile

endproc

Testprogramm
declare text$,text1$,text2$,textg$,edit%
windowstyle 27
windowtitle "test"
window 50,50,600,600
edit%=create("multiedit",%hWnd,"",60,60,500,200)
text$="hallo"
text1$=text$+"		-	welt
"
extend text$,12
text2$=text$+"		-	welt"
textg$=text1$+text2$
settext edit%,textg$
waitkey

Declare-Teil:
declare ping%, btn%, ipinput%, ipoutput%, exit%, ipline%, ip$, curline%
declare outgesamt$, outtxt$, statusbar%, text1%, text2%
Proc-Teil:

Proc Ping

    declare pingdatei1$, pingdatei2$, pingstring$, ping$
    Parameters ip$
    let pingdatei1$="PINGTEST.TXT"
    let pingdatei2$="PING.BAT"
    let pingstring$="PING.EXE -n 1",ip$,">",pingdatei1$
    Assign #6,pingdatei2$
    Rewrite #6
    Print #6,pingstring$
    Close #6
    WinExecwait(pingdatei2$,0)
    Assign #5,pingdatei2$
    Erase #5
    ASSIGN #3,pingdatei1$
    RESET #3
    Ping%=0

    WHILENOT EOF(#3)

        input #3,ping$
        ping$=mid$(ping$,1,11)
        case equ$(ping$,"Antwort von"):Ping%=1

    WEND

    CLOSE #3
    Assign #1,pingdatei1$
    Erase #1

EndProc

Def-Teil:
DEF GetSysColor(1) !"User32","GetSysColor"
Fenster erstellen:
WindowStyle 571
WindowTitle "IP Checker"
Window 50,50 - 600,600
CLS GetSysColor(15)
Usefont "MS Sans Serif",15,0,0,0,0
setdialogfont 1
Fensterelemente gestalten
ipinput%=Create("MultiEdit",%HWnd,"",10,50,570,-200)
btn%=Create("Button",%HWnd,"Überprüfen",250,260,100,30)
ipoutput%=Create("MultiEdit",%HWnd,"",10,320,570,-200)
statusbar%=create("statuswindow",%hWnd,"Bitte geben sie die IPs ein die überprüft werden sollen.")
Infotexte eingeben
text1%=create("text",%hWnd,"Geben sie hier bitte die IPs durch Absätze getrennt ein:",50,25,400,20)
text2%=create("text",%hWnd,"Hier sind die Ergebnisse:",50,295,200,20)

WhileNot exit%

    waitinput
    case %key=2 : break

    If clicked(btn%)

        clear outgesamt$
        settext ipoutput%,""
        ipline%=GetLineCount(ipinput%)
        curline%=0
        settext statusbar%,"Verbleibend: "+str$(ipline%)

        While ipline%

            ip$=GetLine$(ipinput%,curline%)
            ping ip$

            If ping%=1

                outtxt$=ip$+"		-	Erreichbar
                "

            else

                outtxt$=ip$+"		-	Nicht Erreichbar
                "

            EndIf

            outgesamt$=outgesamt$+outtxt$
            settext ipoutput%,outgesamt$
            inc curline%
            dec ipline%
            settext statusbar%,"Verbleibend: "+str$(ipline%)

        EndWhile

        settext statusbar%,"Vorgang abgeschlossen"
        settext ipinput%,"Vorgang abgeschlossen"

    EndIf

EndWhile

s$=mkstr$("-",12-len(s$))+s$