用VB快速读取TextBox第N行的数据
来源:互联网 发布:照片底色修改软件 编辑:程序博客网 时间:2024/06/08 05:33
TextBox 是以 vbCr+vbLf 为分行符号, 如果我们要逐一读取 TextBox 每一行, 无非是寻找 vbCr+vbLf 的所在位置, 然后取出每一行的字串, 不过这个方法不快,而且如果我们要读取第 N 行数据,还是要从第 1、2、…N-1 行逐一读起,实在麻烦。
还好 Windows API 提供有读取 TextBox 第 N 行的功能, 细节如下:1、API 的声明:
Public Const EM_GETLINE = &HC4
Public Const EM_LINELENGTH = &HC1
Public 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)
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第N行的数据
- VB 快速读取TextBox第N行的数据
- VB快速读取TextBox第N行的数据 (转载)
- VB快速读取 TextBox 第 N 行的资料
- 快速读取 TextBox 第 N 行的资料
- Matlab 从第N行开始读取数据
- VB.NET数据源与ListBox,ComboBox,TextBox的数据绑定
- VB 快速读取文件内容的方法
- 使用java读取文本文件的倒数第N行
- vb.net---如何用二维数组逐个逐个地把TEXTBOX文本框里面的数字读取
- [VB.NET]DataGrid数据取到Textbox
- MATLAB小技:从文本数据第N行开始读取
- au3 读取倒数第n行
- 如何用VB.net快速读取较大的xml文件
- Delphi 快速读取TXT 指定行的数据
- [VB.NET]读取Cookies 显示在textbox中为乱码
- [VB.NET]如何快速给100个textbox.text赋值?
- [VB.NET]设置TextBox的提示文字
- { }soj1308
- ios开发启动页面
- (DS1.5.10)POJ 1019 Number Sequence(确定一个数字序列中某一个位置上的数字)
- discuz 转换nginx服务器后 url重写规则
- PHP POST数组有上限? max_input_vars!
- 用VB快速读取TextBox第N行的数据
- 常见hash算法的原理
- 设计中的手写识别(输入法)笔画--中篇
- Scancode Map 自定义Keyboard
- Leetcode: Candy
- row_number rank dense_rank函数
- 创建简单有用的CSS Sprites
- 有关UIView、subview的几个基础知识点-IOS开发 (实例)
- 编写一个函数,能输出文件夹下的文件列表,文件名通过控制台输入