有点麻烦的文本查找和复制文件，求助指导

zippo5820

1.首先文件夹1里多个文本
2.编辑框1里输入 0257709，找到第三行里的有0257709，先找到文件夹里包含这7位数字的所有文本，比如有3个这样的文本都复制都到文件夹2里

3.然后文本1里可以看到0257709对应的是CL,3这行，当然文本2里可能会对应CL,5
4.以文本1为例：CL,3又对应第二段和第三段里的，ZC,3,
5.文本1里包含ZC,3，第二段4条，第三段4条，共有8条
6.从文本1里可以看出这8条又分别对应8个文件名：

                  260209018BFT1PR_0009.v
                  260209018BFT1PR_0010.v
                  260209018BFT1PR_0011.v
                  260209018BFT1PR_0012.v
                  260209018BFT1DT_0009.v
                  260209018BFT1DT_0010.v
                  260209018BFT1DT_0011.v
                  260209018BFT1DT_0012.v
7.再从文件夹3里把这8个文件也复制到文件夹2里
8.所以如果在文件夹1里找到3个包含0257709的文本，那么就应该复制出24个.v文件和3个文本文件

wraefw

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
文件夹1路径	文本型
文件夹2路径	文本型
文件夹3路径	文本型
搜索数字	文本型
找到的文本文件	文本型	0

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' 设置默认路径（请根据实际情况修改）
文件夹1路径 ＝ “C:\文件夹1\”
文件夹2路径 ＝ “C:\文件夹2\”
文件夹3路径 ＝ “C:\文件夹3\”

子程序名	返回值类型	公开	备 注
_按钮_开始_被单击

变量名	类 型	静态	数组	备 注
文件名数组	文本型		0
i	整数型
文件内容	文本型
行数组	文本型		0
j	整数型
行内容	文本型
第三行	文本型
CL值	文本型
ZC数组	文本型		0
k	整数型
ZC值	文本型
文件名前缀	文本型
数字部分	文本型
生成的文件名	文本型
找到的V文件	文本型		0
文件号	整数型

