给大家发个我自己做的函数GetBetween

Miu.C

Private Function GetBetween(strInput As String, Str1 As String, str2 As String) As String
On Error GoTo Err
    GetBetween = Mid(strInput, InStr(1, strInput, Str1, vbTextCompare) + Len(Str1), InStr(1, strInput, str2, vbTextCompare) - InStr(1, strInput, Str1, vbTextCompare) - Len(Str1))
    Exit Function
Err:
    GetBetween="Error"
End Function

yinxiaodan

例如 : 字符串" @55555/"

GetBetWeen (  " @55555/","@","/")

结果
55555

Miu.C

这是从一个字符串提取以两个指定内容中间的子字符串。
比如：str=GetBetween("1234567890", "3", "7") 'str="456"

asylum

你打算拿它来作什么呢？

asylum

作脚本？

Miu.C

asylum: Re:给大家发个我自己做的函数GetBetween

作脚本？

这是我的脚本系统的一部分吧~~~

杜飞

这个经常用
前段时间做网站
不想更新
引用XML对象偷别人的网页代码
偷来之后
得分析 哪里要 哪里不要 就得自己编写个截取函数

陈?

我的函数
Function interceptstr(str, leftp, rightp)
    interceptstr = Mid(str, leftp + 1, rightp - leftp - 1)
End Function
以前在做公式编辑器的时候有用到它

psic

其实不要脚本也可以，大师就是直接在游戏中到处放常量，而且还是未命名的值常量

神瞎魔聋

psic: Re:给大家发个我自己做的函数GetBetween

其实不要脚本也可以，大师就是直接在游戏中到处放常量，而且还是未命名的值常量

不要脚本怎么行，写不出游戏/