VB.NET RICHTEXTBOX中查询两个固定关键字之间的内容 例如:<标签>1111<标签>
VB.NETRICHTEXTBOX中查询两个固定关键字之间的内容谁能实现?例如:<标签>1111<标签>需要通过查找两个<标签>得到1111各位我急用请一定给我详细测试过...
VB.NET RICHTEXTBOX中查询两个固定关键字之间的内容 谁能实现?
例如:<标签>1111<标签> 需要通过查找两个<标签>得到1111
各位 我急用 请一定给我详细测试过的代码 不胜感激~~~谢谢了
没人会? 展开
例如:<标签>1111<标签> 需要通过查找两个<标签>得到1111
各位 我急用 请一定给我详细测试过的代码 不胜感激~~~谢谢了
没人会? 展开
3个回答
展开全部
查询str1和str2这两个关键字之间的内容并选中高亮文本。
Dim str1, str2 As String, selposition1, selposition2 As Integer
'Dim srchmode As Microsoft.VisualBasic.CompareMethod
str1 = "提高吸入" : str2 = "安装高度"
selposition1 = InStr(RichTextBox1.Text, str1)
selposition2 = InStr(RichTextBox1.Text, str2)
If selposition1 = 0 Then
MsgBox("未找到所查找的内容!")
Exit Sub
End If
RichTextBox1.Select(selposition1 - 1 + Len(str1), selposition2 - selposition1 - Len(str1))
RichTextBox1.ScrollToCaret()
RichTextBox1.Focus()
Dim str1, str2 As String, selposition1, selposition2 As Integer
'Dim srchmode As Microsoft.VisualBasic.CompareMethod
str1 = "提高吸入" : str2 = "安装高度"
selposition1 = InStr(RichTextBox1.Text, str1)
selposition2 = InStr(RichTextBox1.Text, str2)
If selposition1 = 0 Then
MsgBox("未找到所查找的内容!")
Exit Sub
End If
RichTextBox1.Select(selposition1 - 1 + Len(str1), selposition2 - selposition1 - Len(str1))
RichTextBox1.ScrollToCaret()
RichTextBox1.Focus()
展开全部
你的问题表述的太不明白了吧,是不是编程人员的文字表达都不好
追问
哥先解决问题行么
从富文本框中取出两个固定字符之间的字符串 这样明白么?vb.net2010的代码
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
晕, 上面那代码你相同的标签能过??看来我献丑了,把我自己的代码删掉吧!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询