“G:\fdc\xx”这是一个在文本里显示的串，我现在想取“G:\fdc\”这个串，怎么做？？

[sisiz]

“G:\fdc\xx”这是一个在文本里显示的串，我现在想取“G:\fdc\”这个串，怎么做？？

[itera]

例如 A="G:\fdc\xx"

A = InstrRev(A,"\")+1
A = Mid(A,1,postion)

[itera]

不好意思应该是
A="G:\fdc\xx"
A = Mid(A,1,InstrRev(A,"\"))
response.Write(A)

[chenmo5097]

先InStr取得G的位置
然后用mid()


mid(文本,instr(G:\fdc\),7)

[acong110]

给你真正你想要的
<%
str="G:\fdc\xx"
arr=split(str,"\")
filename=arr(ubound(arr))
str=replace(str,filename,"")
response.Write(str)
%>

[是是非非]

'===================================================================================
' 函数原型： SplitFullPath(strFullPath,strSpliter,ByRef strPath,ByRef strFileName,ByRef extName) As FullFileName
' 功 能： 分离路径和文件名
' 参 数： strFullPath 包含路径和文件名的字符串
' strSpliter 路径分隔符（/ 后者 \）
' strPath 保存路径名的变量
' strFileName 保存文件名的变量
' extName 保存文件扩展名的变量
' 返 回 值： 完整的文件（= strFileName & "." & extName）
' 涉及的表： 无
'===================================================================================
Public Function SplitFullPath(strFPath,strSpliter,ByRef strPath,ByRef strFName,ByRef extName)
Dim intTemp0,fnameTemp,intTemp1
intTemp0=InStrRev(strFPath,strSpliter)
strPath=Left(strFPath,intTemp0)
fnameTemp=Right(strFPath,Len(strFPath)-intTemp0)
intTemp1=InStrRev(fnameTemp,".")
strFName=Left(fnameTemp,intTemp1-1)
extName=Right(fnameTemp,Len(fnameTemp)-intTemp1)
SplitFullPath=fnameTemp
End Function