*************测量字符串的长度**************
功能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 =
最后如果
端功能