[寻找]：关于字符串提取数字，字符串提取中文大家有什么好的程序么？

狂刀

关于字符串提取数字，字符串提取中文
大家有什么好的程序么？

xyp1964

签名栏下的“文本编辑套件”
[php]
[文本编辑]
[--------]
[加载程序]^c^c^p(load"chtts")
[改换字型]GHZX
[改换字高]GHZG
[改换字宽]GHZK
[文本旋转]WBXZ
[改换字角]GHZJ
[调整行距]TZHJ
[文本排序]WBPX
[对齐方式]DQFS
[左边对齐]ZBDQ
[居中对齐]JZDQ
[右边对齐]YBDQ
[水平对齐]SPDQ
[精确对齐]JQDQ
[文本合并]WBHB
[文本断开]WBDK
[单个居中]DGJZ
[输入文本]SRWB
[输出文本]SCWB
[选择输出]XZSC
[文本匹配]WBPP
[下 划 线]XHX
[文本外框]wbwk
[递增编号]dzbh
[英文缩写汉化]YYH
[组合A、B文本]ZHAB
[文本加前后缀]wbjqhz
[乱码替换]lmth
[文本替换]WBTH
[浏 览 器]LLQ
[字改宋体]zgst
[批注]pizhu
[取消属性]a2t
[区域定位]qydw
[删除前后缀]scqhz
[文本插入]wbcr
[单字删除]dzsc
[文本提取]wbtq
[打断换行]ddhh
[/php]
wbtq (文本提取)程序示意：

狂刀

最好能不用一个个选,只点一次,自动过滤汉字或数字.
或用函数方式,给文字的实体名,自动处理

eachy

函数库有个“中西拆分"

xyp1964

过滤中英文文本：

2. [FONT=courier new]
   
3. (defun xyp-get-HZ&ENG (STR mode / txn tln HZ ttt)
   
4.   (setq        txn 1
   
5.         tln 0
   
6.         HZ  ""
   
7.         ENG ""
   
8.   )
   
9.   (Repeat (StrLen STR)
   
10.     (If        (Progn (SetQ ttt (SubStr STR txn 1)
    
11.                      tln (1+ tln)
    
12.                )
    
13.                (> (ASCII ttt) 160)
    
14.         )
    
15.       (SetQ ttt        (SubStr STR txn 2)
    
16.             txn        (+ 2 txn)
    
17.             tln        (1- tln)
    
18.             HZ        (strcat HZ ttt)
    
19.       )
    
20.       (SetQ txn        (1+ txn)
    
21.             ENG        (strcat ENG ttt)
    
22.       )
    
23.     )
    
24.   )
    
25.   (if (= mode 1)
    
26.     HZ
    
27.     ENG
    
28.   )
    
29. )
    
30. [/FONT]

[FONT=courier new]<br /> (defun xyp-get-HZ&ENG (STR mode / txn tln HZ ttt)<br />   (setq        txn 1<br />         tln 0<br />         HZ  ""<br />         ENG ""<br />   )<br />   (Repeat (StrLen STR)<br />     (If        (Progn (SetQ ttt (SubStr STR txn 1)<br />                      tln (1+ tln)<br />                )<br />                (> (ASCII ttt) 160)<br />         )<br />       (SetQ ttt        (SubStr STR txn 2)<br />             txn        (+ 2 txn)<br />             tln        (1- tln)<br />             HZ        (strcat HZ ttt)<br />       )<br />       (SetQ txn        (1+ txn)<br />             ENG        (strcat ENG ttt)<br />       )<br />     )<br />   )<br />   (if (= mode 1)<br />     HZ<br />     ENG<br />   )<br /> )<br /> [/FONT]

测试：
(xyp-get-HZ&ENG"晓东CAD空间"0)→"CAD"
(xyp-get-HZ&ENG"晓东CAD空间"1)→"晓东空间"

狂刀

我觉得中西拆分还是相对容易,

2. 
   
3. (x-geteng "晓东CAD空间")→"CAD"
   
4. (x-getchs "晓东CAD空间")→"晓东空间"
   
5. (defun x-geteng (str)
   
6.   (vl-list->string (vl-remove-if '(lambda(x)(> x 160))(vl-string->list str)))
   
7. )
   
8. (defun x-getchs (str)
   
9.   (vl-list->string (vl-remove-if '(lambda(x)(< x 160))(vl-string->list str)))
   
10. )
    

<br /> (x-geteng "晓东CAD空间")→"CAD"<br /> (x-getchs "晓东CAD空间")→"晓东空间"<br /> (defun x-geteng (str)<br />   (vl-list->string (vl-remove-if '(lambda(x)(> x 160))(vl-string->list str)))<br /> )<br /> (defun x-getchs (str)<br />   (vl-list->string (vl-remove-if '(lambda(x)(< x 160))(vl-string->list str)))<br /> )<br />

难的是把数字拆分出来
比如:
1e-4  3e4  -.003  0.3  -0.03 -3  凡是符合distof的都算.

eachy

将中西拆分中的条件改成 (vl-position (car strlst) '(48 49 50 51 52 53 54 55 57 46)) 就可以将数字与其它字符分开。

狂刀

那样仅仅得整数
如果是负数或含小数点，e 那又不同

ll_j

看看这里：
http://www.xdcad.net/forum/showt ... tid=74949#post74949

狂刀

我也看了这个帖子,但是因为没有完全解决问题,所以重新提出来.
[iframe h=600 w=100%]http://www.xdcad.net/forum/showthread.php?s=&postid=74949#post74949[/iframe]

aeo

最初由 狂刀 发布
[B]我也看了这个帖子,但是因为没有完全解决问题,所以重新提出来.
[/B]

考虑E + -写一个，不考虑再写一个，不然又能怎么样!

狂刀

按道理应该可以解决的