找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › 求大神帮忙优化代码！
返回列表 发新帖
查看: 3134|回复: 9

[AU3基础] 求大神帮忙优化代码！

 火 [复制链接]
不点饣
发表于 2015-12-30 08:58:44 | 显示全部楼层 |阅读模式
1.想请大神帮忙优化FindFiles("c:","find*.*")，实现全盘搜索要找的文件！我这样写太繁琐了。
2.在本代码中加入获取本机 computerneme ， username ， date 一起写入到result.txt

感谢！
#include <Array.au3>
#Include <File.au3>
  
Local $FileNumber = 0  ;记录数组维数，全局变量
Local $FileArray[1]  ;返回的文件名主数组（全路径），全局变量
Local $result = "D:\result.txt"

FindFiles("c:","find*.*");这里改为你自己要遍历的文件夹 
FindFiles("c:","auto*.*")                                                  
FindFiles("d:","find*.*")
FindFiles("d:","auto*.*") 
FindFiles("e:","find*.*")
FindFiles("e:","auto*.*")

;$FileArray[0] = $FileNumber
;_ArrayDisplay($FileArray, "Pictures");调用“Array.au3”的子函数函数，显示整个数组信息
For $i = 1 To $FileNumber
        FileWriteLine($result, $FileArray[$i])
Next
  
Func FindFiles($path,$filelx)
 Local $filelist
 Local $folders
 Local $i,$j,$newpath
 $filelist = _FileListToArray ($path,$filelx,1)
 if not @error then
  if $filelist[0]>0 Then
   for $i=1 to $filelist[0]
    $FileNumber = $FileNumber + 1
    ReDim $FileArray[UBound($FileArray) + 1]    
    $FileArray[$FileNumber] = $path & "" & $filelist[$i]
   Next
  EndIf
 EndIf 
  $folders = _FileListToArray ($path,"*",2)
 if Not @error Then
   If $folders[0] > 0 Then
    For $j=1 to $folders[0]
     $newpath = $path & "" & $folders[$j]
     FindFiles($newpath,$filelx)
    Next
   EndIf
  EndIf
EndFunc
include, result, 文件夹

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
luren666
发表于 2015-12-30 15:35:58 | 显示全部楼层
全盘搜索本来就是很慢的，这个是没办法的。下面这个代码您可以试一下能不能符合您的要求，因为不能支持通配符，所以增加了匹配模式。
Global $result = FileOpen("D:\result.txt",2+8)

FindFile("c:","find",1) ;;匹配模式 1左,2右,3任意,4精确
FindFile("c:","1.tmp",2) ;;匹配模式 1左,2右,3任意,4精确
FindFile("c:","rundll",3) ;;匹配模式 1左,2右,3任意,4精确

FileClose($result)

Func FindFile($sDir,$met,$mode)
        Local $hSearch = FileFindFirstFile($sDir & "\*.*")
        If $hSearch = -1 Then Return
        While 1
                Local $sFile = FileFindNextFile($hSearch)
                If @error Then
                        ExitLoop
                ElseIf @extended Then 
                        FindFile($sDir & "" & $sFile , $met,$mode)
                Else
                        Switch $mode
                                Case 1
                                        If StringLeft($sFile,StringLen($met)) <> $met Then ContinueLoop
                                Case 2
                                        If StringRight($sFile,StringLen($met)) <> $met Then ContinueLoop
                                Case 3
                                        If Not StringInStr($sFile,$met) Then ContinueLoop
                                Case 4
                                        If $sFile <> $met Then ContinueLoop
                        EndSwitch
                        FileWriteLine($result,$sDir & "" & $sFile)
                EndIf
        WEnd
        ; 关闭搜索句柄
        FileClose($hSearch)
EndFunc
回复

举报

luren666
发表于 2015-12-30 15:47:47 | 显示全部楼层
第二个问题，直接在开始搜索之前加入下面代码就可以了。
FileWriteLine($result,@ComputerName)
 FileWriteLine($result,@UserName)
回复

举报

fuldho
发表于 2015-12-30 16:25:41 | 显示全部楼层 
$sDir = FindAllFile("c:")
Func FindAllFile($sDir)
    Local $hSearch = FileFindFirstFile($sDir & "\*.*")
    If $hSearch = -1 Then Return
    While 1
        Local $sFile = FileFindNextFile($hSearch)
        If @error Then ExitLoop
        
        If @extended Then 
            FindAllFile($sDir & "" & $sFile)
            ContinueLoop
        EndIf
        If StringLeft($sFile,4)= "find" Then  FileWriteLine("d:\result.txt",$sDir &"" & $sFile) 
        
    WEnd
    FileClose($hSearch)
