如何把多行文字中指定字符替换为换行符,如下文中的YYYYYYY

likai1121

2.00～8.50mYYYYYYY块石土：灰褐色、淡黄色，松散，稍湿～湿，块石成分以中风化砂岩块石为主，呈棱角状，粒径组成:20～200mm约占15%，>200mm约占68%，其余为粉质粘土充填，粉质粘土呈可塑状，土质不均匀。8.50～9.20mYYYYYYY含碎石粉质粘土：灰褐色、灰黄色，可塑状，稍湿，具粘性，手可搓成条，干强度、韧性中等，摇震无反应。含碎、砾石约33%，粒径为35～60mm，多为砂岩，碎、砾石有一定磨圆度，呈次棱角状，土质较均匀。

fools

提供了三种方式（Alisp，Vlisp，ActiveX），并比较了下替换效率，供你参考
三个函数定义在附件中

1. (defun c:tt()
   
2.   (gc)
   
3.   ;;加入了一些YYYY干扰项做测试
   
4.   (setq str
   
5.        "2.00～8.50mYYYYYYY块石土：灰褐色、淡黄色，松散，YYYY稍湿～湿，块石成分以中风化砂岩块石为主，呈棱角状，粒径组成:20～200mm约占15%，>200mm约占68%，其余为粉质粘土充填，粉质粘土呈可塑状，土质不均匀。8.50～9.20mYYYYYYY含碎石粉质粘土：灰褐色、灰黄色，可YYYY塑状，稍湿，具粘性，手可搓成条，干强度、韧性中等，摇震无反应。含碎、砾石约33%，粒径为35～60mm，多为砂岩，碎、砾石有一定磨圆度，呈次棱角状，土质较均匀。"
   
6.   )
   
7.   ;;strreplace                (Alisp)
   
8.   ;;STRING-SUBST-ALL        (Vlisp)
   
9.   ;;xxexpr                (ActiveX)
   
10.   (benchmark '((strreplace "\n" "YYYYYYY" str) (STRING-SUBST-ALL "\n" "YYYYYYY" str) (xxexpr "Y{7}" str "\n" "")))
    
11. )
    
12. 
    

(defun c:tt()<br />   (gc)<br />   ;;加入了一些YYYY干扰项做测试<br />   (setq str<br />        "2.00～8.50mYYYYYYY块石土：灰褐色、淡黄色，松散，YYYY稍湿～湿，块石成分以中风化砂岩块石为主，呈棱角状，粒径组成:20～200mm约占15%，>200mm约占68%，其余为粉质粘土充填，粉质粘土呈可塑状，土质不均匀。8.50～9.20mYYYYYYY含碎石粉质粘土：灰褐色、灰黄色，可YYYY塑状，稍湿，具粘性，手可搓成条，干强度、韧性中等，摇震无反应。含碎、砾石约33%，粒径为35～60mm，多为砂岩，碎、砾石有一定磨圆度，呈次棱角状，土质较均匀。"<br />   )<br />   ;;strreplace                (Alisp)<br />   ;;STRING-SUBST-ALL        (Vlisp)<br />   ;;xxexpr                (ActiveX)<br />   (benchmark '((strreplace "\n" "YYYYYYY" str) (STRING-SUBST-ALL "\n" "YYYYYYY" str) (xxexpr "Y{7}" str "\n" "")))<br /> )<br /> <br />

Elapsed milliseconds / relative speed for 65536 iteration(s):

    (STRING-SUBST-ALL "\n" "YYYYYYY" STR)......1919 / 51.41 <fastest>
    (XXEXPR "Y{7}" STR "\n" "")...............11014 / 8.96
    (STRREPLACE "\n" "YYYYYYY" STR)...........98655 / 1 <slowest>

Helix.xu

自定义 添加或替换“\n”换行符，学习了。

CAD新军

学习一下。感觉文字替换多数时候还是cad内部的枚举花的时间为主

gxh94

EXCEL复制进CAD的表格老是出现引号，后面才发现是EXCEL表里面有换行符，我看看能不能通过把EXCEL里的换行符换成指定的符号，复制进CAD后，再把这个指定符号换成换号符来达到我的目的。