VB如何提取文件后缀?

发布网友发布时间：2022-04-29 20:10

共5个回答

热心网友时间：2022-04-22 10:16

文件后缀都是类似 .gif .rmvb .xml等形式的，所以只要提取文件最后1个 . 后面的字符就可以。
相关代码：
dim a as long
a = "D:\123\A.B.C.XML"
b=Right(a, Len(a) - InStrRev(a, "."))
b的值就是我们得到的后缀。

热心网友时间：2022-04-22 11:34

呵呵，VB 的字符串函数分成丰富

先用 \ 将串分成几段 ,用 split 函数吧
再在最后一个串里定 . 的位置，用 instr 函数吧

然后取 . 右边的字串就行了，用 mid，right 等函数

祝你顺利

热心网友时间：2022-04-22 13:09

这个应该是最简单的：
sExtension=mid(path, InstrRev(path,".")+1)
InstrRev和Instr类似，是取子字符串在字符中中的位置，不过是从后向前查找，InstrRev(path,".")就是获得最后一个.号在path中的位置，从它后面一位开始取就可以了

热心网友时间：2022-04-22 15:00

楼上思路不错，我的思路是用instr函数查找点的位置，直到查到最后的点。

fpath = "D:\B.C\AA.A.xls"
k = InStr(1, fpath, ".")
Do While k <> 0
s = k
fpath = Mid(fpath, k + 1)
k = InStr(1, fpath, ".")
Loop
hz = fpath 'hz即后缀

其实运用楼上的思路，直接用点来分割就好了，代码如下：
Dim k
fpath = "D:\B.C\AA.A.xls"
k = Split(fpath, ".")
hz = k(UBound(k))

热心网友时间：2022-04-22 17:08

Private Sub form_load()
Dim path1$
Dim path2$

path1 = "D:\B.C\AA.A.xls"
path2 = "D:\D.C\F.GG\AA.A.xlsx"

Label1 = Right(path2, 4)

End Sub