EndFunc
回复

举报

不点饣
 楼主| 发表于 2015-12-30 17:02:10 | 显示全部楼层
谢谢各位，学习到不少东西！我也把我完善的贴出来！ 加了连接到sql

望大家指正 能不能更简洁！
#include <Array.au3>
#Include <File.au3>
#include <Date.au3>

Local $FileNumber = 0  ;记录数组维数，全局变量
Local $FileArray[1]  ;返回的文件名主数组（全路径），全局变量
Local $result = ("d:\Program Files\111.txt")
Local $PC = @ComputerName
Local $UN = @UserName
Local $Date = _Now()

;Local $Drive = DriveGetDrive("All")
Local $Drive=["C:","D:","E:","F:","G:","J:"]
Local $Pattern = ["a.exe","auto*","cad*","Key*","ak*"]

If Not @error Then
        For $m=0 To 5
                For $n=0 To 4
                        FindFiles($Drive[$m],$Pattern[$n])
                Next
                        
        Next
EndIf


For $i = 1 To $FileNumber
        
        FileWriteLine($result, $FileArray[$i])
Next

Func FindFiles($path,$filelx)
 Local $filelist
 Local $folders
 Local $i,$j,$newpath
 
 $filelist = _FileListToArray ($path,$filelx,1)
 if not @error then
  if $filelist[0]>0 Then
   for $i=1 to $filelist[0]
    $FileNumber = $FileNumber + 1
    ReDim $FileArray[UBound($FileArray) + 1]    
    $FileArray[$FileNumber] = $Date & " " & $UN & " " & $PC & " " & $path & "" & $filelist[$i]
   Next
  EndIf
 EndIf 
  $folders = _FileListToArray ($path,"*",2)
 if Not @error Then
   If $folders[0] > 0 Then
    For $j=1 to $folders[0]
     $newpath = $path & "" & $folders[$j]
     FindFiles($newpath,$filelx)
    Next
   EndIf
  EndIf
EndFunc

;belos is for define a function to save data to database.
Global $Server = "192.168.1.*" ;SQL主机名称
Global $ID = "sa" ; 登入数据库主机的账号  一般都会用sa
Global $pw = "12345****" ;登入数据库主机的密码
Global $DataName = "Data" ;数据库名称

$conn = ObjCreate("ADODB.Connection")
$RS = ObjCreate("ADODB.Recordset")
$conn.Open("driver={SQL Server};server=" & $Server & ";uid=" & $ID & ";pwd=" & $pw & ";database=" & $DataName)
;If @error Then Exit
If Not @error Then
        MsgBox(0, '', '连接数据库成功')
Else
        MsgBox(0, '', '连接数据库失败')
        Exit
EndIf
 
$RS.ActiveConnection = $conn
回复

举报

不点饣
 楼主| 发表于 2015-12-30 17:03:44 | 显示全部楼层
回复 3# luren666
学习了！
回复

举报

luren666
发表于 2015-12-30 21:38:16 | 显示全部楼层
本帖最后由 luren666 于 2015-12-30 21:42 编辑

估计这样会快一些，不需要每次都遍历一次磁盘文件，这样会在找到一个文件后就会循环判断是否符合其中一个条件。其实可以不用每次都传二维数组到函数，定义一个全局二维数组，然后在函数内判断就可以，不过貌似传参数的话，可以实现每个磁盘查找不同的文件，多定义一个二维数组，然后不同的磁盘传不同的数组就可以了，所以我就保留了下来。

Global $result = FileOpen("D:\result.txt",2+8)
Local $Drive=["D:","E:"]
;;二维数组存放【文件，配匹模式】，匹配模式 1左,2右,3任意,4精确
Local $Pattern[6][2] = [[5,0],["a.exe",2],["auto",1],["cad",1],["Key",1],["ak",1]]

For $s = 0 To UBound($Drive) - 1
        FindFile($Drive[$s],$Pattern)
Next


FileClose($result)

