1。純粋なインターセプト文字列
コードコピーは次のとおりです。
functioncutstr(thestr1、strlen)
Diml、T、c
l = len(thestr1)
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(thestr1,1、dxy1)
exitfor
それ以外
thev = thestr1
endif
次
cutstr = thev
エンド機能
2。文字列を傍受し、スペースを使用してそれを満たします
コードコピーは次のとおりです。
functioncutstr(thestr、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 = left(thestr、dxy)
exitfor
それ以外
bu = strlen-t
forbui = 1tobu
strbu = ""
strbuall = strbuall&strbu
次
thev = thestr&strbull
strbu = ""
strbuall = ""
endif
次
cutstr = thev
エンド機能