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
エンド機能