1. Reine Abfangen Strings
Die Codekopie lautet wie folgt:
Funktionscutstr (thest1, strlen)
Diml, t, c
l = len (thest1)
IFL <1Thenexitfunction
t = 0
fordxy1 = 1tol
C = ABS (ASC (MID (thest1, dxy1,1))))
IFC> 255Then
t = t+2
anders
t = t+1
Endif
ift> = strlenthen
thev = mid (thest1,1, dxy1)
ausgehen
anders
thest1
Endif
nächste
cutstr = thev
Endfunktion
2. Fangen Sie die Zeichenfolge ab und füllen Sie sie aus Räumen, um sie zu füllen
Die Codekopie lautet wie folgt:
functionCutstr (thest, strlen)
Diml, t, c
l = len (thest)
t = 0
fordxy = 1tol
C = ABS (ASC (MID (thest, dxy, 1))))
IFC> 255Then
t = t+2
anders
t = t+1
Endif
ift> = strlenthen
thev = links (thest, dxy)
ausgehen
anders
bu = strlen-t
Forbui = 1TOBU
strbu = ""
strbuall = strbuall & strbu
nächste
thev = thest & strbull
strbu = ""
Strbuall = ""
Endif
nächste
cutstr = thev
Endfunktion