RicthTextbox中查找的问题

Question

怎样能够在Richtextbox中快速查找,并将查找到所有行存入变量中或其它控件中

Answer 1

用instr查找查找到所有行存入变量中或其它控件中？
什么意思

Answer 2

Private Sub mnuFind_Click()
sFind = InputBox("查找", , sFind)
RichTextBox1.Find sFind
End Sub

Answer 3

有直接用split分割字串成数组，然后根据数组的各个元素的长度和待查字串的长度确定字串的位置：
    Dim strarr() As String
    strarr = Split(s, "<script")
    Dim j As Long
    Dim k As Long
    For j = 0 To UBound(strarr)
        DoEvents
        k = Len(strarr(j)) + k
        Debug.Print "字串<script第" + CStr(j + 1) + "次出现的位置为：" + CStr(k + 1)
        k = k + Len("<script")
    Next如果，查找之后还想替换的话，就用join连接数组

Answer 4

用RichTextBox1.Find也可以，不过不能有中文

Answer 5

做出一个在RichTextBox中查寻的假象，实际用SQL语句直接由数据库获得，然后写入需要的地方，速度肯定很快，而且合理。