双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

请问如何确定文件的行数

2003-05-12 04:57:30 184 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

windcat 墨衍会员 · AI 创作全网分发关注 + 加入社区

C++ 动态申请列数行数不确定的变长二维数组(主要是行数不确定) 主要是看与动态申请二维数组的区别动态申请行数列数确定的二维数组；行数列数确定 int n=k1,m=3; //n行 m列 int **scan_point; //动态申请二维数组 scan_point=new int*[n]; for(int i=0;i<n;i++) scan_point[i]=new int[m]; 阅读详情

我是这么写的
Open App.Path & "\sources\e-" & Text1.Text & "-pfsjnl.bin" For Input As #1
Do While Not EOF(1)
Line Input #1, str1
i = i + 1
Loop
Close #1
但是由于文件太大，结果速度很慢
请问有什么方法可以快速得到文件的行数

...全文

RC模型车多电机驱动方案：从电调PWM原理到四电机安全连接实战在电机控制领域，PWM（脉冲宽度调制）是实现精确调速的核心技术。其原理是通过调节固定周期内高电平的脉宽来编码控制指令，进而驱动电子调速器（电调）改变输出功率。这项技术对于需要多电机协同工作的场景，如RC模型车的差速转向或重型负载驱动，具有关键价值。它能实现动力的精细分配与同步，提升车辆的可控性与通过性。在实际应用中，为确保系统稳定，必须关注电流分配与信号同步问题。例如，通过为每个电机配备独立电调并采用信号并联（Y线）的方式，可以构建可靠的四电机驱动系统。这种方案能有效避免因单个电调过载或电机反电动势不一致导阅读详情

windcat

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

lwy1982314 2003-05-13

打赏
举报

用变量名=lop(文件名）/len(rec)
其中rec是记录变量！

刘洪峰AIoT 2003-05-13

打赏
举报

这是整体读取，速度更快一些，比分行读要快

danielinbiti 2003-05-13

打赏
举报

yefanqiu(叶帆) 他想知道行数得目的是读的快些,你的方法是先读取在判断,更慢了-_-

刘洪峰AIoT 2003-05-13

打赏
举报

Private Sub Command1_Click()
Dim a As String
Open App.Path & "\sources\e-" & Text1.Text & "-pfsjnl.bin" For Binary As #1

'Text2.MultiLine = True '在属性框设置 ‘文件太大，可把text2换成richText
'Text2.ScrollBars = 3

a = String(LOF(1), " ")
Get #1, , a
Text2 = a

Close #1

MsgBox "行数:" + Str(GetTextLines(Text2.hWnd))

End Sub
‘模块
Public Const EM_GETLINECOUNT = &HBA
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

'获得文本的行数
Public Function GetTextLines(txtHwnd As Long) As Long
GetTextLines = SendMessage(txtHwnd, EM_GETLINECOUNT, 0, 0)
End Function

danielinbiti 2003-05-13

打赏
举报

Dim wholefile() As Byte

windcat 2003-05-13

打赏
举报

执行楼上语句
到
Get #1,,wholefile
抱错为
"变量使用了一个vb不支持的自动化类型"
是否要引用什么东西？

of123 2003-05-13

打赏
举报

逐行读入将许多时间花费在磁盘缓存处理上了。
dim wholefile, tmp as string
Open App.Path & "\sources\e-" & Text1.Text & "-pfsjnl.bin" For Binary As #1
Get #1,,wholefile
close #1
tmp = replace(wholefile, vbnewline, "")
msgbox "There are " & len(wholefile)-len(tmp) & " lines in the file"

qingming81 2003-05-13

打赏
举报

文件太大，也许只能如此(楼主自己的写法)吧。

DaiLM 2003-05-13

打赏
举报

是否应考虑自动换行呢？

scie 2003-05-13

打赏
举报

bydisplay(时光):你答非所问！！！

danielinbiti 2003-05-13

打赏
举报

bydisplay(时光)的写的是文本框中行数,不是文件的行数

windcat 2003-05-13

打赏
举报

text2 = App.Path & "\sources\e-" & Text1.Text & "-pfsjnl.bin"
我这样写它说要求对象

windcat 2003-05-13

打赏
举报

楼上的写的请问文件名写在哪儿啊
文件的路径写哪儿
望大家指点一下

bydisplay 2003-05-12

打赏
举报

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 Const EM_GETLINECOUNT = &HBA

lineCount = SendMessage(Text2.hwnd, EM_GETLINECOUNT, 0&, 0&)

✦双11狂欢大促✦

请问如何确定文件的行数

相关推荐

双11狂欢大促