- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 【求助】如何代码统计文本文档里内容的行数 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108503)
-- 发布时间：2017/10/24 10:12:00
-- 【求助】如何代码统计文本文档里内容的行数
求助！怎么代码统计文本文档里内容的行数。
-- 发布时间：2017/10/24 11:08:00
--
急，求助，不知道能不能实现，或者有别的方法可以知道文本文档里有多少行数据
-- 发布时间：2017/10/24 11:35:00
--
1、你的是什么文档？
2、如果是txt，参考 http://www.foxtable.com/webhelp/scr/2629.htm
-- 发布时间：2017/10/24 11:41:00
--
txt文档
只需要用变量去接收统计出的txt文档里内容的行数。具体该怎么做啊，不太明白
-- 发布时间：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
-- 发布时间：2017/10/24 16:49:00
--
感谢！自己摸索着出来了。
还有一个问题请教，怎么获取txt的文件名并插入到数据表里面呢。不用文件对话框的形式，软件定时读取文件夹下第一个txt文件的文件名然后赋值给变量s。
-- 发布时间：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)
-- 发布时间：2017/10/25 9:57:00
--
感谢了，但是messageshow的是含有文件目录的，我只想让他显示文件名，不要文件目录，该怎么做。
-- 发布时间：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)