[求助]：字符提取的问题（已解决）

czg09180274

我现在写了一个“在文本中提取指定范围内的字符”的程序。
程序运行过程中有几个这样的问题，请高手帮帮忙解决。

当文本是由，中文字，字母，和数字组成的时，提取出来的字符就会出错。纯文字或是数字类的就能正常运行。

原因应该是：中文字都是两个字节为一个字，而数字则是一个字节一个字。
虽然知道是这样但程序总是组织不好，故请高手们帮帮忙指点一下，该如何组织程序才能使它能正常提取出指定范围内的字符？

先谢过各位了。

urljit

ssget，repeat（length  sel），if（＝ “TEXT” 。。）（setq strlst(append strlst (cdr(assoc 1 elist))...

czg09180274

非常感谢楼上朋友的指点。

fools

楼主提到的“指定范围”是指？
如果我没有理解错的话，楼主希望得到的是字符，而不是整个(cdr(assoc 1 elist))的值
建议用ascii函数，当ascii的值>128时，连续提取两个字节，否则单字节

czg09180274

FOOLS你说的ASCII函数我没用过，
我是这样来做的。
设定提取范围的起始值DL，和结束值DR
先将文本中的字符与DL进行比较，若找到相同的；提出DL后的所有字符设为“AA”再将“AA”与DR进行比较找到相同的；提出“AA”第一个字符起到DR止的字符串，赋给“BB”，后续操作再按预期目的进行了。

qjcpj

4楼的朋友，你所讲的"建议用ascii函数，当ascii的值>128时，连续提取两个字节，否则单字节"中一句，我在晓东论坛以前的帖子中看到的是“ascii的值>159时为双字节中文”，不知那一个对？
帖子具体位置记不清了，不过我摘录了其中“字符里有没有中文”函数，函数见下：
(defun check-china (str)
        (apply 'or
                                 (mapcar '(lambda (x) (> x 159)) (vl-string->list str))
        )
)
测试如下：
命令:
(CHECK-CHINA "ABC")
nil

命令:
(CHECK-CHINA "ABC晓东")
T

fools

最初由 qjcpj 发布
[B]4楼的朋友，你所讲的"建议用ascii函数，当ascii的值>128时，连续提取两个字节，否则单字节"中一句，我在晓东论坛以前的帖子中看到的是“ascii的值>159时为双字节中文”，不知那一个对？
帖子具体位置记不清了，不过... [/B]

道理是一样的。

winabcd

有了这个函数，(vl-string->list str)
就可以从第n1个开始取 n2个字符了。
这不更好些？

fools

1.Big-5 是一个双字节编码方案，其第一字节的值在 16 进制的 A0～FE 之间，第二字节在 40～7E 和 A1～FE 之间。
因为A0=160，所以ascii>159则为繁体中文。

2.Windows95/98简体中文版的字库表层编码就采用的是GBK，通过GBK与UCS之间一一对应的码表与底层字库联系。其第一字节的值在 16 进制的 81～FE 之间，第二字节在 40～FE。
因为80=128，所以ascii>128则为简体中文。

qjcpj 提供的函数是针对繁体中文而言的，对于简体中文还是ascii>128更准确。

qjcpj

fools楼主真是一个热心人，多谢了！
但愿网上有更多象楼主一样的......

fools

最初由 qjcpj 发布
[B]fools楼主真是一个热心人，多谢了！
但愿网上有更多象楼主一样的...... [/B]

哪里哪里，说的我很惭愧呀！
其实我对汉字内码也不是很熟悉，关于ascii函数的判断值是我自己的理解，也不知对不对，呵呵。
而且繁体中文并不等于BiG5码，GBK也不就是简体中文。我那样简化的写是为了有所区分。

czg09180274

我对汉字的内码一直就是弄得不是很明白，经FOOLS这么一解释倒是清楚多了。

真是非常感谢各位大侠的提点