全部

请问如何确定文件的行数

windcat 2003-05-12 04:57:30

我是这么写的
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
但是由于文件太大，结果速度很慢
请问有什么方法可以快速得到文件的行数

...全文

78 点赞收藏 14

写回复

14 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

lwy1982314 2003-05-13

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

回复赞

叶帆 2003-05-13

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

回复赞

danielinbiti 2003-05-13

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

回复赞

叶帆 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&)

回复赞

怎样取得文件行数 sed -n '$=' filename grep '.*' -c filename perl -ne 'END {print "$i"} ++$i' filename perl -ne 'END {print $.."\n"}' filename awk 'END{print NR}' filename awk '{print NR}' filen...

读文件时判断行数读文件是，先确定文件有多少行，以便于继续往下读。

c++判断文件行数 最近在搬运John Burkardt的c++代码时，发现了很多问题，下面的代码使用来获取文本文件的行数的（其中，空行，以及以#开头的行不计入行数），代码如下： # include <iostream> # include <...

自动判断文件的行数、列数-fortran 自动判断文件的行数、列数-fortran 自动判断文件的行数、列数-fortran 自动判断文件的行数、列数-fortran

python获取txt行数_Python 计算文件行数 Python 实现，读取文件行数，类似 wc -l 的功能，小文件无所谓，如果遇到大文件（5G），就要选择一种性能较高的方法了。列出一下方法：1. readline 读所有行def readline_count(file_name):return len(open(file_...

（python）根据文件行数切割文件这是使用python写的根据文件行数切割文件的函数，实测速度尚可，在源文件大概200w、新文件20w的情况下测试了5个源文件，用时14s，基本满足笔者需要，因此没有继续进行优化，设想的优化思路包括使用多线程等，需要...

Python多种方式统计文本行数大文本 文件行数文件内方法一 Python 读取文件针对小文件可行，大文件效率和性能都很差。以下是几种写法 def get_count(file_abs_name): """ :param: file_abs_name 文件名含绝对路径 """ with open(file_abs_name, 'r') as f: ...

python获取txt行数_如何高效地获取文件行数 简单的做法：需要在python中获取大文件（数十万行）的行数。def file_len(fname):with open(fname) as f:for i, l in enumerate(f):pass return i + 1有效的方法（缓冲区读取策略）：首先看下运行的结果：mapcount :...

Matlab大型文本文件行数方法在工作中会有很多特殊的需要，比如我现在就遇到一个需要将大型的文本格式数据文件（比如5G）读取到MATLAB中，同时进行一定的处理。...但是我们必须先统计文件的行数，才能给出进度。另外有些用户希

（20190326）Fortran之获取文件的行数利用fortran获取文件的行数： program getlon implicit none integer::n integer,external::GetFileN !声明GetFileN是一个外部函数 open(10,file="0326.txt") n=GetFileN(10) ...

linux查看文本文件的行数 wc -l xxx.txt