Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1820168
  • 博文数量: 354
  • 博客积分: 11021
  • 博客等级: 上将
  • 技术积分: 4048
  • 用 户 组: 普通用户
  • 注册时间: 2010-02-24 10:04
文章存档

2020年(1)

2018年(1)

2016年(1)

2015年(2)

2014年(4)

2013年(4)

2012年(12)

2011年(14)

2010年(37)

2009年(34)

2008年(22)

2007年(68)

2006年(102)

2005年(29)

2004年(21)

分类: 嵌入式

2012-11-06 22:54:06


'给你一个函数 根据文件地址获取文件名

Function fGetLast(ByVal originalString As String) As String

Dim tmps() As String

Dim delimeter As String

delimeter = "\" '分隔符

tmps = Split(originalString, delimeter)

fGetLast = tmps(UBound(tmps))

End Function

Private Sub Command1_Click()

Dim a As String

a = "C:\伟大无比的PLUMLEE啊.txt" '例如a 是 这个路径

Form1.Caption = fGetLast(a) & " - 记事本" '我调用A   //// fGetLast(文件的地址)

End Sub



VB 提取文件名 (2011-04-26 14:16:31)

伟大的PLUMLEE

带扩展名的文件名
Private Sub Form_Load()
Dim nopath As String
nopath = TrimPath("C:\TXTFILES\JUSTFILE.TXT")
MsgBox nopath
End Sub
Public Function TrimPath(sPath As String) As String
Dim i As Integer, j As Integer
i = InStrRev(sPath, "\") + 1
TrimPath = Mid(sPath, i)
End Function
----------------------------------------------------------------------------------------------------------
'不带扩展名的文件名
Private Sub Form_Load()
Dim nopath As String
nopath$ = TrimPath("C:\TXTFILES\JUSTFILE.TXT")
MsgBox nopath
End Sub
Public Function TrimPath(sPath As String) As String
Dim i As Integer, j As Integer
i = InStrRev(sPath, "\") + 1
j = InStrRev(sPath, ".") - 1
TrimPath = Mid(sPath, i, j - i)
End Function
----------------------------------------------------------------------------------------------------------

'只返回扩展名
Private Sub Form_Load()
Dim nopath As String
nopath = TrimPath("C:\TXTFILES\JUSTFILE.TXT")
MsgBox nopath
End Sub
Public Function TrimPath(sPath As String) As String
Dim i As Integer
i = InStrRev(sPath, ".")+1
TrimPath = Mid(sPath, i)
End Function
----------------------------------------------------------------------------------------------------------

'托放操作得到文件扩展名
Private Sub Form_Load()
Me.OLEDropMode = 1
End Sub
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Print TrimPath(Data.Files(1))
End Sub
Public Function TrimPath(sPath As String) As String
Dim i As Integer
i = InStrRev(sPath, ".") + 1
If i = 1 Then
TrimPath = "这可能是文件夹或没有扩展名的文件"
Exit Function
End If
TrimPath = Mid(sPath, i)
End Function


阅读(7511) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~