问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

VB 读取行数问题

发布网友 发布时间:2023-04-05 17:34

我来回答

2个回答

热心网友 时间:2024-04-10 22:59

你根据以下核心改一下就是了:
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 起算。)

热心网友 时间:2024-04-10 22:59

依此类推?不是只有三个TEXT控件吗?
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
红米手机怎么设置仅在wifi下载 映泰A770L3 6.x详细参数 映泰A770L3 6.x重要参数 问心诗集电子书txt全集下载 《第26局世界大学生运动会诗歌集》txt全集下载 自由体诗的欣赏txt全集下载 徐志摩诗全集txt全集下载 站立的近义词有哪些 站立的近义词是什么 小学语文教师工作评价1000字 吉林电气工程学院什么样 vb读取txt文件行数问题 eclipse怎么安装jdk1.6 解读经文:“化生精,精归气,气舍神 彭冠英庭院大片曝光,不得不说大哥的确有魅力,他现在的发展怎么样?_百 ... 招商银行卡和社保卡有关联吗 社保卡和银行卡二合一的坏处 郑州大学和国华在线教育合作了吗 孔子的主张有哪些? 凯马瑞航x1质保 进口宝马x1维修 清如菊花和防瘦,廉如梅花不畏寒是谁的诗 愣神的意思 发财树盆景怎么养才长得好 远洋未来里周边环境怎么样?生活便利吗? 夸克网盘怎么保存到not 《夸克浏览器》自动备份关闭方法 如何帮忙做家务 皆操举劾权翻译,其中 举 的意思 后肖野外动物是什么生肖 考上大学,你就算文化人了吗 VB读取文本文件的某一行 VB读入文件是如何判断行数的 实况足球月卡打折规则 拼多多月卡天天折扣最低几折 拼多多月卡续费折扣3.7折算便宜 三点水一个兵是什么字 梦见和好朋友和好的预兆 梦见朋友和好的预兆 梦见好朋友和我和好了的预兆 梦见和一个好朋友好了的预兆 英语翻译 明月出天山,苍茫云海间;长风几万里,吹度玉门关. [大概... 请教老司机自动挡汽车熄火停车究竟操作顺序是怎样的才能不伤车? 手机号换了,原来的还可以用吗 手机号码不用了还可以用吗? 剪映电脑版视频怎么边缘模糊? 泰国旅游签证可以提前多久办理? 成都应该如何办理泰国签证 花的主要结构在如图中是___和___.我们吃的“话梅”、“梅子“等蜜饯是... 电脑物理内存怎么降低 一部关于亲情和爱情的电影——《特暴龙历险记》