文本_取字符数

咪兔

  

子程序名	返回值类型	公开	备 注
文本_取字符数	整数型
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
长度	整数型
个数	整数型
起始位置	整数型

长度 ＝ 取字节集长度 (到字节集 (文本))
个数 ＝ 长度
起始位置 ＝ 1
判断循环首 (起始位置 ＜ 长度)
如果 (取代码 (到文本 (取字节集中间 (到字节集 (文本), 起始位置, 1)), ) ＜ 0 或 取代码 (到文本 (取字节集中间 (到字节集 (文本), 起始位置, 1)), ) ＝ 13)
个数 ＝ 个数 － 1
起始位置 ＝ 起始位置 ＋ 2
起始位置 ＝ 起始位置 ＋ 1

判断循环尾 ()
返回 (个数)

.版本 2<br /> <br /> .子程序 文本_取字符数, 整数型, 公开<br /> .参数 文本, 文本型<br /> .局部变量 长度, 整数型<br /> .局部变量 个数, 整数型<br /> .局部变量 起始位置, 整数型<br /> <br /> 长度 ＝ 取字节集长度 (到字节集 (文本))<br /> 个数 ＝ 长度<br /> 起始位置 ＝ 1<br /> .判断循环首 (起始位置 ＜ 长度)<br />     .如果 (取代码 (到文本 (取字节集中间 (到字节集 (文本), 起始位置, 1)), ) ＜ 0 或 取代码 (到文本 (取字节集中间 (到字节集 (文本), 起始位置, 1)), ) ＝ 13)<br />         个数 ＝ 个数 － 1<br />         起始位置 ＝ 起始位置 ＋ 2<br />     .否则<br />         起始位置 ＝ 起始位置 ＋ 1<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> 返回 (个数)

love355024

感谢大神分享，解决了我一个问题~

andylaudj

限性太大，只能是字符，如果是汉字就不准 了

咪兔

萧阳天 发表于 2016-4-13 22:54
局限性太大，只能是字符，如果是汉字就不准 了

这个怎么说呢
比如编辑框有“123abc精易论坛”一共10个，长度14 这个取字符数取到也是10个 ，
在编辑框查找文本是很好用的，编辑框1.起始选择位置  编辑框1.被选择字符数 用这个方便

萧阳天

局限性太大，只能是字符，如果是汉字就不准 了