' 清空找到的文本文件数组
重定义数组 (找到的文本文件, 假, 0)
' 获取搜索数字
搜索数字 ＝ 编辑框1.内容
如果 (搜索数字 ＝ “”)
信息框 (“请输入搜索数字！”, #警告图标, “提示”)
返回
结束如果
' 确保文件夹2存在
创建目录 (文件夹2路径)
' 遍历文件夹1中的所有文本文件
文件名数组 ＝ 寻找文件 (文件夹1路径 ＋ “*.txt”, 1 + 4 + 16 + 32)
如果 (取数组成员数 (文件名数组) ＝ 0)
信息框 (“文件夹1中没有找到文本文件！”, #警告图标, “提示”)
返回
结束如果
' 第一步：查找包含搜索数字的文本文件
计次循环首 (取数组成员数 (文件名数组), i)
文件内容 ＝ 到文本 (读入文件 (文件夹1路径 ＋ 文件名数组 [i]))
行数组 ＝ 分割文本 (文件内容, #换行符, )

如果 (取数组成员数 (行数组) ≥ 3)
第三行 ＝ 行数组 [3]
如果 (寻找文本 (第三行, 搜索数字, , 假) ≠ -1)
' 找到包含数字的文本文件
加入成员 (找到的文本文件, 文件名数组 [i])

' 复制到文件夹2
复制文件 (文件夹1路径 ＋ 文件名数组 [i], 文件夹2路径 ＋ 文件名数组 [i])
结束如果
结束如果
计次循环尾 ()
如果 (取数组成员数 (找到的文本文件) ＝ 0)
信息框 (“没有找到包含 ” ＋ 搜索数字 ＋ “ 的文本文件！”, #警告图标, “提示”)
返回
结束如果
' 第二步：处理每个找到的文本文件，找出对应的V文件
重定义数组 (找到的V文件, 假, 0)
计次循环首 (取数组成员数 (找到的文本文件), i)
文件内容 ＝ 到文本 (读入文件 (文件夹1路径 ＋ 找到的文本文件 [i]))
行数组 ＝ 分割文本 (文件内容, #换行符, )

' 获取第三行中的CL值
如果 (取数组成员数 (行数组) ≥ 3)
第三行 ＝ 行数组 [3]
CL值 ＝ 取文本右边 (第三行, 取文本长度 (第三行) － 寻找文本 (第三行, 搜索数字 ＋ “对应的是”, , 假) － 取文本长度 (搜索数字 ＋ “对应的是”) ＋ 1)
' 假设CL值格式为 "CL,3"

' 查找包含 ZC 的行
计次循环首 (取数组成员数 (行数组), j)
行内容 ＝ 行数组 [j]
如果 (寻找文本 (行内容, “ZC,” ＋ 取文本右边 (CL值, 取文本长度 (CL值) － 3), , 假) ≠ -1)
' 找到ZC行，提取ZC值
' 假设格式为 "ZC,3,第二段4条，第三段4条"
ZC值 ＝ 取文本右边 (行内容, 取文本长度 (行内容) － 寻找文本 (行内容, “ZC,”, , 假) ＋ 3)

' 提取ZC值中的数字部分（逗号后面的数字）
数字部分 ＝ 取文本右边 (ZC值, 取文本长度 (ZC值) － 寻找文本 (ZC值, “,”, , 假))
数字部分 ＝ 取文本左边 (数字部分, 寻找文本 (数字部分, “,”, , 假) － 1)

' 生成8个文件名
文件名前缀 ＝ “260209018BFT1”
计次循环首 (4, k)
生成的文件名 ＝ 文件名前缀 ＋ “PR_” ＋ 取重复文本 (4 － 取文本长度 (到文本 (8 ＋ k － 1)), “0”) ＋ 到文本 (8 ＋ k － 1) ＋ “.v”
加入成员 (找到的V文件, 生成的文件名)

生成的文件名 ＝ 文件名前缀 ＋ “DT_” ＋ 取重复文本 (4 － 取文本长度 (到文本 (8 ＋ k － 1)), “0”) ＋ 到文本 (8 ＋ k － 1) ＋ “.v”
加入成员 (找到的V文件, 生成的文件名)
计次循环尾 ()

跳出循环 ()
结束如果
计次循环尾 ()
结束如果
计次循环尾 ()
' 第三步：从文件夹3复制V文件到文件夹2
计次循环首 (取数组成员数 (找到的V文件), i)
如果 (文件是否存在 (文件夹3路径 ＋ 找到的V文件 [i]))
复制文件 (文件夹3路径 ＋ 找到的V文件 [i], 文件夹2路径 ＋ 找到的V文件 [i])
否则
输出调试文本 (“文件不存在: ” ＋ 文件夹3路径 ＋ 找到的V文件 [i])
结束如果
计次循环尾 ()
信息框 (“处理完成！找到文本文件 ” ＋ 到文本 (取数组成员数 (找到的文本文件)) ＋ “ 个，复制V文件 ” ＋ 到文本 (取数组成员数 (找到的V文件)) ＋ “ 个。”, #信息图标, “完成”)

子程序名	返回值类型	公开	备 注
寻找文件	文本型		递归查找文件
参数名	类 型	参考	可空	数组	备 注
路径	文本型
属性	整数型

变量名	类 型	静态	数组	备 注
文件	文本型
文件数组	文本型		0
子目录数组	文本型		0
i	整数型

' 查找文件
文件 ＝ 寻找文件 (路径, 属性)
判断循环首 (文件 ≠ “”)
如果 (文件 ≠ “.” 且 文件 ≠ “..”)
如果 (取文本右边 (文件, 4) ＝ “.txt”)
加入成员 (文件数组, 文件)
结束如果
结束如果
文件 ＝ 寻找文件 (, 属性)
判断循环尾 ()
返回 (文件数组)

子程序名	返回值类型	公开	备 注
创建目录
参数名	类 型	参考	可空	数组	备 注
目录路径	文本型

创建目录 (目录路径)

i支持库列表	支持库注释
shell	操作系统界面功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 shell<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 文件夹1路径, 文本型<br /> .程序集变量 文件夹2路径, 文本型<br /> .程序集变量 文件夹3路径, 文本型<br /> .程序集变量 搜索数字, 文本型<br /> .程序集变量 找到的文本文件, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> ' 设置默认路径（请根据实际情况修改）<br /> 文件夹1路径 ＝ “C:\文件夹1\”<br /> 文件夹2路径 ＝ “C:\文件夹2\”<br /> 文件夹3路径 ＝ “C:\文件夹3\”<br /> <br /> .子程序 _按钮_开始_被单击<br /> .局部变量 文件名数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 文件内容, 文本型<br /> .局部变量 行数组, 文本型, , "0"<br /> .局部变量 j, 整数型<br /> .局部变量 行内容, 文本型<br /> .局部变量 第三行, 文本型<br /> .局部变量 CL值, 文本型<br /> .局部变量 ZC数组, 文本型, , "0"<br /> .局部变量 k, 整数型<br /> .局部变量 ZC值, 文本型<br /> .局部变量 文件名前缀, 文本型<br /> .局部变量 数字部分, 文本型<br /> .局部变量 生成的文件名, 文本型<br /> .局部变量 找到的V文件, 文本型, , "0"<br /> .局部变量 文件号, 整数型<br /> <br /> ' 清空找到的文本文件数组<br /> 重定义数组 (找到的文本文件, 假, 0)<br /> <br /> ' 获取搜索数字<br /> 搜索数字 ＝ 编辑框1.内容<br /> 如果 (搜索数字 ＝ “”)<br />     信息框 (“请输入搜索数字！”, #警告图标, “提示”)<br />     返回<br /> 结束如果<br /> <br /> ' 确保文件夹2存在<br /> 创建目录 (文件夹2路径)<br /> <br /> ' 遍历文件夹1中的所有文本文件<br /> 文件名数组 ＝ 寻找文件 (文件夹1路径 ＋ “*.txt”, 1 + 4 + 16 + 32)<br /> 如果 (取数组成员数 (文件名数组) ＝ 0)<br />     信息框 (“文件夹1中没有找到文本文件！”, #警告图标, “提示”)<br />     返回<br /> 结束如果<br /> <br /> ' 第一步：查找包含搜索数字的文本文件<br /> 计次循环首 (取数组成员数 (文件名数组), i)<br />     文件内容 ＝ 到文本 (读入文件 (文件夹1路径 ＋ 文件名数组 <i>))<br />     行数组 ＝ 分割文本 (文件内容, #换行符, )<br />     <br />     如果 (取数组成员数 (行数组) ≥ 3)<br />         第三行 ＝ 行数组 [3]<br />         如果 (寻找文本 (第三行, 搜索数字, , 假) ≠ -1)<br />             ' 找到包含数字的文本文件<br />             加入成员 (找到的文本文件, 文件名数组 <i>)<br />             <br />             ' 复制到文件夹2<br />             复制文件 (文件夹1路径 ＋ 文件名数组 <i>, 文件夹2路径 ＋ 文件名数组 <i>)<br />         结束如果<br />     结束如果<br /> 计次循环尾 ()<br /> <br /> 如果 (取数组成员数 (找到的文本文件) ＝ 0)<br />     信息框 (“没有找到包含 ” ＋ 搜索数字 ＋ “ 的文本文件！”, #警告图标, “提示”)<br />     返回<br /> 结束如果<br /> <br /> ' 第二步：处理每个找到的文本文件，找出对应的V文件<br /> 重定义数组 (找到的V文件, 假, 0)<br /> <br /> 计次循环首 (取数组成员数 (找到的文本文件), i)<br />     文件内容 ＝ 到文本 (读入文件 (文件夹1路径 ＋ 找到的文本文件 <i>))<br />     行数组 ＝ 分割文本 (文件内容, #换行符, )<br />     <br />     ' 获取第三行中的CL值<br />     如果 (取数组成员数 (行数组) ≥ 3)<br />         第三行 ＝ 行数组 [3]<br />         CL值 ＝ 取文本右边 (第三行, 取文本长度 (第三行) － 寻找文本 (第三行, 搜索数字 ＋ “对应的是”, , 假) － 取文本长度 (搜索数字 ＋ “对应的是”) ＋ 1)<br />         ' 假设CL值格式为 "CL,3"<br />         <br />         ' 查找包含 ZC 的行<br />         计次循环首 (取数组成员数 (行数组), j)<br />             行内容 ＝ 行数组 [j]<br />             如果 (寻找文本 (行内容, “ZC,” ＋ 取文本右边 (CL值, 取文本长度 (CL值) － 3), , 假) ≠ -1)<br />                 ' 找到ZC行，提取ZC值<br />                 ' 假设格式为 "ZC,3,第二段4条，第三段4条"<br />                 ZC值 ＝ 取文本右边 (行内容, 取文本长度 (行内容) － 寻找文本 (行内容, “ZC,”, , 假) ＋ 3)<br />                 <br />                 ' 提取ZC值中的数字部分（逗号后面的数字）<br />                 数字部分 ＝ 取文本右边 (ZC值, 取文本长度 (ZC值) － 寻找文本 (ZC值, “,”, , 假))<br />                 数字部分 ＝ 取文本左边 (数字部分, 寻找文本 (数字部分, “,”, , 假) － 1)<br />                 <br />                 ' 生成8个文件名<br />                 文件名前缀 ＝ “260209018BFT1”<br />                 计次循环首 (4, k)<br />                     生成的文件名 ＝ 文件名前缀 ＋ “PR_” ＋ 取重复文本 (4 － 取文本长度 (到文本 (8 ＋ k － 1)), “0”) ＋ 到文本 (8 ＋ k － 1) ＋ “.v”<br />                     加入成员 (找到的V文件, 生成的文件名)<br />                     <br />                     生成的文件名 ＝ 文件名前缀 ＋ “DT_” ＋ 取重复文本 (4 － 取文本长度 (到文本 (8 ＋ k － 1)), “0”) ＋ 到文本 (8 ＋ k － 1) ＋ “.v”<br />                     加入成员 (找到的V文件, 生成的文件名)<br />                 计次循环尾 ()<br />                 <br />                 跳出循环 ()<br />             结束如果<br />         计次循环尾 ()<br />     结束如果<br /> 计次循环尾 ()<br /> <br /> ' 第三步：从文件夹3复制V文件到文件夹2<br /> 计次循环首 (取数组成员数 (找到的V文件), i)<br />     如果 (文件是否存在 (文件夹3路径 ＋ 找到的V文件 <i>))<br />         复制文件 (文件夹3路径 ＋ 找到的V文件 <i>, 文件夹2路径 ＋ 找到的V文件 <i>)<br />     否则<br />         输出调试文本 (“文件不存在: ” ＋ 文件夹3路径 ＋ 找到的V文件 <i>)<br />     结束如果<br /> 计次循环尾 ()<br /> <br /> 信息框 (“处理完成！找到文本文件 ” ＋ 到文本 (取数组成员数 (找到的文本文件)) ＋ “ 个，复制V文件 ” ＋ 到文本 (取数组成员数 (找到的V文件)) ＋ “ 个。”, #信息图标, “完成”)<br /> <br /> .子程序 寻找文件, 文本型, , 递归查找文件<br /> .参数 路径, 文本型<br /> .参数 属性, 整数型<br /> .局部变量 文件, 文本型<br /> .局部变量 文件数组, 文本型, , "0"<br /> .局部变量 子目录数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> ' 查找文件<br /> 文件 ＝ 寻找文件 (路径, 属性)<br /> 判断循环首 (文件 ≠ “”)<br />     如果 (文件 ≠ “.” 且 文件 ≠ “..”)<br />         如果 (取文本右边 (文件, 4) ＝ “.txt”)<br />             加入成员 (文件数组, 文件)<br />         结束如果<br />     结束如果<br />     文件 ＝ 寻找文件 (, 属性)<br /> 判断循环尾 ()<br /> <br /> 返回 (文件数组)<br /> <br /> .子程序 创建目录<br /> .参数 目录路径, 文本型<br /> <br /> 创建目录 (目录路径)

haoren1212

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文件数组	文本型		0
i	整数型
临时_文本	文本型

文件_枚举 (“./文件夹1”, “*.txt”, 文件数组, 假, , 真)
调试输出 (文件数组)
计次循环首 (取数组成员数 (文件数组), i)
临时_文本 ＝ 到文本 (读入文件 (“./文件夹1\” ＋ 文件数组 [i]))
如果真 (文本_寻找文本 (临时_文本, 编辑框1.内容, , ) ≠ -1)
调试输出 (文件数组 [i])
文件_复制 (“./文件夹1\” ＋ 文件数组 [i], “./文件夹2\” ＋ 文件数组 [i], )

计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文件数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 临时_文本, 文本型<br /> <br /> 文件_枚举 (“./文件夹1”, “*.txt”, 文件数组, 假, , 真)<br /> 调试输出 (文件数组)<br /> .计次循环首 (取数组成员数 (文件数组), i)<br />     临时_文本 ＝ 到文本 (读入文件 (“./文件夹1\” ＋ 文件数组 <i>))<br />     .如果真 (文本_寻找文本 (临时_文本, 编辑框1.内容, , ) ≠ -1)<br />         调试输出 (文件数组 <i>)<br />         文件_复制 (“./文件夹1\” ＋ 文件数组 <i>, “./文件夹2\” ＋ 文件数组 <i>, )<br />     .如果真结束<br /> <br /> .计次循环尾 ()