怎么才能算准(defun程序中最后的那个符号)在那行

狂刀无痕

一行一行读取

BDYCAD

粗备编了个去除注释的,还望精力多的朋友改进加强或指导!

2. //编写: BDYCAD   2009-05-08 下午
3. (defun c:test()
4.   (setq ff"d:\\tmp.txt")
5.    (setq file (open ff "R"))
6.   (setq LST2 nil)
7.     (while(setq LIN2 (read-line file))
8.       (if(setq EndInt(vl-string-search ";"LIN2))
9. (progn
10.    (setq SL(strlen LIN2))
11.    (if(/= EndInt SL)
12.      (progn
13.        (setq Str"" i 1)
14.        (repeat EndInt
15.   (setq Str1(substr LIN2 i 1))
16.   (if(not (Eq Str1 " "))
17.   (setq Str(strcat Str Str1)))
18.     (setq i(1+ i))
19.   )
20.        (if(not(eq Str ""))(setq LST2 (append LST2 (list Str))))
21.      )
22.    ))
23. (progn
24.           (setq LST2 (append LST2 (list LIN2)))
25.       )
26. ))
27.   (close file)
28.   (setq file (open ff "w"))
29.   (setq i 0)
30.   (repeat(length LST2)
31.     (setq T1(nth i LST2))
32.     (if(> i 0)(setq T1(strcat"\n" T1)))
33.     (princ T1 file)
34.     (setq i(1+ i))
35.     )
36.   (close file)
37.   (princ)
38.   )

//编写: BDYCAD   2009-05-08 下午 (defun c:test()   (setq ff"d:\\tmp.txt")    (setq file (open ff "R"))   (setq LST2 nil)     (while(setq LIN2 (read-line file))       (if(setq EndInt(vl-string-search ";"LIN2)) (progn    (setq SL(strlen LIN2))    (if(/= EndInt SL)      (progn        (setq Str"" i 1)        (repeat EndInt   (setq Str1(substr LIN2 i 1))   (if(not (Eq Str1 " "))   (setq Str(strcat Str Str1)))     (setq i(1+ i))   )        (if(not(eq Str ""))(setq LST2 (append LST2 (list Str))))      )    )) (progn           (setq LST2 (append LST2 (list LIN2)))       ) ))   (close file)   (setq file (open ff "w"))   (setq i 0)   (repeat(length LST2)     (setq T1(nth i LST2))     (if(> i 0)(setq T1(strcat"\n" T1)))     (princ T1 file)     (setq i(1+ i))     )   (close file)   (princ)   )

雪山飞狐_lzh

设置变量表示读取标志，遇（+1,遇)-1,变量为0且遇；结束，引号里的特殊符号不处理

雪山飞狐_lzh

用正则表达式应该简单些，判断最后的不在引号内的；号位子