易语言实现文本文档的每一行进行近似等于比较，比较成功的行将写入新文本(返回逻辑型)

CNWTEPRG

检查 (近似等于_文件 (“in.txt”, “out.txt”, “http://”, 真))  ' 将in.txt中所有http://开头的网址写入out.txt
检查 (近似等于_文件 (“in2.txt”, “out2.txt”, “.zip”, 真, 真))  ' 将in2.txt中所有.zip结尾的文本写入out2.txt

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. 
    
14. 检查 (近似等于_文件 (“in.txt”, “out.txt”, “http://”, 真))  ' 将in.txt中所有http://开头的网址写入out.txt
    
15. 检查 (近似等于_文件 (“in2.txt”, “out2.txt”, “.zip”, 真, 真))  ' 将in2.txt中所有.zip结尾的文本写入out2.txt
    
16. 
    
17. 
    
18. 
    
19. .子程序 近似等于_文件, 逻辑型, 公开, 对文本文档的每一行进行近似等于比较，比较成功的行将写入新文本。
    
20. .参数 输入文件名, 文本型, , 输入文件必须存在，否则将失败。
    
21. .参数 输出文件名, 文本型, , 输出文件不存在将自动创建，存在将清除所有数据。
    
22. .参数 近似等于文本, 文本型
    
23. .参数 不区分大小写, 逻辑型, 可空
    
24. .参数 尾部比较, 逻辑型, 可空
    
25. .局部变量 输入文件号, 整数型
    
26. .局部变量 输出文件号, 整数型
    
27. .局部变量 文本, 文本型
    
28. 
    
29. .如果真 (不区分大小写)
    
30.     近似等于文本 ＝ 到小写 (近似等于文本)
    
31. .如果真结束
    
32. .如果真 (文件是否存在 (输入文件名) ＝ 假 或 输出文件名 ＝ “” 或 近似等于文本 ＝ “” 或 输入文件名 ＝ 输出文件名)
    
33.     返回 (假)
    
34. .如果真结束
    
35. 输入文件号 ＝ 打开文件 (输入文件名, #读入, #禁止写)
    
36. .如果真 (输入文件号 ＝ 0)
    
37.     返回 (假)
    
38. .如果真结束
    
39. 输出文件号 ＝ 打开文件 (输出文件名, #重写, #禁止写)
    
40. .如果真 (输出文件号 ＝ 0)
    
41.     关闭文件 (输入文件号)
    
42.     返回 (假)
    
43. .如果真结束
    
44. .判断循环首 (真)
    
45.     文本 ＝ 读入一行 (输入文件号)
    
46.     .如果真 (是否在文件尾 (输入文件号, ) 且 文本 ＝ “”)
    
47.         跳出循环 ()
    
48.     .如果真结束
    
49.     .如果 (文本 ＝ “”)
    
50.         到循环尾 ()
    
51.     .否则
    
52.         .如果 (尾部比较)
    
53.             .如果真 (近似等于_尾 (选择 (不区分大小写, 到小写 (文本), 文本), 近似等于文本))
    
54.                 .如果真 (写文本行 (输出文件号, 文本) ＝ 假)
    
55.                     返回 (假)
    
56.                 .如果真结束
    
57. 
    
58.             .如果真结束
    
59. 
    
60.         .否则
    
61.             .如果真 (选择 (不区分大小写, 到小写 (文本), 文本) ≈ 近似等于文本)
    
62.                 .如果真 (写文本行 (输出文件号, 文本) ＝ 假)
    
63.                     返回 (假)
    
64.                 .如果真结束
    
65. 
    
66.             .如果真结束
    
67. 
    
68.         .如果结束
    
69. 
    
70.     .如果结束
    
71. 
    
72. .判断循环尾 ()
    
73. 关闭文件 (输入文件号)
    
74. 关闭文件 (输出文件号)
    
75. 返回 (真)
    
76. 
    
77. .子程序 近似等于_尾, 逻辑型, , 当比较文本在被比较文本的尾部被包容时返回真，否则返回假
    
78. .参数 被比较文本, 文本型
    
79. .参数 比较文本, 文本型
    
80. 
    
81. .如果真 (比较文本 ＝ “” 或 被比较文本 ＝ “”)
    
82.     返回 (假)
    
83. .如果真结束
    
84. 返回 (取文本右边 (被比较文本, 取文本长度 (比较文本)) ＝ 比较文本)
    
85. 
    

复制代码