[求助]能否获得想要的数据

ZZXXQQ

这样试试：

2. (DEFUN C:READATA ()
3. (SETQ NM (IF NM NM ""))
4. (IF (SETQ NM (GETFILED "Select Data File :" NM "*" 4)) (PROGN
5.   (SETQ FP (OPEN NM "r"))
6.   (SETQ DATALIST (LIST))
7.   (SETQ A (READ-LINE FP))
8.   (SETQ B (READ-LINE FP))
9.   (WHILE (SETQ C (READ-LINE FP))
10.    (COND
11.     ((= (STRCASE C nil) "Z")
12.      (SETQ DATALIST (APPEND DATALIST (LIST C)))
13.      (SETQ DATALIST (APPEND DATALIST (IF (WCMATCH B ",") (LIST B) (LIST A B))))
14.     )
15.     ((= (STRCASE C nil) "Y")
16.      (SETQ DATALIST (APPEND DATALIST (LIST C B)))
17.     )
18.    )
19.    (SETQ A B B C)
20.   )
21.   (CLOSE FP)
22. ))
23. (IF (SETQ NM1 (GETFILED "Select File Name to Write :" NM1 "*" 4)) (PROGN
24.   (SETQ I -1)
25.   (SETQ FP (OPEN NM1 "w"))
26.   (REPEAT (LENGTH DATALIST)
27.    (PRINC (NTH (SETQ I (1+ I)) DATALIST) FP) (PRINC "\n" FP)
28.   )
29.   (CLOSE FP)
30. ))
31. (PRINC)
32. )

复制代码

c3a139

ZZXXQQ发表于2007-6-18 13:26:00z前面是不是取两行数据？

这是个文本文件，我想读出我需要的数据，能否获取Z的最后一行和Y的最后一行，但

y

...

37.2,-2.8
318812.7

z
这也不好处理，上面的是y坐标，下面的是里程.

c3a139

zzxxqq版主，程序试了一下，不能运行，略修改了一下， cond...(T nil)...

(IF
  (SETQ NM1 (GETFILED
  "Select File Name to Write :" "" "*"
  1))

可以运行了，但结果不对，且程序中没有把里程（318812.7）同坐标（37.2,-2.8）区分开，如果在写入文件时在里程前加LC，即（LC 318812.7）是最好的，我现在传个文本文件

ZZXXQQ

根据要求改了改，可能写入的前后顺序不对。

2. (DEFUN C:READATA ()
3.   (SETQ NM (IF NM NM ""))
4.   (IF (SETQ NM (GETFILED "Select Data File :" NM "txt" 4)) (PROGN
5.    (SETQ FP (OPEN NM "r"))
6.    (SETQ DATALIST (LIST))
7.    (SETQ A (READ-LINE FP))
8.    (SETQ B (READ-LINE FP))
9.    (WHILE (SETQ C (READ-LINE FP))
10.     (COND
11.      ((= (STRCASE C nil) "Z")
12.       (SETQ DATALIST (APPEND DATALIST (LIST C)))
13.       (SETQ DATALIST (APPEND DATALIST (IF (WCMATCH B ",") (LIST B) (LIST A (STRCAT "LC " B)))))
14.      )
15.      ((= (STRCASE C nil) "Y")
16.       (SETQ DATALIST (APPEND DATALIST (LIST C B)))
17.      )
18.     )
19.     (SETQ A B B C)
20.    )
21.    (CLOSE FP)
22.   ))
23.   (SETQ NM1 (IF NM1 NM1 ""))
24.   (IF (SETQ NM1 (GETFILED "Select File Name to Write :" NM1 "txt" 9)) (PROGN
25.    (SETQ I -1)
26.    (SETQ FP (OPEN NM1 "w"))
27.    (REPEAT (LENGTH DATALIST)
28.     (PRINC (NTH (SETQ I (1+ I)) DATALIST) FP) (PRINC "\n" FP)
29.    )
30.    (CLOSE FP)
31.   ))
32.   (PRINC)
33. )

复制代码

mfkjjjypm

怎麼看怎麼沒有規律，不好寫

c3a139

是写入的顺序不对

原数据

0,1
245400
z
35.3,-1.3
y
35.1,1
245450
z
34.9,-1.4
y
36.4,0.8
245500
z
25,-0.4
36.2,-0.6
y
35.7,1
245550
z
24.8,-0.5
36.1,-0.6
y
37.2,0.4

读写后数据

z
0,1
LC 245400
y
35.3,-1.3
z
35.1,1
LC 245450
y
34.9,-1.4
z
36.4,0.8
LC 245500
y
36.2,-0.6
z
35.7,1
LC 245550
y
36.1,-0.6
z
37.2,0.4

ZZXXQQ

你要什么顺序？

c3a139

与原数据的顺序一样，只是去掉了不需要的数据

0,1
245400
z
35.3,-1.3
y
35.1,1
245450
z
34.9,-1.4
y
36.4,0.8
245500
。。。

ZZXXQQ

2. (DEFUN C:READATA ()
3. (SETQ NM (IF NM NM ""))
4. (IF (SETQ NM (GETFILED "Select Data File :" NM "txt" 4)) (PROGN
5.   (SETQ FP (OPEN NM "r"))
6.   (SETQ DATALIST (LIST))
7.   (SETQ A (READ-LINE FP))
8.   (SETQ B (READ-LINE FP))
9.   (WHILE (SETQ C (READ-LINE FP))
10.    (COND
11.     ((= (STRCASE C nil) "Z")
12.      (SETQ DATALIST (APPEND DATALIST (IF (WCMATCH B ",") (LIST B) (LIST A (STRCAT "LC " B)))))
13.      (SETQ DATALIST (APPEND DATALIST (LIST C)))
14.     )
15.     ((= (STRCASE C nil) "Y")
16.      (SETQ DATALIST (APPEND DATALIST (LIST B C)))
17.     )
18.    )
19.    (SETQ A B B C)
20.   )
21.   (CLOSE FP)
22. ))
23. (IF (SETQ NM1 (GETFILED "Select File Name to Write :" NM1 "*" 4)) (PROGN
24.   (SETQ I -1)
25.   (SETQ FP (OPEN NM1 "w"))
26.   (REPEAT (LENGTH DATALIST)
27.    (PRINC (NTH (SETQ I (1+ I)) DATALIST) FP) (PRINC "\n" FP)
28.   )
29.   (CLOSE FP)
30. ))
31. (PRINC)
32. )

复制代码

c3a139

楼上的程序最后一个Y值无法写出，补了一句

。。。

(cond

  ...

  ((= (STRCASE C nil) "END")
      (SETQ DATALIST (APPEND DATALIST (LIST B C)))
     )

....

即可写出了，在此再次感谢ZZXXQQ版主的热心帮助。