sorry..沒注意到回覆錯誤..
副檔名的確是陣列的最後一個值(感謝Freefile兄(?)的更正)..
不過我的意思是以他的需求抓第一個的就可以了
如造成誤導..請見諒
不過在Windows底下一般副檔名一定是在檔案名稱最後四個字元(除非使用者亂搞)..
不然自己用的話..是可以把多"."的問題用格式去排除..
複製程式
dim FullFileName as string
dim SplitArr() as string
dim FileName as string
dim MainFileName astring
'給檔案名稱
FullFileName = "F.I.R-月牙彎.mpg"
'分離原唱與歌曲名
SplitArr = split(FullFileName, "-")
'此時 SplitArr(0) = "F.I.R",
' SplitArr(1) = "月牙彎.mpg"
FileName = SplitArr(1)
'分離檔名與副檔名 -
'這邊是偷懶所以用相同的陣列變數做..你可以先確認是不是可以這樣玩..
'太久沒做忘記以前怎麼弄得
SplitArr = split(FileName,".")
'此時的SplitArr(0) = "月牙彎"
' SplitArr(1) = "mpg"
剩下就看你的需求是什麼了
至少在split的部分可以這樣玩
至於你說的變數名稱問題..依照上面的範例應該是那樣用
只要把FullFileName給值的部分由抓到你選擇的名稱的變數給就可以了
Ex:FullFileName = GetSelectFileName() 之類的
PS.GetSelectFileName()這東西是你用來取得左側Listbox點選得到檔案名稱的
名字是我亂取的..所以看你的是用什麼來取得檔案名稱..用那把這換掉就好
