中文字符串实际长度的检测
功能checkstringlength(TXT)
修剪(TXT)
= =(TXT)
Y = 0
对于ii = 1到x
如果ASC(中,TXT,1)255然后如果它是一个汉字
y=y + 2
其他的
y=y + 1
最后如果
下一个
checkstringlength = Y
端功能
*************字符串**************
功能interceptstring(TXT,长度)
修剪(TXT)
= =(TXT)
Y = 0
如果x或1
对于ii = 1到x
如果ASC(中,TXT,1)255然后如果它是一个汉字
y=y + 2
其他的
y=y + 1
最后如果
如果y = =那么长度
左(修剪(TXT),二)字符串长度
退出
最后如果
下一个
interceptstring = txt
其他的
interceptstring =
最后如果
端功能