7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
limengchen 2001-12-22
- 打赏
- 举报
dim a() as string
a()=split(filename,".")
a(1)存放的即为后缀名。
a()=split(filename,".")
a(1)存放的即为后缀名。
DeityFox 2001-12-22
- 打赏
- 举报
此函数从字符串中分离出文件扩展名
Function GetFileExt (sFileName As String) As String
Dim P As Integer
For P = Len(sFileName) To 1 Step -1
If InStr(".", Mid$(sFileName, P, 1)) Then Exit For
Next
GetFileExt = Right$(sFileName, Len(sFileName) - P)
End Function
Function GetFileExt (sFileName As String) As String
Dim P As Integer
For P = Len(sFileName) To 1 Step -1
If InStr(".", Mid$(sFileName, P, 1)) Then Exit For
Next
GetFileExt = Right$(sFileName, Len(sFileName) - P)
End Function
suntingting 2001-12-22
- 打赏
- 举报
从字符串的末向前读,当读到第一个点时纪录下来
sunyuzhe 2001-12-22
- 打赏
- 举报
祝大家圣诞、新年快乐！
mkiss 2001-12-22
- 打赏
- 举报
用字符串操作函数
