《〈请教高手：如何自定义函数 , 将文件全路径名转化为文件名(无路径名, 无扩展名)？？？
如何自定义函数 , 将文件全路径名转化为文件名(无路径名, 无扩展名)
请大家给出完整代码好吗？
问题点数：10、回复次数：6Top
1 楼bluebill（天蓝蓝，海蓝蓝）回复于 2002-04-10 11:17:15 得分 0
这是个说简单也简单，说复杂也复杂的问题Top
2 楼playyuer（退休干部 卧鼠藏虫）回复于 2002-04-10 11:25:17 得分 2
考考你: 如何用最简洁的代码从字符串中解析出"目录"、"文件名"和"扩展名"??
http://www.csdn.net/Expert/TopicView1.asp?id=219194Top
3 楼netpit（十年一剑）回复于 2002-04-10 11:28:18 得分 2
'****函数1：从全路径取文件名（带扩展名）
Function getShortFileNameWithExt(fullFilename)
Dim filename
On Error Resume Next
filename = Dir(fullFilename)
getShortFileNameWithExt = filename
End Function
'****函数1：从全路径取扩展名
Function getFileExtName(fullFilename)
'InstrRev(string1, string2[, start[, compare]])
Dim filename
filename = Dir(fullFilename)
filename = Mid(filename, InStrRev(filename, ".") + 1, Len(filename) - InStrRev(filename, "."))
getFileExtName = filename
End Function
'****函数1：从全路径取文件名（不带扩展名）
Function getShortFileNameNoExt(fullFilename)
Dim filename
filename = Dir(fullFilename)
filename = Mid(filename, 1, InStr(1, filename, ".") - 1)
getShortFileNameNoExt = filename
End Function
Top
4 楼keebing2（keebing）回复于 2002-04-10 11:31:04 得分 1
split函数Top
5 楼gump2000（阿甘）回复于 2002-04-10 11:31:52 得分 2
Private Sub Command3_Click()
MsgBox test("c:\asdasa\asdasd\你好asd\你好.asd.dat")
End Sub
Function test(vvv As String) As String
Dim tmp As String
Dim ll As Integer
test = ""
tmp = vvv
Do Until InStr(1, tmp, "\") = 0
ll = InStr(1, tmp, "\")
tmp = Right(tmp, Len(tmp) - ll)
Loop
Do Until InStr(1, tmp, ".") = 0
ll = InStr(1, tmp, ".")
test = test & Left(tmp, ll)
tmp = Right(tmp, Len(tmp) - ll)
Loop
If test = "" Then
test = tmp
Else
test = Left(test, Len(test) - 1)
End If
End FunctionTop
6 楼qbilbo（风之兄）回复于 2002-04-10 11:35:02 得分 3
'从带路径及后缀名的字符串中分离出文件名
Public Function GetProgramName(ByVal PathFile As String) As String
Dim i As Integer, p As String
i = InStrRev(PathFile, "\")
p = Right(PathFile, Len(PathFile) - i)
i = InStrRev(p, ".")
GetProgramName = Left(p, i - 1)
End FunctionTop
相关问题
- CFileDialog 如何实现保存功能，并获取完整的路径名（包括文件名和扩展名）
- 如何取得OpenDialog的文件名，条件是不要绝对路径名，不要文件夹名，不要扩展名。只要最间单的文件名
- 哪个函数可以得到一个文件名的扩展名？
- 怎样通过函数获得一个文件名的扩展名？
- 求函数：怎么可以在一个文件名(带扩展名)中得到纯文件名,也就是不要扩展名!能用马上结贴
- vb.net 中有没有从一个文本中返回文件名、返回文件扩展名、返回路径的函数?
- 打开一个自定义扩展名的文件，会启动我写的exe，但是文件名怎么也传不进Main函数
- 打开一个自定义扩展名的文件，会启动我写的exe，但是文件名怎么也传不进Main函数
- 如何剔除文件名的扩展名
- 提取一个文件的文件名和扩展名
