游戏开发论坛

 找回密码
 立即注册
搜索
查看: 4559|回复: 13

又一个自制函数GetShortName

[复制链接]

187

主题

6490

帖子

6491

积分

论坛元老

团长

Rank: 8Rank: 8

积分
6491
发表于 2006-11-10 18:34:00 | 显示全部楼层 |阅读模式
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。
我在打开文件后在标题栏上显示文件名用上了这个。

1

主题

102

帖子

108

积分

注册会员

Rank: 2

积分
108
QQ
发表于 2006-11-10 19:34:00 | 显示全部楼层

Re:又一个自制函数GetShortName

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

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

6

主题

73

帖子

73

积分

注册会员

Rank: 2

积分
73
发表于 2006-11-10 20:35:00 | 显示全部楼层

Re:又一个自制函数GetShortName

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

15

主题

2093

帖子

2093

积分

金牌会员

Rank: 6Rank: 6

积分
2093
发表于 2006-11-10 21:15:00 | 显示全部楼层

Re:又一个自制函数GetShortName

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

6

主题

73

帖子

73

积分

注册会员

Rank: 2

积分
73
发表于 2006-11-10 22:21:00 | 显示全部楼层

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

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

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


毫无意义!

15

主题

2093

帖子

2093

积分

金牌会员

Rank: 6Rank: 6

积分
2093
发表于 2006-11-11 00:42:00 | 显示全部楼层

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

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



毫无意义!


完整游戏?

6

主题

73

帖子

73

积分

注册会员

Rank: 2

积分
73
发表于 2006-11-11 07:47:00 | 显示全部楼层

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

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



完整游戏?


你除了吹牛还会什么。

15

主题

2093

帖子

2093

积分

金牌会员

Rank: 6Rank: 6

积分
2093
发表于 2006-11-11 09:19:00 | 显示全部楼层

Re:又一个自制函数GetShortName

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

187

主题

6490

帖子

6491

积分

论坛元老

团长

Rank: 8Rank: 8

积分
6491
 楼主| 发表于 2006-11-11 14:14:00 | 显示全部楼层

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

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

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

Private...

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

6

主题

73

帖子

73

积分

注册会员

Rank: 2

积分
73
发表于 2006-11-11 20:06:00 | 显示全部楼层

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

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

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


你也是学VB的吗? 奇怪。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

作品发布|文章投稿|广告合作|关于本站|游戏开发论坛 ( 闽ICP备17032699号-3 )

GMT+8, 2026-1-25 20:49

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表