Func FindFile($sDir,ByRef $Pattern)
        Local $hSearch = FileFindFirstFile($sDir & "\*.*")
        If $hSearch = -1 Then Return
        While 1
                Local $sFile = FileFindNextFile($hSearch)
                If @error Then
                    ExitLoop
                ElseIf @extended Then 
                                        FindFile($sDir & "\" & $sFile,$Pattern)
                                Else
                                        For $x = 1 To $Pattern[0][0]
                                                Switch $Pattern[$x][1]
                                                                Case 1
                                                                        If StringLeft($sFile,StringLen($Pattern[$x][0])) = $Pattern[$x][0] Then FileWriteLine($result,$sDir & "\" & $sFile)
                                                                Case 2
                                                                        If StringRight($sFile,StringLen($Pattern[$x][0])) = $Pattern[$x][0] Then FileWriteLine($result,$sDir & "\" & $sFile)
                                                                Case 3
                                                                        If StringInStr($sFile,$Pattern[$x][0]) Then FileWriteLine($result,$sDir & "\" & $sFile)
                                                                Case 4
                                                                        If $sFile = $Pattern[$x][0] Then FileWriteLine($result,$sDir & "\" & $sFile)
                                                EndSwitch
                                        Next
                EndIf
        WEnd
        ; 关闭搜索句柄
        FileClose($hSearch)
EndFunc
回复

举报

luren666
发表于 2015-12-30 22:32:20 | 显示全部楼层
本帖最后由 luren666 于 2015-12-30 22:37 编辑

按照你的输出结果的模式修改了一下，在我的电脑上实测了一下，因我的电脑里面存的文件较多，所以只遍历D和E盘，实测需要4.2秒左右，您的代码是12.3秒左右。
Global $result = FileOpen("D:\result.txt",2+8)
Local $Drive=["D:","E:"]
;;二维数组存放【文件，配匹模式】，匹配模式 1左,2右,3任意,4精确
Global $Pattern[5][2] = [["a.exe",4],["auto",1],["cad",1],["Key",1],["ak",1]]
Local $DateUserComputer = @YEAR & "\" & @MON & "\" & @MDAY & " " & @HOUR & ":" & @MIN & ":"  & @SEC & " " & @UserName & " " & @ComputerName & " "
For $s = 0 To UBound($Drive) - 1
        FindFile($Drive[$s])
Next

FileClose($result)

Func FindFile($sDir)
        Local $hSearch = FileFindFirstFile($sDir & "\*.*")
        If $hSearch = -1 Then Return
        While 1
                Local $sFile = FileFindNextFile($hSearch)
                If @error Then
                    ExitLoop
                ElseIf @extended Then 
                                        FindFile($sDir & "\" & $sFile)
                                Else
                                        For $x = 0 To UBound($Pattern) - 1
                                                Switch $Pattern[$x][1]
                                                                Case 1
                                                                        If StringLeft($sFile,StringLen($Pattern[$x][0])) = $Pattern[$x][0] Then FileWriteLine($result, $DateUserComputer & $sDir & "\" & $sFile )
                                                                Case 2
                                                                        If StringRight($sFile,StringLen($Pattern[$x][0])) = $Pattern[$x][0] Then FileWriteLine($result,$DateUserComputer & $sDir & "\" & $sFile)
                                                                Case 3
                                                                        If StringInStr($sFile,$Pattern[$x][0]) Then FileWriteLine($result,$DateUserComputer & $sDir & "\" & $sFile)
                                                                Case 4
                                                                        If $sFile = $Pattern[$x][0] Then FileWriteLine($result,$DateUserComputer & $sDir & "\" & $sFile)
                                                EndSwitch
                                        Next
                EndIf
        WEnd
        ; 关闭搜索句柄
        FileClose($hSearch)
EndFunc
另外，发现一个奇怪的现像，我的电脑里面有一个文件路径是：
E:\软件\图标ICON\图标藏经阁\ICONSMAX9\Function_Icon_Set\camera_noflash_delete_48.png
你的脚本输出结果里面有这一行，而我的脚本里没有，其它行的结果除了顺序不同外全部都一样，就是有这一行的误差。不知道是什么原因，怎么会出现这个奇怪的现像，不明白是怎么匹配到这个文件名的。
回复

举报

ddrs
发表于 2016-1-2 01:22:18 | 显示全部楼层
值得研究，不错的贴。。。。
回复

举报

kadingxiaodi
发表于 2016-1-5 10:51:44 | 显示全部楼层
学习一下
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-15 12:23 , Processed in 0.087270 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表