有没有方便操作文档第几行的函数？

yaojing38

是否除了 read-line和write-line ,就没了？？、太麻烦了！！。。

xyp1964

1. ;; 多重方式 (ReadnumLines "11111.txt" '(3 7 21))
   
2. (defun ReadNumLines (filename nlst / fn tx i tmp)
   
3.   (setq fn (open filename "r")
   
4.         tmp '()
   
5.         i   1
   
6.   )
   
7.   (while (and nlst (setq tx (read-line fn)))
   
8.     (if (member i nlst)
   
9.       (setq tmp (cons tx tmp)
   
10.             nlst (vl-remove i nlst)
    
11.       )
    
12.     )
    
13.     (setq i (1+ i))
    
14.   )
    
15.   (close fn)
    
16.   (reverse tmp)
    
17. )
    

;; 多重方式 (ReadnumLines "11111.txt" '(3 7 21))<br /> (defun ReadNumLines (filename nlst / fn tx i tmp)<br />   (setq fn (open filename "r")<br />         tmp '()<br />         i   1<br />   )<br />   (while (and nlst (setq tx (read-line fn)))<br />     (if (member i nlst)<br />       (setq tmp (cons tx tmp)<br />             nlst (vl-remove i nlst)<br />       )<br />     )<br />     (setq i (1+ i))<br />   )<br />   (close fn)<br />   (reverse tmp)<br /> )<br />

llsheng_73

1. (defun AllLines(filename / fn tx tmp)
   
2.   (setq fn(open filename "r"))
   
3.   (while(setq tx(read-line fn))
   
4.     (setq tmp(cons tx tmp)))
   
5.   (close fn)
   
6.   (reverse tmp))
   
7. (defun GetNUmsLine(nlst txts / lines)
   
8.   (vl-every(function(lambda(x)(setq lines(cons(nth x txts)lines))))nlst)
   
9.   (reverse lines))
   
