[已解决]字符串操作,读取字符最后一个'\'之前的全部字符,看还有没有别的办法

天堂泪吻泪

搜索到在下都快头晕了,但还是找不到好的办法
就是想读取'\'之前的全部字符串,最后一个'\'不存在都行
结果为 'A:\B\C\' 或者 'A:\B\C' 都行
在下资质愚钝,还请大家指教!
在下用的代码如下:

Dim $str1, $str2
Dim $aStr
Dim $n1,$n2
$str1 = 'A:\B\C\D.EFG'
$aStr = StringSplit($str1, '\')
$n1=StringLen($aStr[$aStr[0]])
$n2=StringLen($str1)
$str2=StringLeft($str1,$n2-$n1)
MsgBox(0, '', $str2)

思路就是以'\'拆分成数组,再读取最后一个数组'D.EFG'的字符长度,再用$str1的长度减去'D.EFG'的长度

afan

Local $Str = 'A:\B\C\D.EFG'
MsgBox(0, '原字符串', $Str)
Local $Test = StringRegExpReplace($str, '(.+)\\[^\\]*$', '$1')
MsgBox(0, '替换结果', $Test)

kxing

用正则：

$str = 'A:\B\C\D.EFG'
$str = StringRegExpReplace($str,'(.+\\).*','$1')
msgbox(0,'',$str)

kxing

不会正则的话也可以用 stringinstr 和 stringleft 搭配使用。

Local $Str = 'A:\B\C\D.EFG'
$Str = StringLeft($Str,StringInStr($Str,'\',2,-1))
MsgBox(0,'',$Str)

kxing

给afan大抢先了！！！

netegg

_WinAPI_PathFindNextComponent

nbmpe

想给你回下,这么多人占座呀,我刚需要的是最后一个\后面的字符,呵呵.....

我用的是四楼的方法,不会正则.

netegg

#Include <WinAPIEx.au3>
$a = _WinAPI_PathFindFileName(  'A:\B\C\D.EFG')
msgbox(0,"短文件名", $a)

天堂泪吻泪

方法多样啊,谢谢大家了!