1. 순수한 절편 현
코드 사본은 다음과 같습니다.
functioncutstr (threth1, strlen)
Diml, t, c
L = LEN (threth1)
ifl <1thenexitfunction
t = 0
fordxy1 = 1tol
C = ABS (ASC (MID (THESTR1, DXY1,1)))))
IFC> 255then
t = t+2
또 다른
t = t+1
endif
ift> = strlenthen
thev = mid (threth1,1, dxy1)
exitfor
또 다른
thev = threstr1
endif
다음
cutstr = thev
최종 기능 장애
2. 문자열을 가로 채서 공백을 사용하여 채우십시오
코드 사본은 다음과 같습니다.
functioncutstr (threth, strlen)
Diml, t, c
L = LEN (THESTR)
t = 0
fordxy = 1tol
C = ABS (ASC (MID (THESTR, DXY, 1))))))
IFC> 255then
t = t+2
또 다른
t = t+1
endif
ift> = strlenthen
thev = 왼쪽 (threth, dxy)
exitfor
또 다른
bu = strlen-t
포부이 = 1Tobu
strbu = ""
strbuall = strbuall & strbu
다음
thev = threth & strbull
strbu = ""
strbuall = ""
endif
다음
cutstr = thev
최종 기능 장애