如何获取一个文本文件有多少行?,在线等 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 如何获取一个文本文件有多少行?,在线等

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 2354 人关注过本帖

标题：如何获取一个文本文件有多少行?,在线等

只看楼主加入收藏

appleuser

等　级：新手上路
帖　子：81
专家分：0
注　册：2007-5-1

楼主

问题点数：0 回复次数：14

如何获取一个文本文件有多少行?,在线等

如题:如何获取一个文本文件有多少行?

搜索更多相关主题的帖子: 文本文件　获取　在线　

2008-03-12 13:10

随风逐流

来　自：passerby
等　级：版主
威　望：8
帖　子：4054
专家分：271
注　册：2007-6-13

第 2 楼

得分:0

用FSO

[url=http://www./html/6/6694/]极道金丹[/url][url=http://www./html/2/2849/]九阴九阳[/url][url=http://www./html/2/2596/]凡人修仙传[/url]

2008-03-12 13:22

appleuser

等　级：新手上路
帖　子：81
专家分：0
注　册：2007-5-1

第 3 楼

得分:0

能说的祥细点吗?谢谢

VB刚入门

2008-03-12 13:27

随风逐流

来　自：passerby
等　级：版主
威　望：8
帖　子：4054
专家分：271
注　册：2007-6-13

第 4 楼

得分:0

不好意思
好象没有直接读行数的
只能全部读出来，然后判断VBCRLF有多少

[url=http://www./html/6/6694/]极道金丹[/url][url=http://www./html/2/2849/]九阴九阳[/url][url=http://www./html/2/2596/]凡人修仙传[/url]

2008-03-12 13:38

appleuser

等　级：新手上路
帖　子：81
专家分：0
注　册：2007-5-1

第 5 楼

得分:0

请教：如何判断有多少个cvCrlf呢？

VB刚入门

2008-03-12 13:45

随风逐流

来　自：passerby
等　级：版主
威　望：8
帖　子：4054
专家分：271
注　册：2007-6-13

第 6 楼

得分:0

Open filePath For Input As #1
Do Until EOF(1)
Line Input #1, strTemp
loop
close #1

[url=http://www./html/6/6694/]极道金丹[/url][url=http://www./html/2/2849/]九阴九阳[/url][url=http://www./html/2/2596/]凡人修仙传[/url]

2008-03-12 14:01

appleuser

等　级：新手上路
帖　子：81
专家分：0
注　册：2007-5-1

第 7 楼

得分:0

我先试一下，谢谢！

VB刚入门

2008-03-12 14:04

appleuser

等　级：新手上路
帖　子：81
专家分：0
注　册：2007-5-1

第 8 楼

得分:0

dim i as integer
i = 0
Open filePath For Input As #1
Do Until EOF(1)
    Line Input #1, strTemp
    i = i + 1
loop
close #1
msgbox "共有  & i & "行"

这样才行

VB刚入门

2008-03-12 15:00

随风逐流

来　自：passerby
等　级：版主
威　望：8
帖　子：4054
专家分：271
注　册：2007-6-13

第 9 楼

得分:0

....我知道

[url=http://www./html/6/6694/]极道金丹[/url][url=http://www./html/2/2849/]九阴九阳[/url][url=http://www./html/2/2596/]凡人修仙传[/url]

2008-03-12 15:25

dawn4640576

等　级：新手上路
帖　子：1079
专家分：0
注　册：2007-9-19

第 10 楼

得分:0

[bo]以下是引用 [un]appleuser[/un] 在 2008-3-12 15:00 的发言：[/bo]

dim i as integer
i = 0
Open filePath For Input As #1
Do Until EOF(1)
    Line Input #1, strTemp
    i = i + 1
loop
close #1
msgbox "共有  & i & "行"

这样才行

哈,真会搞笑

我看青山多妩媚料青山看我应如是

2008-03-12 15:48

快速回复：如何获取一个文本文件有多少行?,在线等