XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - Strings addieren (bestimmte Anzahl von Zeichen)
Strings addieren aber nur die gewünschte Anzahl von Zeichen
immer 1 Zeichen mehr addieren als gewünscht da  Null ist enthalten
Parameter: ziel$,anzuhängender String,Anzahl Zeichen
Autor: Dieter Zornow
free to use
DEF StrNCat(3) ! shlwapi,StrNCatA

Proc ApiAdd$

    Parameters ziel$,tocopy$,no&
    Declare ziel#
    Dim ziel#,len(ziel$)+no&+1
    string ziel#,0 = ziel$
    StrNCat(ziel#,addr(tocopy$),no&)
    ziel$ = string$(ziel#,0)
    Dispose ziel#
    return ziel$

endproc

cls
print ApiAdd$(Hallo ,wie gehts denn so,10)
waitinput