qupen3704957 发表于 2011-2-19 17:30:32

autoit如何实现删除FileOpenDialog打开的路径只保存文件名[已解决]

本帖最后由 qupen3704957 于 2011-2-19 18:35 编辑

从FileOpenDialog选择一个文件，如何删除路径只保存文件名？
返回D:\123\123.txt
期望只显示：123.txt

水木子 发表于 2011-2-19 17:52:43

本帖最后由 水木子 于 2011-2-19 18:05 编辑

#include <GUIListView.au3>
Opt("GUIOnEventMode", 1)

GUICreate("", 400, 300)
GUISetOnEvent(-3, "_EventResponse")
$ListView1 = GUICtrlCreateListView("|", 5, 5, 390, 250)
_GUICtrlListView_SetColumnWidth($ListView1, 0, 350)
$Button1 = GUICtrlCreateButton("Button1", 312, 260, 75, 25)
GUICtrlSetOnEvent(-1, "_EventResponse")
GUISetState()

While 1
        Sleep(100)
WEnd

Func _EventResponse()
        Switch @GUI_CtrlId
                Case -3
                        Exit
                Case $Button1
                        $var = FileOpenDialog('', '', '所有文件(*.*)', 1 + 4)
                        If Not @error Then
                                $aRe = StringRegExp($var, '(?<=[\\\|])[^\.\\]+\.\w{2,4}', 3)
                                For $i = 0 To UBound($aRe) - 1
                                        GUICtrlCreateListViewItem($aRe[$i], $ListView1)
                                Next
                        EndIf
        EndSwitch
EndFunc   ;==>_EventResponse

qupen3704957 发表于 2011-2-19 18:35:09

回复 2# 水木子


    向S级的叛忍致敬！！！

水木子 发表于 2011-2-19 19:22:42

回复 3# qupen3704957

嘿嘿！太逗了。{:1_550:}

zery 发表于 2011-3-13 11:17:38

这个正则好像对FileSaveDialog有些问题

731106 发表于 2011-3-24 21:37:27

这个好象有问题,显示不了文件名
页: [1]
查看完整版本: autoit如何实现删除FileOpenDialog打开的路径只保存文件名[已解决]