GetStr: 一个自创蛮有用的字符串函数~

概述作用：用于截取一个字符串中，两个标识符中间的字符串。  Public Function GetStr(ByVal InputString As String, ByVal String1 As String, ByVal String2 As String) As String Dim i As Integer Dim j As Integer

作用：用于截取一个字符串中，两个标识符中间的字符串。

   Public Function GetStr(ByVal inputString As String,ByVal String1 As String,ByVal String2 As String) As String        Dim i As Integer        Dim j As Integer        Dim tempString As String = ""        i = InStr(inputString,String1)        j = InStr(i,inputString,String2)        If i > 0 And j > 0 Then            tempString = MID(inputString,i + 1,j - i - 1)        End If        Return tempString    End Function

例如: 取得字符串"abc(12345)test" 中的括号中的字符串 只需要写以下代码即可

samplestr = "abc(12345)test"teststr= GetStr(samplestr,"(",")")

总结

以上是内存溢出为你收集整理的GetStr: 一个自创蛮有用的字符串函数~全部内容，希望文章能够帮你解决GetStr: 一个自创蛮有用的字符串函数~所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。