vb6如何编辑此文件以使扩展名仅计3个字符（字符串解析）

前几天有人在这里发布了一个很好的小函数，它将文件的完整路径分为以下几个部分：

Function BreakDown(Full As String, FName As String, PName As String, Ext As String) As Integer
 If Full = "" Then
 BreakDown = False
 Exit Function
 End If
 If InStr(Full, "\") Then
 FName = Full
 PName = ""
 Sloc% = InStr(FName, "\")
 Do While Sloc% <> 0
   PName = PName + Left$(FName, Sloc%)
   FName = Mid$(FName, Sloc% + 1)
   Sloc% = InStr(FName, "\")
 Loop
 Else
 PName = ""
 FName = Full
 End If
Dot% = InStr(Full, ".")
If Dot% <> 0 Then
 Ext = Mid$(Full, Dot%)
Else
 Ext = ""
End If
BreakDown = True

End Function

函数分解（完整为字符串、FName为字符串、PName为字符串、Ext为字符串）为整数
如果已满=“则
细分=假
退出功能
如果结束
如果仪表（满，“\”），则
FName=Full
PName=“”
Sloc%=仪表（FName，“\”）
执行Sloc时执行%0
PName=PName+Left$（FName，Sloc%）
FName=Mid$（FName，Sloc%+1）
Sloc%=仪表（FName，“\”）
环
其他的
PName=“”
FName=Full
如果结束
Dot%=仪表（满“.”）
如果点%0，则
Ext=Mid$（满，点%）
其他的
Ext=“”
如果结束
细分=真
端函数

---

但是，如果该行继续超过该点，则将其作为扩展的一部分，是否仍要使其仅在字符串的最后一个句点后计为3个字符？

如果只有空白字符，则只需将其添加为第一行即可

Full = Trim(Full)

如果你有其他角色，那么

更改：

Ext = Mid$(Full, Dot%)

致：

---

如果您只有空白字符，那么只需将其添加为第一行

Full = Trim(Full)

如果你有其他角色，那么

更改：

Ext = Mid$(Full, Dot%)

致：

Dot%=InStrRev（满，“.”开头。从字符串末尾开始
如果点%0，则
Ext=Mid$（完整，点%，3）
其他的
Ext=“”
如果结束

Mid$语法：Mid（字符串，开始[，长度]）

Dot%=InStrRev（完整，“.”开头）。从字符串末尾开始
如果点%0，则
Ext=Mid$（完整，点%，3）
其他的
Ext=“”
如果结束

Mid$语法：Mid（字符串，开始[，长度]）