获取文本内某段内容

qmqyqj

有一段文本内容如下

[General]
URL=https://www.yousyun.com/rest/XGT/GX/updates.txt
ID={E53138B6-30FF-4DEB-A104-E47EE1F9C3F2}
Flags=PerMachine|ShowConfigOptionsButton
DownloadsFolder=C:\ProgramData\优云软件\
ApplicationVersion=2.4.9.0
CheckFrequency=2
DefaultCommandLine=/checknow -minuseractions

怎么获取 ApplicationVersion=2.4.9.0 这一段后面的 2.4.9.0 内容（这个内容是随机变化的）并设置为变量


以下这段代码只能根据ApplicationVersion=2.4.9.0 所在的行数进行获取，如果ApplicationVersion=2.4.9.0所在的行数变化了，获取的就是错误的信息，想问下，能不能直接进行搜索 ApplicationVersion 以获得后面 2.4.9.0的值；望指教

2. ;将软件版本信息写入注册表
   
3. (defun List_FromFile (fn / f l ll)
   
4. (if (setq f (open (findfile fn) "r"))
   
5.    (progn
   
6.      (while (setq l (read-line f))
   
7.        (setq ll (cons  l ll))
   
8.      )
   
9.      (close f)
   
10.    )
    
11. )
    
12. (reverse ll)
    
13. )
    
14. (setq data_file_patch (strcat "C:/update.ini"));;设文件路径
    
15. (setq lst (List_FromFile data_file_patch));;get list
    
16. (setq ls (nth 6 lst));;获取文件中的第5个数据
    
17. (setq banben (substr ls 20))

;将软件版本信息写入注册表<br /> (defun List_FromFile (fn / f l ll)<br /> (if (setq f (open (findfile fn) "r"))<br />    (progn<br />      (while (setq l (read-line f))<br />        (setq ll (cons  l ll))<br />      )<br />      (close f)<br />    )<br /> )<br /> (reverse ll)<br /> )<br /> (setq data_file_patch (strcat "C:/update.ini"));;设文件路径<br /> (setq lst (List_FromFile data_file_patch));;get list<br /> (setq ls (nth 6 lst));;获取文件中的第5个数据<br /> (setq banben (substr ls 20))

pxt2001

（wcmatch str  "ApplicationVersion*l"

qmqyqj

pxt2001 发表于 2020-4-10 13:16
（wcmatch str  "ApplicationVersion*l"

2. (defun List_FromFile (fn / f l ll)
   
3. (if (setq f (open (findfile fn) "r"))
   
4.    (progn
   
5.      (while (setq l (read-line f))
   
6.        (setq ll (cons  l ll))
   
7.      )
   
8.      (close f)
   
9.    )
   
10. )
    
11. (reverse ll)
    
12. )
    
13. (setq data_file_patch(strcat "C:/update.ini"));;设文件路径
    
14. (setq lst (List_FromFile data_file_patch));;get list
    
15. (setq test 1)
    
16. (while (<= test 10)
    
17.   (setq ls (nth test lst));;循环获取数据
    
18.   (if (= T (wcmatch ls "ApplicationVersion*"))
    
19.     (setq banben (substr ls 20));将需要获取的数据设为变量
    
20.   )
    
21.     (setq test (1+ test))
    
22.   (prin1)
    
23.   )

(defun List_FromFile (fn / f l ll)<br /> (if (setq f (open (findfile fn) "r"))<br />    (progn<br />      (while (setq l (read-line f))<br />        (setq ll (cons  l ll))<br />      )<br />      (close f)<br />    )<br /> )<br /> (reverse ll)<br /> )<br /> (setq data_file_patch(strcat "C:/update.ini"));;设文件路径<br /> (setq lst (List_FromFile data_file_patch));;get list<br /> (setq test 1)<br /> (while (<= test 10)<br />   (setq ls (nth test lst));;循环获取数据<br />   (if (= T (wcmatch ls "ApplicationVersion*"))<br />     (setq banben (substr ls 20));将需要获取的数据设为变量<br />   )<br />     (setq test (1+ test))<br />   (prin1)<br />   )

是不是这样？有没有更好的办法，还有这个有时候会报错，也不知道怎么回事错误提示:_.copyhist命令: ; 错误: 参数类型错误: stringp nil