怎么样将*.txt文件多少行的自动判断和删除？

[tangduiye]

怎么样将*.txt文件多少行的自动判断和删除？

[jilate]

打开那个文件，然后用 lineinput 函数吧，具体我也记不得了：）
定义一个变量，每读一行就+1

[FSoft]

选把文件读到一文本框或Richtextbox控件中,然后调用SendMessage函数(API)并向文本框发一个EM_GETLINECOUNT消息(消息也需要定义),如:
dim a as long
a=sendmessage(text1.hwnd,EM_GETLINECOUNT,0,0)

[ahbbnimor]

up

[tangduiye]

vb中好像没有这个lineinput这个函数吧。。。

[tangduiye]

好了，，是line input啊。。问题解决了。。。

[yangfanatcsdn]

统计换行符的个数即可：vbCrLf,vbCr,vbLf。不过你得判断文件是DOS格式还是Unix格式。