我想在richtextbox中查找一个内容 ，显示在TEXT中，请高手指教！

Question

比如： richtextbox中显示出来一个内容，“名字 = 192.168.0.1” 我想把192.168.0.1挑选出来显示在TEXT控件中。如何才能做到，请高手指教！

Answer 1

用 instr 配合 left 或者 mid 应该可以完成你的要求。

Answer 2

if instr(richtextbox.text,"192.168.0.1") then
 TEXT1.text="192.168.0.1"
end if

Answer 3

192.168.0.1我只是打个比方，IP地址是不断变化的，而且我是想从一段内容中提取“名字 =x.x.x.x”中的IP 地址。请高手们指教！！！！

Answer 4

dim sText as string
dim v
sText=Mid(richtextbox.text, Instr(RichTextBox.Text,"名字=")+len("名字="),20)
v=Split(sText,".")
Text.Text="名字=" & val(v(0)) & "." & val(v(1)) & "." & val(v(2)) & "." & val(v(3))
erase v

Answer 5

不行啊 lyserver  提示我”下标越界“ text.text=.....这行。

Answer 6

下标越界是因为richtextbox里没有找到xxx.xxx.xxx.xxx的内容。
你首先得确保有IP地址，如果没有，可以加一个错误处理，如：
On error resume next

Answer 7

richtextbox.Find(string, start, end, options)

Answer 8

LZ给分请,谢谢!!
Private Sub Command1_Click()
    Dim arrayNumber() As String
    Dim strString As String
    
    strString = "192.168.1.1"
    
    arrayNumber = Split(strString, ".")
    
    For i = 0 To UBound(arrayNumber)
        MsgBox arrayNumber(i)
    NextEnd Sub

Answer 9

richtextbox这里的数据读出来总会吧!?