又一个自制函数GetShortName

Miu.C

Function GetShortName(FullName As String) As String
Dim i As Integer
    For i = Len(FullName) - 1 To 1 Step -1
        If Mid(FullName, i, 1) = "\" Then
            GetShortName = Mid(FullName, i + 1)
            Exit Function
        End If
    Next
End Function
这个函数就是从一个很长的路径中提取出文件名，比如"C:\Program Files\Adobe\Acrobat 7.0\Setup Files\RdrBig\ENU\Acrobat.exe"可以转换成Acrobat.exe。
我在打开文件后在标题栏上显示文件名用上了这个。

Canbitwell

不妨先不要一个一个字判断，（VB6）用InStrRev找到最后一个\的位置，然后Right
这样效率更高些

Private Function Test(ByVal sFile As String) As String
    Test = Right(sFile, Len(sFile) - InStrRev(sFile, "\"))
End Function
已测试……

天使的眼泪

楼主你贴这些有意义吗? 有时间做几个游戏还好了.

psic

这些东西要比完整游戏有意义得多

天使的眼泪

psic: Re:又一个自制函数GetShortName

这些东西要比完整游戏有意义得多

毫无意义！

psic

天使的眼泪: Re: Re:又一个自制函数GetShortName



毫无意义！

完整游戏？

天使的眼泪

psic: Re: Re: Re:又一个自制函数GetShortName



完整游戏？

你除了吹牛还会什么。

psic

对了，好象VB中是有路径中取文件名的命令的啊

Miu.C

Canbitwell: Re:又一个自制函数GetShortName

不妨先不要一个一个字判断，（VB6）用InStrRev找到最后一个\的位置，然后Right
这样效率更高些

Private...

原来Instr还Rev的啊！！哎呀，我真是惭愧。 [em5] [em5] [em5]
谢谢指教。

天使的眼泪

psic: Re:又一个自制函数GetShortName

对了，好象VB中是有路径中取文件名的命令的啊

‘
你也是学VB的吗？ 奇怪。