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点选得到档案名称的
名字是我乱取的..所以看你的是用什么来取得档案名称..用那把这换掉就好
