VB如何高效的查找Textbox中包含指定字符串所在的行数
假设Textbox1已包含几万行数据，我要从第100行以后查找G00Z100.这个关键字直到末尾,如何能快速计算出其所在的行数?找到第一个即可,不需要循环查找。关键是要快速，高效。
看过别人的答案：http://zhidao.baidu.com/question/17173499.html?fr=qrl，我试了一下，的确是可行的，缺点就是太慢，让人无法忍受。所以我在此请教各位，请高手们不吝赐教，小弟感激不尽！
SendMessage text.hwnd,EM_GETLINE,行数，ByVal S
其中s为字符串变量通过这个函数s为这行的内容
VB如何高效的查找Textbox中包含指定字符串所在的行数
SendMessage text.hwnd,EM_GETLINE,行数，ByVal S 其中s为字符串变量通过这个函数s为这行的内容
vb中如何读取textbox中指定的一行
Dim S As String Call TB_GetLine( Text1.hWnd, 5, S )' 传回值 S 即等于第 5 行的数据 （ 注：TextBox 的行次是从 0 起算。）站长在去掉有关bArr2的定义后，并将Line=Strconv(bArr2,vbUnicode)改为Line=StrConv(bArr,vbUnicode)发现程序照常运行，似乎bArr2在本程序中是多余的。不知...
在VB中怎样取得富文本框控件中的文本行数?
使用 Mid 函数，一个字符一个字符的比较。速度比较慢。Option Explicit Public Function CalcNewLine(ByVal AString As String) As Long Dim size As Long Dim i As Long CalcNewLine = 0 size = Len(AString)For i = 1 To size If Mid(AString, i, 1) = vbCr Then CalcNewLine = CalcN...
在VB中如何获取TextBox的行数?
Private Function GetCurPos(ptPos As POINTAPI) As Long Dim nLine As Long, nCol As Long Call SendMessage(Me.Text1.hwnd, EM_GETSEL, 0, ptPos)nLine = SendMessage(Me.Text1.hwnd, EM_LINEFROMCHAR, ptPos.x, ByVal 0&) '获得行号 nCol = ptPos.x - SendMessage(Me.Text1.hwn...
VB 如何判断字符所在的行数?
原理很简单,首先查找回车后产生的换行的个数,即行数,然后查找在该行上是否存在指定的字符串,代码如下,程序测试成功实现你要的功能,代码如下:Private Sub cmdOk_Click()'循环变量 Dim i As Integer '获取文本框中的行数 Dim LineCount As Integer '获取文本框中的字符总数 Dim Length As Integer '...
vb中如何读取textbox中某一行内容?
最好是放在listbox中，方便，如果你非要用textbox，你可以尝试下面的代码，文本最后不能有空行，否则会有空白：参考 Private Sub Command1_Click()Dim a Dim i As Integer a = Split(Trim(Text1.Text), vbCrLf)Randomize i = Int(Rnd * (UBound(a) - LBound(a)) + 1) + LBound(a)Prin...
vb.net 如何取出多行字符串中的指定的一行
第一个问题有个简单的方法，把字符串变量赋值到一个textbox里面,利用textbox.lines实现。如：dim a as string ="hh12345" & vbcrlf & "qdq123" & vbcrlf & "ddd244" & vbcrlf & "whw266" ’定义变量 textbox1.text=a ‘赋值 message.show(textbox1.lines(2).tostring) ‘显示第三行内容...
VB编程,查找TXT中特定的字符串
方法一：用richtextbox的查找方法 代码如下，你先把查找的内容赋值于FindTxt变量 RichTextBox1.Find (FindTxt)If RichTextBox1.Find(FindTxt) = -1 Then MsgBox "没有找到相关的字符！", 48, "查找"End If 这样找到之后自动选中文字 方法二：用字符串操作，自定义一个函数 参考资料：http:\/\/zh...
vb中如何检测textbox控件中有数字存在?
你这10个textbox最好做成控件数组，这样就可以：Private Sub Text1_Change(Index As Integer)MsgBox "Text1(" & Index & ")中的数据更改了！"End Sub 如果不是控件数组，那么就要分别检测这10个textbox的change事件，烦不烦啊？不懂控件数组的话，可以再问我 ...
vba 怎么实现在excel中搜索窗体textbox中的内容
功能描述如下，如附件中frame图所示，在textbox中输入一个人名，实时在一个表格（如附件表格图所示）中搜索此人名，并将搜索结果放到frame中的listbox中，搜索结果包括姓名，班级，性别。实时显示就是在textbox中输入后马上执行搜索并显示的任务，应该是在textbox的change方法中写代码。根据textbox1里的值...
