|
发表于 2012-9-12 08:14:56
|
显示全部楼层
江苏省苏州市
这个是取得文本右边三个字符,管你是汉字、英文、数字或者全角、半角,只要是gbk编码的文本,统统能处理!
.版本 2
.子程序 GBK_取文本右边, 文本型
.参数 参数_欲取其部分的文本, 文本型
.参数 参数_欲取出字符的数目, 整数型
.局部变量 局部_字节长度, 整数型
.局部变量 局部_左边文本长, 整数型
.局部变量 局部_循环变量, 整数型
.局部变量 局部_当前文本, 文本型
.局部变量 局部_当前代码, 整数型
.局部变量 局部_字节属性, 整数型
.局部变量 局部_字数, 整数型
.局部变量 局部_字节数, 整数型
.局部变量 局部_文本, 文本型
.局部变量 局部_字节集, 字节集
.局部变量 局部_文本长度, 整数型
.局部变量 局部_循环变量1, 整数型
.局部变量 局部_文本1, 文本型
.局部变量 局部_剩余字节数, 整数型
局部_字节长度 = 取文本长度 (参数_欲取其部分的文本)
局部_文本长度 = GBK_取文本长度 (参数_欲取其部分的文本)
局部_左边文本长 = 局部_文本长度 - 参数_欲取出字符的数目
.变量循环首 (1, 局部_字节长度, 1, 局部_循环变量)
.如果真 (局部_字数 ≥ 局部_左边文本长)
跳出循环 ()
.如果真结束
局部_当前文本 = 取文本中间 (参数_欲取其部分的文本, 局部_循环变量, 1)
局部_当前代码 = 到字节 (取代码 (局部_当前文本, ))
.判断开始 (局部_当前代码 > 127 且 局部_字节属性 ≠ 1)
局部_字节属性 = 1
.判断 (局部_当前代码 > 31 且 局部_当前代码 < 127 且 局部_字节属性 ≠ 1)
局部_字节属性 = 2
局部_字数 = 局部_字数 + 1
.判断 (局部_字节属性 = 1)
局部_字节属性 = 2
局部_字数 = 局部_字数 + 1
.默认
.判断结束
局部_字节数 = 局部_字节数 + 1
.变量循环尾 ()
局部_剩余字节数 = 局部_字节长度 - 局部_字节数
返回 (取文本右边 (参数_欲取其部分的文本, 局部_剩余字节数))
|
|