是這樣的，我有一些地址
E:\xx\xx.ini
如何去掉E:\xx\，也就是\和\前面的部分
uj5u.com熱心網友回復：
抱歉，這個我使用C#，不適用VB。幫不了你，真的抱歉。
uj5u.com熱心網友回復：
對于“\”可以使用去除轉移字符@表示。例如，一個路徑：E:\Test1\Test2，使用@“E:\Test1\Test2”在程式運行時，程式讀入的字串是：“E: Test1 Test2”。
uj5u.com熱心網友回復：
s = split( "E:\xx\xx.ini" , "\" )msgbox s( ubound(s) )
uj5u.com熱心網友回復：
用 InStrRev( ) 和 Mid$( ) 函式搞定。Dim s$, i&
s = "E:\xx\xx.ini"
i = InStrRev(s, "\") ' 得到最后一個\字符的位置
s = Mid$(s, i + 1) ' 截取最后那段字串
uj5u.com熱心網友回復：
Private Sub Form_Load()
Dim XX As String, A As Integer, B As Integer
XX = "E:\xx\xx\XXX\XX\XXX\AA.ini"
B = Len(XX) '得到字串的長度
A = InStrRev(XX, "\") '檢測最后一個“\”號的位置
XX = Right(XX, B - A) '截取字串后面 B-A 位置的字串
'最后變數 XX 是 "AA.ini"，適合路徑不論多長，均可以得到檔案名 + 擴展名
End Sub
uj5u.com熱心網友回復：
split.可以解決uj5u.com熱心網友回復：
樓主是要取目錄吧。倒序查找是正解。Dim s$, i&
s = "E:\xx\xx.ini"
MsgBox Left(s, InStrRev(s, "\"))
uj5u.com熱心網友回復：
那些說用 Split的，都是“只要能出結果就行，不管運行效率”的人。
uj5u.com熱心網友回復：
用split的估計都看錯題了吧。不是取檔案名，而是去目錄啊。非要用split也可以的。Dim s
s = Split("E:\xx\xx.ini", "\")
s(UBound(s)) = ""
MsgBox Join(s, "\")
uj5u.com熱心網友回復：
是你看錯了吧，樓主就是要“檔案名”，不是要目錄。
uj5u.com熱心網友回復：
真看錯了
uj5u.com熱心網友回復：
Dim s As Strings = "E:\xx\xx.ini"
Dim s1 As String
s1 = Replace(s, "E:\xx", "")
uj5u.com熱心網友回復：
我都是用笨方法s = "E:\xx\xx.ini"
for i= 1 to 10
a=right(len（s)-instr(s,"\)-1)
next i
msgbox a
沒測驗。你試試。呵呵。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/72143.html
標籤：VB基礎類
下一篇：救急，看看哪里錯了，謝謝