1. Чистые строки перехвата
Кода -копия выглядит следующим образом:
functionCutstr (TheStr1, Strlen)
diml, t, c
L = Лен (THESTR1)
ifl <1thenexitFunction
t = 0
fordxy1 = 1tol
C = ABS (ASC (Mid (THESTR1, DXY1,1))))))))))))))
IFC> 255then
t = t+2
еще
t = t+1
эндиф
ift> = strlenthen
thev = mid (theStr1,1, dxy1)
Выход
еще
THV = THESTR1
эндиф
следующий
cutstr = thev
конечная функция
2. Перехватите строку, используйте пространства, чтобы заполнить ее
Кода -копия выглядит следующим образом:
functionCutstr (TheStr, Strlen)
diml, t, c
L = Лен (TheStr)
t = 0
fordxy = 1tol
C = ABS (ASC (Mid (TheStr, Dxy, 1)))))))
IFC> 255then
t = t+2
еще
t = t+1
эндиф
ift> = strlenthen
Thev = слева (TheStr, dxy)
Выход
еще
bu = strlen-t
forbui = 1tobu
strbu = ""
strbuall = strbuall & strbu
следующий
THV = TheStr & Strbull
strbu = ""
strbuall = ""
эндиф
следующий
cutstr = thev
конечная функция