【求助】如何代码统计文本文档里内容的行数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【求助】如何代码统计文本文档里内容的行数

共有1605人关注过本帖树形打印复制链接主题：【求助】如何代码统计文本文档里内容的行数

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/24 11:35:00 [显示全部帖子]

1、你的是什么文档？

2、如果是txt，参考 http://www.foxtable.com/webhelp/scr/2629.htm

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/24 12:19:00 [显示全部帖子]

参考代码

Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
Tables("表A").StopRedraw
If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName)
    Dim ary() = strs.split(chr(10))
    msgbox(ary.length)
end if

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/24 17:21:00 [显示全部帖子]

根据什么排序？

Dim ls = FileSys.GetFiles("d:\")
msgbox(ls(0))
'根据时间排序
Dim maxdate As Date
Dim firstfile As String = ""
For Each s As String In ls
    Dim f As new FileInfo(s)
    If maxdate < f.LastWriteTime Then
        maxdate = f.LastWriteTime
        firstfile = s
    End If
Next
msgbox(firstfile)

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/25 10:01:00 [显示全部帖子]

Dim ls = FileSys.GetFiles("d:\")
msgbox(filesys.getname(ls(0)))
'根据时间排序
Dim maxdate As Date
Dim firstfile As String = ""
For Each s As String In ls
    Dim f As new FileInfo(s)
    If maxdate < f.LastWriteTime Then
        maxdate = f.LastWriteTime
        firstfile = filesys.getname(s)
    End If
Next
msgbox(firstfile)

下一主题 >> << 上一主题

主题：【求助】如何代码统计文本文档里内容的行数