XProfan

def void_makestrlen(3) mid$(add$(@$(1),mkstr$(@$(3),sub(@%(2),len(@$(1))))),1,@%(2))
def void_makestrlennum(2) add$(mkstr$("0",sub(@%(2),len(@$(1)))),@$(1))
def void_inskomma(1) ins$(",",@$(1),sub(len(@$(1)),1))
def void_shlstr(2) del$(add$(@$(1),mid$(@$(1),1,@%(2))),1,@%(2))
def void_setchar(3) ins$(@$(3),del$(@$(1),@%(2),1),@%(2))/pre>

declare s$
cls 0
print void_makestrlen("Hello World",20," ")
verlängert wunschgemäß auf 20 Zeichen
print void_makestrlen("Hello World",5," ")
verkürzt wunschgemäß auf 5 Zeichen
print
print void_makestrlennum("12345",20)
verlängert wunschgemäß auf 20 Zeichen, aber der Zahlenwert bleibt der selbe
print void_makestrlennum("12345",1)
kürzt wunschgemäß nicht auf 1 Zeichen, damit der Zahlenwert der selbe bleibt
print
print void_inskomma("100")
fügt ohne Prüfung ein Kommazeichen vor der vorletzten Stelle ein.
print void_inskomma("12345")
fügt ohne Prüfung ein Kommazeichen vor der vorletzten Stelle ein.
print

whileloop 5

    print void_shlstr("1+2+3+4+",(&loop-1)*2)
    simples shift string left

wend

print
print void_setchar("Hello World",2,"ä")
setzt char ä im string an pos 2
waitinput
destroywindow (%hwnd)
end