字符串处理例子 - 获得文件的文件名和扩展名的函数（转）

' Filename stripper

' This script was obtained from the Infinite Monkeys Code library at
http://infinitemonkeys.atrax.co.uk
' to re-use, you must keep this text block intact
' copyright (c) Jason Brown/Atrax Internet 2000

Function getFilename(text)
text = Left(text,inStrRev(fl,".")-1)
getFilename = text

End Function

Function getExtn(text)
text = Left(text,inStr(text,".")-1)
getExtn = text
End Function

%>

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10294527/viewspace-124721/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10294527/viewspace-124721/