[Code] Tìm kiếm file

by **Admin** Mon Dec 17, 2012 3:21 am

Code:: #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include<File.au3> #Include <Array.au3> dim $chuoi,$dem=0,$j=0,$duongdan,$chophepchay=0,$dem1=-1,$ketqua Opt("Guioneventmode",1) $Form1 = GUICreate("Search by Nhat Linh", @DesktopWidth/2, @DesktopHeight/3+70, -1, -1) $Edit1 = GUICtrlCreateEdit("Cảm ơn bạn đã dùng .", 8, 80, @DesktopWidth/2-16, @DesktopHeight/3-80) $Button1 = GUICtrlCreateButton("Search", 10, 344, 89, 25, $WS_GROUP) $Button2 = GUICtrlCreateButton("Exit", 190, 344, 89, 25, $WS_GROUP) $Button3 = GUICtrlCreateButton("Save", 100, 344, 89, 25, $WS_GROUP) $Label1 = GUICtrlCreateLabel("Viết tên cần tìm :", 10, 48, 164, 23) GUICtrlSetFont(-1, 12, 800, 2, "Tahoma") $Label2 = GUICtrlCreateLabel("Search by Nhat Linh", 112, 8, 221, 29) GUICtrlSetFont(-1, 16, 800, 2, "Tahoma") $Input1 = GUICtrlCreateInput("*.exe", 176, 48, 257, 24) GUICtrlSetFont(-1, 10, 800, 2, "Tahoma") $Input2 = GUICtrlCreateInput("", 8, 376, @DesktopWidth/2-16, 21) GUICtrlSetState(-1,$GUI_DISable) $txt=GUICtrlCreateLabel("Tổng số tệp tin và thư mục tìm được là : 0",300,349,300) GUICtrlSetFont(-1, 10, 800, 2, "Tahoma") GUISetState(@SW_SHOW) GUISetOnEvent($Gui_event_close,"thoat") GUICtrlSetOnEvent($Button1,"tim") ; Bạn có thể thay "hamkhac" = "tim" đây là 2 hàm có cùng chức năng nhưng mà khả năng thì khác nhau. GUICtrlSetOnEvent($Button2,"thoat") While 1 sleep(100) WEnd func thoat() Exit EndFunc ; đây là kiểu tìm kiếm so sánh định dạng func tim() GUICtrlSetData($Edit1,"Bạn đang dùng công cụ tìm kiếm .") $duongdan=FileSelectFolder("Tim File",-1,2) if @error =1 or $duongdan="" then GUICtrlSetData($Edit1,"Bạn đã ngừng tìm kiếm .") Return 0 EndIf if StringRight($duongdan,1) <> "" Then $duongdan=$duongdan&"" $mang=_FileListToArray($duongdan,"*",2) $string=StringSplit(GUICtrlRead($Input1),";") For $lap = 1 to $string[0] if UBound($mang)=0 Then $mang=_FileListToArray($duongdan,$string[$lap],1) if UBound($mang) <> 0 then For $k=1 to $mang[0] $chuoi=$duongdan&$mang[$k]&@CRLF&$chuoi GUICtrlSetData($Edit1,$chuoi) $dem=$dem+1 Next EndIf Elseif $mang[0] <> 0 Then For $i= 1 to $mang[0] step 1 $folder=_FileListToArray($duongdan&$mang[$i],"*",2) if UBound($folder) = 0 Then $file=_FileListToArray($duongdan&$mang[$i]&"",$string[$lap],1) if UBound($file) <> 0 Then For $a = 1 to $file[0] $chuoi=$duongdan&$mang[$i]&""&$file[$a]&@CRLF&$chuoi GUICtrlSetData($Edit1,$chuoi) $dem=$dem+1 Next EndIf EndIf if UBound($folder) <>0 Then For $b = 1 to $folder[0] timkhac($duongdan&$mang[$i]&""&$folder[$b],$string[$lap]) Next EndIf Next EndIf Next $chuoi="" MsgBox(64,"Thông Báo","Tổng số file tìm được là : "&$dem) $dem=0 EndFunc ; đây là hàm tìm kiếm theo kiểu so sánh chuỗi func hamkhac() GUICtrlSetData($Edit1,"Bạn đang dùng công cụ tìm kiếm .") $duongdan=FileSelectFolder("Tim File",-1,2) if @error =1 or $duongdan="" then GUICtrlSetData($Edit1,"Bạn đã ngừng tìm kiếm .") Return 0 EndIf if StringRight($duongdan,1) <> "" then $duongdan =$duongdan&"" $khacfolder=_FileListToArray($duongdan,"*",1) $timfolder=_FileListToArray($duongdan,"*",2) ham1($duongdan,$khacfolder) if UBound($timfolder) <> 0 Then For $iklm= 1 to $timfolder[0] ham($duongdan&$timfolder[$iklm],$timfolder) $thumuc=_FileListToArray($duongdan&$timfolder[$iklm],"*",1) if UBound($thumuc) <> 0 Then ham($duongdan&$timfolder[$iklm],$thumuc) EndIf $thumucfolder=_FileListToArray($duongdan&$timfolder[$iklm],"*",2) if UBound($thumucfolder)<>0 Then For $ik = 1 to $thumucfolder[0] step 1 ham($duongdan&$timfolder[$iklm]&""&$thumucfolder[$ik],$thumucfolder) $thumuc=_FileListToArray($duongdan&$timfolder[$iklm]&""&$thumucfolder[$ik],"*",1) if UBound($thumuc) <> 0 Then ham($duongdan&$timfolder[$iklm]&""&$thumucfolder[$ik],$thumuc) EndIf hamkhoitao($duongdan&$timfolder[$iklm]&""&$thumucfolder[$ik]) Next EndIf Next EndIf MsgBox(0,"Thông Báo","Bạn đã tìm thấy : "&$dem) $ketqua="" EndFunc func ham($duongdan123,$nhan) $khacfolder1=$nhan if UBound($khacfolder1) <>0 Then For $i= 1 to $khacfolder1[0] step 1 for $tim= 1 to StringLen($khacfolder1[$i]) $dem1=$dem1+1 For $timkhac = 1 To (StringLen($khacfolder1[$i])-$dem1) GUICtrlSetData($Input2,$duongdan123&""&$khacfolder1[$i]) if StringMid($khacfolder1[$i],$tim,$timkhac) = GUICtrlRead($Input1) Then $ketqua=$duongdan123&""&$khacfolder1[$i]&@CRLF&$ketqua $dem=$dem+1 GUICtrlSetData($txt,"Tổng số tệp tin và thư mục tìm được là : "&$dem) GUICtrlSetData($Edit1,$ketqua) ExitLoop(1) EndIf Next $dem1=-1 Next Next EndIf EndFunc func ham1($duongdan123,$nhan) $khacfolder1=$nhan if UBound($khacfolder1) <> 0 Then For $i= 1 to $khacfolder1[0] step 1 for $tim= 1 to StringLen($khacfolder1[$i]) $dem1=$dem1+1 For $timkhac = 1 To (StringLen($khacfolder1[$i])-$dem1) GUICtrlSetData($Input2,$duongdan123&$khacfolder1[$i]) if StringMid($khacfolder1[$i],$tim,$timkhac) = GUICtrlRead($Input1) Then $ketqua=$duongdan123&$khacfolder1[$i]&@CRLF&$ketqua $dem=$dem+1 GUICtrlSetData($Edit1,$ketqua) ExitLoop(1) EndIf Next $dem1=-1 Next Next EndIf EndFunc func hamkhoitao($duongdan3) $thumuckhac=_FileListToArray($duongdan3,"*",2) if UBound($thumuckhac) <> 0 Then For $iji = 1 to $thumuckhac[0] step 1 ham($duongdan3&""&$thumuckhac[$iji],$thumuckhac) $thumuckhachoanton=_FileListToArray($duongdan3&""&$thumuckhac[$iji],"*",1) if UBound($thumuckhachoanton) <> 0 Then ham($duongdan3&""&$thumuckhac[$iji],$thumuckhachoanton) EndIf $thumuckhacnua=_FileListToArray($duongdan3&""&$thumuckhac[$iji],"*",2) if UBound($thumuckhacnua) <> 0 Then For $hi= 1 To $thumuckhacnua[0] hamkhoitao($duongdan3&""&$thumuckhac[$iji]&""&$thumuckhacnua[$hi]) Next EndIf Next EndIf EndFunc func timkhac($duongdan1,$dinhdang) $folder1=_FileListToArray($duongdan1,"*",2) if UBound ($folder1)=0 Then $file1=_FileListToArray($duongdan1,$dinhdang,1) if UBound($file1)<> 0 Then For $c=1 to $file1[0] $chuoi=$duongdan1&""&$file1[$c]&@CRLF&$chuoi GUICtrlSetData($Input2,$duongdan1&""&$file1[$c]) GUICtrlSetData($Edit1,$chuoi) $dem=$dem+1 GUICtrlSetData($txt,"Tổng số tệp tin và thư mục tìm được là : "&$dem) Next EndIf EndIf if UBound($folder1) <>0 Then for $d=1 to $folder1[0] timkhac($duongdan1&""&$folder1[$d],$dinhdang) Next EndIf EndFunc