多文本文件，想搜索某关键词，并提出存到EXCEL(已在另帖完成）

CCM

前辈有留一个VBS可以配合EXCEL来大量批次安装打印机，所以我想透过搜索文本关键词把打印机资料抓出来，然後送到EXCEL内，只要关键词资料能抓出来，後面的就简单了。

$search=FileFindFirstFile("\path\*.txt")
If $search = -1 Then
MsgBox(0, "错误", "无任何文件或文件夹与指定的搜索字符串匹配")
Exit
EndIf
While 1
    Local $File = FileFindNextFile($Search)
    If @error Then ExitLoop
    MsgBox(4096, "找到的文件:", $File)
WEnd

我在论坛内找到上面的资料，可以读取文件夹内所有档案，但我不确定是读只档名还是有读文本内容
所以继续搜索论坛，发现可以应用stringregexp来找关键词，问题是我怎么兜，都兜不起来...

自己搞了四五个钟头...头很大，实在没想法，所以斗胆请高手能帮一下...

我要搜寻的资料是
預設印表機：HP LaserJet P3010 Series PCL 6 (PXXX)
我希望能把绿字部分抓出来，让我可以写入EXCEL就行了。

xms77

楼主有没有把问题描述清楚了，你需要搜索的关键字在某些txt文件里面吗？然后你要把什么东西写入excel？包含关键字的文件名码？

CCM

抱歉，我再补充一下
1.我有很多TXT的档案在某个资料夹内
2.这些TXT档案都是计算机的设定资料
3.其中有项资讯叫 "预设打印机：HP LaserJet P3010 Series PCL 6 (PXXX)"
4.我希望能搜寻每一个TXT，把预设打印机后面的打印机资料输出到EXECL或TXT档。
5.写入EXCEL我有测出来，但是怎么搜寻全部文本并把这行字抓出来的语法我自己测试不出来。
谢谢各位高手帮忙。

ashfinal

#Include <File.au3>
#Include <Array.au3>
If FileExists(@ScriptDir&"\DoneTXT.txt") Then FileDelete(@ScriptDir&"\DoneTXT.txt")
$txt_File= _FileListToArray("D:\","*.au3",1) 
;_ArrayDisplay($txt_File)
For $i        =1 To $txt_File[0]
        $txt_Context= FileRead(FileOpen($txt_File[$i],0))
        $TrapArray = StringRegExp($txt_Context, '預設印表機：(.+\r\n)', 3)
        For $j = 0 To UBound($TrapArray) - 1
                FileWrite(FileOpen(@ScriptDir&"\DoneTXT.txt",1+8),$TrapArray[$j])
        Next
Next

稍微改下应该可以用

CCM

$search = FileFindFirstFile("c:\scan\computer.txt")
While 1
        Local $File = FileReadLine($search)        
        MsgBox(4096, "找到的文件:", $File)
        
        $print = StringRegExp($File, '預設印表機：(.+\r\n)', 3)
WEnd

实在做不出来，所以先针对一个档案进行测试，目前msgbox可以list出每一行资料
但是StringRegExp这边都只显示空值 ，请问是那边出了问题？

netegg

回复 5# CCM
$print 返回的是数组

CCM

回复 6# netegg

因为今晚就要开工，没时间给我测试了，这次只好全手动安装啦。
等这次忙完再来研究，因为以後还用得着，谢谢大家。

PS好像也没解决，可能麻烦版主移到无意义区去，谢谢。