已知文件的路径,如何得到文件名??
解决方案 »
- 请教如何给list_control发送鼠标click指定行的消息
- 系统时间问题
- VC 6.0+Microsoft SQL Server 做的程序用什么发布?怎么发布? 运行安装程序就可以用的那种
- 怎样可以使对话框中的static控件实现透明?
- 长连接和短连接的问题
- 如何在其它进程中静态、动态嵌入一个控件,如:按钮,并处理自己的消息。如:"BoundsChecker"
- 如何实现软件的平台化
- 怎么样把鼠标置成等待状态(漏沙状)
- 请问高手一个问题,在线等候
- 深入学习VC的途径,与各位商讨。
- 如何做到像WORD一样的页面视图???急急!!!
- 有人在吗?看看http://www.csdn.net/expert/topic/1067/1067792.xml?temp=.3088495阿
如何才能取到girl.gif
{
TCHAR *lpFileSpec;
for (lpFileSpec = lpPath; *lpPath; lpPath = CharNext(lpPath))
{ if (((lpPath[0] == _T('\\')) ||
(lpPath[0] == _T('/')) ||
(lpPath[0] == _T(':'))) &&
((lpPath[1] != _T('\0')) &&
(lpPath[1] != _T('\\')) &&
(lpPath[1] != _T('/')))) { lpFileSpec = lpPath + 1;
}
} return lpFileSpec;
}
Public Function GetFileName(PathName As String)
Dim Pos As Integer
Dim PosBak As Integer
Pos = InStr(1, PathName, "\\")
Do While Pos > 0
PosBak = Pos
Pos = InStr(Pos + 1, PathName, "\\")
Loop
If PosBak > 0 Then
GetFileName = Right(PathName, Len(PathName) - PosBak - 1)
Else
GetFileName = "fuckyou"
End If
End Function使用:
FileName=GetFileName("c:\\windows\\web\\girl.gif")
函数:
Public Function GetFileName(PathName As String)
Dim Pos As Integer
Dim PosBak As Integer
Pos = InStr(1, PathName, "\\")
Do While Pos > 0
PosBak = Pos
Pos = InStr(Pos + 1, PathName, "\\")
Loop
If PosBak > 0 Then
GetFileName = Right(PathName, Len(PathName) - PosBak - 1)
Else
GetFileName =""
End If
End Function使用:
FileName=GetFileName("c:\\windows\\web\\girl.gif")
比如路径为:LPCTSTR path = "c:\\windows\\web\\girl.gif"
如何才能取到girl.gif
LPTSTR pszFileName = strrchr( path, '\\' );
if(!pszFileName )
{
//Not a file paht name
}
else
{
pszFileName += 1;
//搞定,pszFileName就是经果了
}