如何获取已知程序所在的文件夹名?(已解决)16楼全码

夜猫猫

难道要这个？
kevinch 发表于 2011-7-18 20:20

对.就是这个..谢谢 kevinch

查找文件夹中所有的EXE文件.返回文件所在的目录名,写入INI文件中

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 564, 227, 192, 124)
$Input1 = GUICtrlCreateInput("Input1", 88, 72, 233, 21)
$Button1 = GUICtrlCreateButton("...", 336, 72, 57, 25)
$Button2 = GUICtrlCreateButton("Button1", 232, 144, 97, 33)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
        Case $Button1
     $file = FileSelectFolder("选择文件夹.", "")
         GUICtrlSetData($Input1,$file)
 Case $Button2
         _Seachfilebyext(GUICtrlRead($Input1), 'exe')
        EndSwitch
WEnd

Func _Seachfilebyext($current, $ext)
        Local $search = FileFindFirstFile($current & "\*.*")
        While 1
                Dim $file = FileFindNextFile($search)
                If @error Or StringLen($file) < 1 Then ExitLoop
                If Not StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "." Or $file <> "..") Then
                        If StringRight($current & "\" & $file, StringLen($ext)) = $ext Then
                                                                $Filepath = $current & "\" & $file
                                                                ;msgBox(0, '', $Filepath)
                                                                $a_Arr=StringSplit($Filepath,"\")
                                $fileinfo = $a_Arr[UBound($a_Arr)-2]
                                                                $u = $fileinfo&"="&$Filepath
                                                                $h=FileWrite(@ScriptDir&"\log.ini",$u& @CRLF) 
                        EndIf
                EndIf
                If StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "." Or $file <> "..") Then
                        _Seachfilebyext($current & "\" & $file, $ext)
                                        EndIf
                
        WEnd
EndFunc   ;==>

netegg

回复 14# 夜猫猫

不要路径全名?把返回值改下就行了

afan

Local $Str = 'C:\Windows\System32\cmd.exe'
Local $Test = StringRegExpReplace($str, '.*?\\?([^\\]+)\\[^\\]+$', '\1')
MsgBox(0, '', '原字符串' & @LF & $Str & @LF & @LF & '提取结果' & @LF & $Test)

netegg

难道要这个？
kevinch 发表于 2011-7-18 20:20

这个是最简单的

夜猫猫

afan

StringRegExpReplace($str, '.*?\\?([^\\]+)\\[^\\]+$', '\1')
中的'\1'代表什么?
能解释下这个正则吗?