找到text1.text中所有以text2.text开头，以text3.text结束的字符串~
并上源程序。。望网友解答，，谢谢~~~

并上已完成源程序~！

版主。。帮帮忙啊！

你是好人！

没有源代码啊。。老大！！！

还用源码啊……replace+split

如果我知道怎么做就不用到BBS上来发贴了。。。你这样做很没意思~！

顶上去！继续求助！！！

汗~

Private Function GetStr(StrSource, StrBegin, StrEnd As String) As String
Dim i As Integer
Dim OutTemp As String
Dim OutStr() As String
OutTemp = Replace(StrSource, StrBegin, "|>><<|")
OutTemp = Replace(OutTemp, StrEnd, "|>><<|")
OutStr = Split(OutTemp, "|>><<|")
For i = 1 To UBound(OutStr) Step 2
GetStr = GetStr & OutStr(i) & vbCrLf
Next
End Function '截取两段代码的中间部分-EndExECuT

1。你点名让斑竹帮你~我给写出效果已经……
2。代码我发的就有，不过类似彩蛋……没设置对不会出现的。

第一，发了两天没人来所以向版主求救。。。
第二，如果你不愿意发也不会勉强你。

第三， '截取两段代码的中间部分-EndExECuT
你这段函数我也只能这样说！

第四，你的方法我不用，不食嗟来之食~

Sub GetStr_BSslore(StrSource, StrBegin, StrEnd As String)
Dim in_star, in_end As Integer
StrStar1 = InStr(StrSource, StrBegin) + Len(StrBegin)
StrEnd1 = InStr(StrSource, StrEnd)
MiddleCode = Mid(StrSource, StrStar1, StrEnd1 - StrStar1)
End Function '截取两段代码的中间部分

还有呢
小心眼
有点能耐装B继续
以为在BC-CN上混得久，装大还是
没想帮人故意发个效果上来，网友就认为你有能耐？再送你一个
算了，不说你了~反正你也没有惹我，只是个人觉得人这人语气与态度不行~不是求你干某事，不愿意帮最好不要别装B~OK~？