[已解决]StringSplit 如何得到最后一个拆分的字符串？

nikbobo

例子：

$Var = "C:\Windows\Explorer.exe"
$a_Var = StringSplit($Var, "")

我的想法是：

$Var = "C:\Windows\Explorer.exe"
$a_Var = StringSplit($Var, "")
$Var2 = $a_Var[$a_Var[0]]

可是有几个问题：
1、$Var为空怎么办？
2、$Var不存在需要拆分的字符串怎么办？
3、假如$Var = "C:\Windows"，这样拆分出来的是Windows，而不是我想要的xx.exe，怎么办？
4、也许$Var两侧包含英文双引号或英文单引号，怎么办？（如何先去除这些，必须先去除）

其实这个问题，简单来说，就是如何在给定@ScriptFullPath的情况下，将其变成@ScriptName，只不过AU3的宏仅针对脚本本身，而我是希望任何一个文件都可以。

zch11230

没太看懂楼主的意思啊 是不是有***.exe就返回 没有就不返回？

$var=StringRegExpReplace("C:\Windows\Explorer.exe",".+\\(.+\.exe)","$1")
If @extended Then MsgBox (0,"",$var)

lpxx

我猜测你是想获取路径最后的文件名和扩展名，正则实现的话

(?:^.*)\\(.*)$

非要用StringSplit的话

$Var = "C:\WINDOWS\system32\inetsrv\iis.msc"
$a_Var = StringSplit($Var, "",2)
MsgBox(0,0,$a_Var[UBound($a_Var)-1])

afan

正则肯定要方便些~

MsgBox(0, '', _FileGetNameFromPath('C:\Windows\Explorer.exe'))

Func _FileGetNameFromPath($sPath)
        Local $sName = StringRegExpReplace($sPath, '.*?([^\\]*?[^\\\s][^\\]*?$)', '$1')
        If Not @extended Then Return SetError(1, 0, '')
        Return $sName
EndFunc   ;==>_FileGetNameFromPath

netegg

#Include <WinAPIEx.au3>
如果只要后缀的话
_WinAPI_PathFindExtension
字符串为空的话
_WinAPI_PathFindNextComponent
要文件名的话
_WinAPI_PathFindFileName
还有,那第三个问题是处理文件夹路径根本不包含文件名
要哪个用哪个,大不了加个条件判断

nikbobo

回复 4# afan


1、$Var为空怎么办？
2、$Var不存在需要拆分的字符串怎么办？
3、假如$Var = "C:\Windows"，这样拆分出来的是Windows，而不是我想要的xx.exe，怎么办？

这三个问题没解决。
如果出现这三个问题，我需要的是返回空。

nikbobo

回复 5# netegg


同样也没解决：

#Include <WinAPIEx.au3>
$sPath = "C:\Windows"
$Test = _WinAPI_PathFindFileName ( $sPath )
MsgBox(262144,'Debug line ~' & @ScriptLineNumber,'Selection:' & @lf & '$Test' & @lf & @lf & 'Return:' & @lf & $Test & @lf & @lf & '@Error:' & @lf & @Error) ;### Debug MSGBOX

返回的是Windows。

netegg

问一句,你那个path哪部分是文件名
#Include <WinAPIEx.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>

MsgBox(0,0,_WinAPI_PathFindFileName('C:\Windows\Explorer.exe'))
MsgBox(0,0,_WinAPI_PathFindExtension('C:\Windows\Explorer.exe'))

Global $Str, $Path = 'C:\Windows', $iMemo

_Main()

Func _Main()
    Local $hGUI, $i = 0

    ; 创建界面
    $hGUI = GUICreate("Path Parsing", 400, 300)
    GUISetState()

    ; 创建memo控件
    $iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
    GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")

    While $Path > ''
                $i += 1
      MemoWrite($i & " - "& $Path)
      $Path = _WinAPI_PathFindNextComponent($Path)
    WEnd

    ; 循环至用户退出
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc ;==>_Main

; 向memo控件写入信息
Func MemoWrite($sMessage = "")
    GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc ;==>MemoWrite

nikbobo

回复 2# zch11230


    对了，但是判断方法能不能改一改。

也不对：

$var=StringRegExpReplace("Explorer.exe",".+\\(.+\.exe)","$1")
If @extended Then MsgBox (0,"",$var)

就不正常了。

nikbobo

回复 8# netegg


    没明白意思。。

netegg

回复 10# nikbobo
windows系统里除了host文件都有后缀名部分
你运行下上面的代码再说

netegg

你是不是说只有文件名?

nikbobo

回复 11# netegg

没明白什么意思。。。

netegg

"C:\Windows"这个字符串哪包含xx.exe了

nikbobo

回复 14# netegg


    但是你这个方法，看不明白，不会用。还不如二楼的方法，可是也有缺陷。