delphi还有人用吗 批处理取文本文件的行数？

批处理取文本文件的行数？我以前写过这个，但它的功能比您要求的多。首先，它显示每个文件中的行数，然后显示文件总数和行总数。使用方法：选择要计数的所有目录或文件并将它们拖到上面。vb怎么获得txt文件中的

批处理取文本文件的行数？

我以前写过这个，但它的功能比您要求的多。首先，它显示每个文件中的行数，然后显示文件总数和行总数。使用方法：选择要计数的所有目录或文件并将它们拖到上面。

vb怎么获得txt文件中的行数?怎么实现？

添加text1，多行属性应设置为true privatedeclarefunctionsendmessage lib“user32”alias“SendMessage a”（byvalhwndaslong，byvalwmsgaslong，byvalwparameaslong，lparamasany）aslong constemugetlinecount=&HBA Dimfname$，aa$，jj& PrivateSubFormuload（）fname=“c:测试.txt将“”更改为您自己的文件名称和路径（应用程序路径)OpenfnameForInputAs#1 Text1.Text=“”WhileNotEOF（1）LineInput#1，aa Text1.Text=Text1.Text&aa&vbCrLf Wend jj=SendMessage（Text1.hwnd，EMugetlinecount，1,0）MsgBoxjj EndSub