取文本左边，如何判断最后一个字符是否乱码

hktkzyz

如题，s=“1个好心人。” 取左边6个字符，最后一个会是乱码（半个双字节）。如果才能判断出最后一个字符是乱码。
条件：所取的部分中，不确定是有几个单字节字符，或双字节字符。
已知：利用编辑框控件可以解决，比如此例中，取6个字符放进编辑框，会自动去掉最后的乱码，修改成5个长度。
如何利用代码来实现？



补充内容 (2016-6-22 11:32):
要求：不要逐字分析。（除非你告诉我，控件能够去除最后乱码的原理，也是逐字判断的。）

补充内容 (2019-7-27 00:06):
这个问题个人已经解决，简单说就是利用unicode编码的原理。他会把任何字符转为双字节，所以不会再取到下一个汉字的一半了。

小淡

  

子程序名	返回值类型	公开	备 注
取左边	文本型
参数名	类 型	参考	可空	数组	备 注
原文本	文本型
数目

变量名	类 型	静态	数组	备 注
文本组	文本型		0
临时
i	整数型

文本_逐字分割 (原文本, 文本组)
计次循环首 (取数组成员数 (文本组), i)
如果 (取文本长度 (文本组 [i]) ＝ 1)
临时 ＝ 临时 ＋ 1
临时 ＝ 临时 ＋ 2
如果真 (临时 ＝ 数目)
返回 (取文本左边 (原文本, 数目))

计次循环尾 ()
返回 (取文本左边 (原文本, 数目 － 1))

.版本 2<br /> <br /> .子程序 取左边, 文本型<br /> .参数 原文本, 文本型<br /> .参数 数目<br /> .局部变量 文本组, 文本型, , "0"<br /> .局部变量 临时<br /> .局部变量 i, 整数型<br /> <br /> 文本_逐字分割 (原文本, 文本组)<br /> .计次循环首 (取数组成员数 (文本组), i)<br /> <br />     .如果 (取文本长度 (文本组 <i>) ＝ 1)<br />         临时 ＝ 临时 ＋ 1<br />     .否则<br />         临时 ＝ 临时 ＋ 2<br />     .如果结束<br />     .如果真 (临时 ＝ 数目)<br />         返回 (取文本左边 (原文本, 数目))<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (取文本左边 (原文本, 数目 － 1))

易正易则

测试好像没有乱码,但是输入是取6个,但是实际取啦5个字符

xiaowg

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
s	文本型

s ＝ “1个好心人。”
调试输出 (取文本右边 (s, 1), )
如果真 (取代码 (取文本右边 (s, 1), ) ＜ 0)
s ＝ 取文本左边 (s, 5)
调试输出 (s)

你需要的，原理是：乱码取的代码为负值

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 s, 文本型<br /> <br /> s ＝ “1个好心人。”<br /> 调试输出 (取文本右边 (s, 1), )<br /> .如果真 (取代码 (取文本右边 (s, 1), ) ＜ 0)<br />     s ＝ 取文本左边 (s, 5)<br />     调试输出 (s)<br /> <br /> .如果真结束<br /> <br /> 你需要的，原理是：乱码取的代码为负值

hktkzyz

小淡 发表于 2016-6-20 18:45
[e=1].版本 2

.子程序 取左边, 文本型

忘了说，不要逐字的，因为加入文本非常多，，，，那么肯定很浪费资源。
不过貌似很多文本如果加入控件，也会很浪费资源。

hktkzyz

fanr5201314 发表于 2016-6-20 18:45
测试好像没有乱码,但是输入是取6个,但是实际取啦5个字符

我说过了，编辑框控件，可以自动去掉 末尾的 乱码字符。

hktkzyz

xiaowg 发表于 2016-6-20 19:19
[e=0].版本 2
.支持库 spec

你说这个当然想过。不过如果末尾是一个正常的汉子，或是其他全角标点。一样代码是<0的。你恐怕没有想到这一点。

小淡

1. .版本 2
   
2. 
   
3. .子程序 取左边, 文本型
   
4. .参数 文本, 文本型
   
5. .参数 长度
   
6. .局部变量 文本1, 文本型
   
7. .局部变量 文本2, 文本型
   
8. 
   
9. 文本1 ＝ 取文本左边 (文本, 长度)
   
10. 文本2 ＝ 取文本左边 (文本, 长度 － 1)
    
11. .如果 (文本1 ＝ “?” 且 文本2 ≠ “?”)
    
12. 返回 (文本2)
    
13. .否则
    
14. 返回 (文本1)
    
15. .如果结束
    
16. 
    
17. 
    
18. 
    
19. .子程序 _按钮1_被单击
    
20. 
    
21. _启动窗口.标题 ＝ 取左边 (编辑框1.内容, 到整数 (编辑框2.内容))
    

复制代码

hktkzyz

小淡 发表于 2016-6-22 13:15

谢谢一直给我回复。你这里有两个问题。
1、如果 (文本1 ＝ “?” 且 文本2 ≠ “?”)，，首先这里就不对，可能你是想说  取文本右边（文本1,1）=“？”...............
2、不管上面你是上面意思。都不可能是“？”，调试输出显示为“？”，只是因为乱码，程序不能辨认出字符。
3、之所以窗体标题正确，是因为 窗体标题 和编辑框一样，遇到乱码会自动去掉。不信你试试
_启动窗口.标题 ＝ 取文本左边 (“1个好心人。”,6)，虽然末尾是乱码，但窗口标题不会有乱码。

我的yyy123

好像只有 文本_逐字分割 这个可以取出，其他的没这个简单了