VB快速读取 TextBox 第 N 行的资料

快速读取 TextBox 第 N 行的资料
TextBox 是以 vbCr+vbLf 为分行符号，如果我们要逐一读取 TextBox 每一行，
无非是寻找 vbCr+vbLf 的所在位置，然后取出每一行的字串，不过这个方法真
的不快，而且如果我们要读取第 N 行资料，还是要从第 1、2、┅N-1 行逐一读
起，实在麻烦。
还好 Windows API 提供有读取 TextBox 第 N 行的功能，细节如下：

1. API 的声明：

Const EM_GETLINE = &HC4
Const EM_LINELENGTH = &HC1
Const EM_LINEINDEX = &HBB

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)

注：如果以上的声明放在「一般模块」底下，应在 Const 之前加上 Public 保留
字，并且将 Private 保留字去掉。

2. 程序范例：

Sub TB_GetLine(ByVal hWnd As Long, ByVal whichLine As Long, Line As String)
Dim length As Long, bArr() As Byte, bArr2() As Byte, lc As Long

lc = SendMessage(hWnd, EM_LINEINDEX, whichLine, ByVal 0&)
    length = SendMessage(hWnd, EM_LINELENGTH, lc, ByVal 0&)
    If length > 0 Then
        ReDim bArr(length + 1) As Byte, bArr2(length - 1) As Byte
        Call RtlMoveMemory(bArr(0), length, 2)
        Call SendMessage(hWnd, EM_GETLINE, whichLine, bArr(0))
        Call RtlMoveMemory(bArr2(0), bArr(0), length)
        Line = StrConv(bArr2, vbUnicode)
    Else
        Line = ""
    End If
End Sub

' 假设要读取 Text1 第 5 行的资料
Dim S As String
Call TB_GetLine( Text1.hWnd, 5, S )
' 传回值 S 即等于到 5 行的资料
注：TextBox 的行次是从 0 起算。

相关可能感觉兴趣的文章参考：

※VB 获取TextBox文本框中的行数函数

※VB快速读取 TextBox 第 N 行的资料

※限制文本框(TextBox)只能输入数字(VB6代码)

※VB 提取TextBox 文本框中指定一行字符串

※VB 小技巧自定义TextBox文本框右键菜单

※VB 获取光标在TextBox、RichTextBox中所在的位置

部分相关文章推荐

※VB快速读取 TextBox 第 N 行的资料

※VB禁止使用 Alt-Tab 或 Ctrl-Alt-Del

※生成迷宫的程序

※另一方法转换大小写

※VB控件注册 - 利用资源文件将dll、ocx打包进exe文件

※VB利用资源文件进行工作

※[转]vb高效编程（优化）

※VB阳历转阴历

※纯VB代码取得硬盘的物理序列号

※VB获得磁盘的文件系统

※做VB的，经常注册和反注册OCX控件和DLL链

※VB从程序中生成Exe文件

※VB6监视/操作剪贴板示例(VB6.0代码)

※VB6里自动提交/自动填表的一种相对通用的方案

※VB移动没有标题的窗体

※VB随机字母的函数

※VB删除带子文件夹和文件的文件夹

※VB怎样屏蔽 Alt+F4键

※VB 隐藏进程

※vb屏蔽文本框点右键时的弹出菜单

※VB手控Combobox的打开或收起

※在VB中INI文件的读写、删除（对中文支持很好）

※vb全局热键的写法（占很少的资源）

※vb取消文本框的粘贴功能

※VB常用文件操作类

※VB获取特殊文件夹

※VB获取windows各常用目录的函数（模块）

※VB生成太极图

※VB:常用内部函数大全,你会了几个呢?

※vb中SendMessage函数

※精简VB程序的代码

※VB:将数字转换为大写中文

※VB:设定 MsgBox 在若干时间之后若无回应则自动关闭

※VB:读取及设定NumLock/CapsLock/ScrollLock的值

※VB:您知道 Mid$ 函量可以放在 '=' 的左方吗

※VB后台获得按键,并执行自己的函数(非钩子及热键)

※VB:将短文件名格式转成长文件名

※在vb中使用Iphlpapi.dll获取网络信息(上）

※在vb中使用Iphlpapi.dll获取网络信息(下）

VB快速读取 TextBox 第 N 行的资料相关推荐

html 读取 vb,VB编程：vb读取textbox控件某一行的方法
如果不借助API来获取文本框的某一行的话,那就从头开始来查找回车换行符,并确认某一行的换行位置,再来确认某一行的文本内容.但要读取的行数处在textbox最后一行,那么通过这种方式效率就太低了. 想要 ...
[C#]统计文本文件txt中的行数(快速读取)
快速统计文本文件中的行数( StreamReader.ReadLine() ): 测试代码如下: 1 //读取txt文件中总行数的方法 2 public static int requestMetho ...
Python快速读取文件中指定的一行或多行
使用linecache用缓存快速读取,使用栗子如下: 读取一行 import linecachedef get_contexts(file_path, line_number):try:return ...
VB如何读取快捷方式的目标路径
一般情况下,在VB中读取快捷方式的信息,大家首先考虑的是使用IShellLink接口,但这种方法需要下载或定义一个TLB文件,相对来说比较麻烦. 其实我们都知道可以使用WScript.Shell对象的 ...
VB快速查找大型文件中包含的字符串
关于查找大型文件中包含的字符串,一般都把文件内容读入到内存,然后在内存里进行比较,却不知这种办法有一个致命的弱点,那就是由于大量的内存申请和释放导致的内存颠簸,会使系统性能下降,严重影响了查找的速度. ...
PHP几个快速读取大文件例子
PHP几个快速读取大文件例子感谢把我给崩了的投递时间:2014-10-16 来源:三联在PHP中,对于文件的读取时,最快捷的方式莫过于使用一些诸如file.file_get_contents ...
qt快速读取excel
很多人搜如何读写excel都会看到用QAxObject来进行操作,很多人试了之后都会发现一个问题,就是慢,非常缓慢!因此很多人得出结论是QAxObject读写excel方法不可取,效率低. 后来我曾试 ...
R语言入门——数据快速读取与查看（含实例代码和参数讲解）
R语言数据读取介绍引言结构安排数据读取函数文本数据 readLines函数键盘键入数据 scan函数讲解表格数据 .xlsx文件介绍表格数据函数参数介绍快速读入参数介绍竞赛数据练习 ...
海量点云数据快速读取方法
最近阅读了一篇文章--<基于内存映射文件的海量点云数据快速读取方法>,文中介绍的方法能够极大地提升点云读取速率,这为我们读取数以千万的点云数据提供了方法. 通常情况下,在C++中读文件,使 ...

VB快速读取 TextBox 第 N 行的资料

※VB 获取光标在TextBox、RichTextBox中所在的位置

VB快速读取 TextBox 第 N 行的资料相关推荐

最新文章

热门文章