10. (defun Modlines(ntxts filename / txts fn old)
    
11.   (setq txts(AllLines filename)
    
12.         old(GetNUmsLine(mapcar(function car)ntxts)txts)
    
13.         fn(open filename"w"))
    
14.   (vl-every(function(lambda(a b)(setq txts(subst a(cadr b)txts))))old ntxts)
    
15.   (write-line(substr(apply'strcat(mapcar(function(lambda(x)(strcat"\n"x)))txts))2)fn)
    
16.   (close fn))
    
17. (defun c:tt(/ filename);读取所有行
    
18.   (if(setq filename(getfiled""""""4))
    
19.     (AllLines filename)))
    
20. (defun c:t1(/ filename nlst);读取指定行
    
21.   (if(setq filename(getfiled""""""4))
    
22.     (GetNUmsLine'(0 7 12)(AllLines filename))))
    
23. (defun c:t2(/ filename ntxts);修改指定行
    
24.   (if(setq filename(getfiled""""""4))
    
25.     (Modlines'((0 "ABC")(7"ABCD")(12"ABCDE"))filename)))
    

(defun AllLines(filename / fn tx tmp)<br />   (setq fn(open filename "r"))<br />   (while(setq tx(read-line fn))<br />     (setq tmp(cons tx tmp)))<br />   (close fn)<br />   (reverse tmp))<br /> (defun GetNUmsLine(nlst txts / lines)<br />   (vl-every(function(lambda(x)(setq lines(cons(nth x txts)lines))))nlst)<br />   (reverse lines))<br /> (defun Modlines(ntxts filename / txts fn old)<br />   (setq txts(AllLines filename)<br />         old(GetNUmsLine(mapcar(function car)ntxts)txts)<br />         fn(open filename"w"))<br />   (vl-every(function(lambda(a b)(setq txts(subst a(cadr b)txts))))old ntxts)<br />   (write-line(substr(apply'strcat(mapcar(function(lambda(x)(strcat"\n"x)))txts))2)fn)<br />   (close fn))<br /> (defun c:tt(/ filename);读取所有行<br />   (if(setq filename(getfiled""""""4))<br />     (AllLines filename)))<br /> (defun c:t1(/ filename nlst);读取指定行<br />   (if(setq filename(getfiled""""""4))<br />     (GetNUmsLine'(0 7 12)(AllLines filename))))<br /> (defun c:t2(/ filename ntxts);修改指定行<br />   (if(setq filename(getfiled""""""4))<br />     (Modlines'((0 "ABC")(7"ABCD")(12"ABCDE"))filename)))<br />

yaojing38

liuhe 发表于 2023-12-28 12:04
太麻烦 说明你的文档不行，你用专业数据库储存数据，你又嫌弃学起来慢

想想也对，，，顺便弄了两个函数一个读取第几行，，一个写入第几行。。。

2. (defun ReadnumLine (filename num / file line lines)  
   
3.   (setq file (open filename "r"))  
   
4.   (setq lines (list))  
   
5.   (while (setq line (read-line file))  
   
6.     (progn (setq lines (cons line lines)))  
   
7.     (if (= (length lines) num) (setq line nil)))
   
8.   (close file)  
   
9.   (nth (- num 1) (reverse lines))
   
10. )  
    
11. ;(WritenumLine file_path  "11111" 3)
    
12. (defun WritenumLine (filename text num / file line lines n)  
    
13.   (setq file (open filename "r")) ; 打开文件进行读写  
    
14.   (setq lines (list) n 0)  
    
15.   (while (setq line (read-line file))  
    
16.   (progn (setq lines (cons (cons n line) lines) n (1+ n)))  
    
17.   )  
    
18.   (if (>= (length lines) num)      ; 检查行数是否足够  
    
19.     (progn  
    
20.     (setq lines (subst (cons (- num 1) text) (assoc (- num 1) lines) lines)) ; 替换第3行
    
21.     (setq file (open filename "w"))
    
22.     (mapcar'(lambda (line) (write-line (cdr line) file)) (reverse lines)) ; 将修改后的行写回文件  
    
23.     )  
    
24.   (progn
    
25.     (setq file (open filename "a"))
    
26.     (repeat (- (- num 1) (length lines))
    
27.       (write-line "" file)
    
28.     )
    
29.     (write-line text file)
    
30.   )   
    
31.   )  
    
32.   (close file)  
    
33. )

(defun ReadnumLine (filename num / file line lines)  <br />   (setq file (open filename "r"))  <br />   (setq lines (list))  <br />   (while (setq line (read-line file))  <br />     (progn (setq lines (cons line lines)))  <br />     (if (= (length lines) num) (setq line nil)))<br />   (close file)  <br />   (nth (- num 1) (reverse lines))<br /> )  <br /> ;(WritenumLine file_path  "11111" 3)<br /> (defun WritenumLine (filename text num / file line lines n)  <br />   (setq file (open filename "r")) ; 打开文件进行读写  <br />   (setq lines (list) n 0)  <br />   (while (setq line (read-line file))  <br />   (progn (setq lines (cons (cons n line) lines) n (1+ n)))  <br />   )  <br />   (if (>= (length lines) num)      ; 检查行数是否足够  <br />     (progn  <br />     (setq lines (subst (cons (- num 1) text) (assoc (- num 1) lines) lines)) ; 替换第3行 <br />     (setq file (open filename "w"))<br />     (mapcar'(lambda (line) (write-line (cdr line) file)) (reverse lines)) ; 将修改后的行写回文件  <br />     )  <br />   (progn<br />     (setq file (open filename "a"))<br />     (repeat (- (- num 1) (length lines))<br />       (write-line "" file)<br />     )<br />     (write-line text file)<br />   )   <br />   )  <br />   (close file)  <br /> )

vitalgg

1. ;; 加载 @lisp函数库
   
2. (progn (VL-LOAD-COM) (SETQ S STRCAT H "http" O (vlax-create-object (S "win" H ".win" H "request.5.1")) V vlax-invoke E EVAL R READ) (V O (QUOTE OPEN) "get" (S H "://atlisp." "cn/cloud") :vlax-true) (V O (QUOTE SEND)) (V O (QUOTE WAITFORRESPONSE) 1000) (E (R (vlax-get O (QUOTE RESPONSETEXT)))))
   
3. ;; 加载 当前用户文件夹下的 abc.txt 文件内容按每行内容分隔成表到 contents
   
4. (setq contents (string:to-list (file:read-stream (strcat (getenv "userprofile") "\\" "abc.txt") "utf-8") "\n"))
   
5. 
   
6. (princ (nth 3 contents));;输出文件的第2行内容

;; 加载 @lisp函数库<br /> (progn (VL-LOAD-COM) (SETQ S STRCAT H "http" O (vlax-create-object (S "win" H ".win" H "request.5.1")) V vlax-invoke E EVAL R READ) (V O (QUOTE OPEN) "get" (S H "://atlisp." "cn/cloud") :vlax-true) (V O (QUOTE SEND)) (V O (QUOTE WAITFORRESPONSE) 1000) (E (R (vlax-get O (QUOTE RESPONSETEXT)))))<br /> ;; 加载 当前用户文件夹下的 abc.txt 文件内容按每行内容分隔成表到 contents <br /> (setq contents (string:to-list (file:read-stream (strcat (getenv "userprofile") "\\" "abc.txt") "utf-8") "\n"))<br /> <br /> (princ (nth 3 contents));;输出文件的第2行内容

liuhe

太麻烦 说明你的文档不行，你用专业数据库储存数据，你又嫌弃学起来慢

xyp1964

;; (ReadnumLine "11111.txt" 10)
(defun ReadnumLine (filename num / fn tx i)
  (setq fn (open filename "r")i  0)
  (while (and (< i num)(setq tx (read-line fn)))
    (setq i (1+ i))
  )
  (close fn)
  tx
)

yaojing38

xyp1964 发表于 2023-12-28 21:40
;; (ReadnumLine "11111.txt" 10)
(defun ReadnumLine (filename num / fn tx i)
  (setq fn (open filen ...

谢谢院长，，！！！

pxt2001

这么多高手回复，楼主应该感激滴零。院长这个虽然很不错，但只读不写差点意思，读取多行实际意义不大，不止一个数据就用表，每行一个表，例如某一行内容：("文本框"：((1 "距离系数" 1.1) (2 "图层名称" "文本外框")))