txt文本如何统计行数_百度知道
txt文本如何统计行数
有5个txt的文本，每天都要检查他们的行数是否是一样的，现在用的是UltreEdit一个个的打开然后把鼠标拖到最后一行看。这样挺麻烦的，有没有高手有别的办法解决~~
我有更好的答案
txt文本统计行数的方法。例如首先在e盘下创建统计行数文件夹然后把在统计行数文件夹下创建任意txt文件打开该txt文件并将下面的代码复制进去&job&id=&HowManyLines&&&&script&language=&VBScript&&&Const&ForReading&=&1&Dim&objFSO,&fold,&f,&strMsg,&fileNames(100),&objFile,&lineCount(100),files,i&set&objFSO&=&CreateObject(&Scripting.FileSystemObject&)&set&fold&=&objFSO.GetFolder(&E:\统计行数\&)&set&files&=&fold.Files&For&Each&f&in&files&If&objFSO.GetExtensionName(f)&=&&txt&&Then&Set&objFile&=&objFSO.OpenTextFile(f,&ForReading)&Do&While&objFile.AtEndOfStream&&&&True&objFile.ReadLine&lineCount(i)&=&lineCount(i)&+&1&Loop&objFile.Close&fileNames(i)&=&f.Name&i&=&i&+&1&End&If&Next&strMsg&=&&&&For&i&=&0&To&UBound(fileNames)&If&fileNames(i)&&&&&Then&strMsg&=&strMsg&&&fileNames(i)&&&&:&&&&lineCount(i)&strMsg&=&strMsg&&&Chr(13)&End&If&Next&MsgBox(strMsg)&&/script&&&/job&并将该txt文件后缀改为wsf然后把要统计行数的txt文件放到统计行数的文件夹下。点击运行这个wsf的脚本文件。我们会看到行数的统计结果啦。
采纳率：53%
来自团队：
新建一个扩展名为wsf的文件，即window脚本宿主文件输入以下代码&job id=&vbs&&&script language=&VBScript&&Const ForReading = 1Dim objFSO, objFile, iSet objFSO = CreateObject(&Scripting.FileSystemObject&)Set objFile = objFSO.OpenTextFile(&test.txt&, ForReading)Do While objFile.AtEndOfStream && True
objFile.ReadLine
i = i + 1LoopobjFile.CloseWscript.Echo i&/script&&/job&把&test.txt&改成你要的文件就可以统计该文件的行数改成可以输入的文件名的，可以输入多个文件名，每个文件名用空格隔开&job id=&HowManyLines&&&script language=&VBScript&&Const ForReading = 1Dim strMsg, fileNames, objFile, lineCount(100)set objFSO = CreateObject(&Scripting.FileSystemObject&)set WshShell = WScript.CreateObject(&WScript.Shell&)strMsg = InputBox(&Please enter your file name:&)fileNames = Split(strMsg, & &, -1, 1)For i = 0 To UBound(fileNames)
Set objFile = objFSO.OpenTextFile(fileNames(i) & &.txt&, ForReading)
Do While objFile.AtEndOfStream && True
objFile.ReadLine
lineCount(i) = lineCount(i) + 1
objFile.CloseNextstrMsg = &&For i = 0 To UBound(fileNames)
strMsg = strMsg & lineCount(i)& & &NextMsgBox(strMsg)&/script&&/job&如果你连文件名都不想输，就用下面这个，指定下目录，会统计出该目录下所有txt文件的行数&job id=&HowManyLines&&&script language=&VBScript&&Const ForReading = 1Dim objFSO, fold, f, strMsg, fileNames(100), objFile, lineCount(100),files,iset objFSO = CreateObject(&Scripting.FileSystemObject&)set fold = objFSO.GetFolder(&C:\Documents and Settings\&)set files = fold.FilesFor Each f in filesIf objFSO.GetExtensionName(f) = &txt& Then
Set objFile = objFSO.OpenTextFile(f, ForReading)
Do While objFile.AtEndOfStream && True
objFile.ReadLine
lineCount(i) = lineCount(i) + 1
objFile.Close
fileNames(i) = f.Name
i = i + 1End IfNextstrMsg = &&For i = 0 To UBound(fileNames)If fileNames(i)&&&& Then
strMsg = strMsg & fileNames(i) & &:& & lineCount(i)
strMsg = strMsg & Chr(13)End IfNextMsgBox(strMsg)&/script&&/job&Just make a try!
本回答被提问者采纳
Notepad2 MOD你需要装一下这个好东西这是一个用来取代 Notepad 的绿色免费程序，具有显示行号、内建各种程序语法的高亮度显示、支持 Unicode 与 UTF-8 的功能。最重要的是他具有一般文书编辑软件所没有的「行列功能」，可以进行区块模式选取的编辑。绝对是程序设计、文本编辑的好帮手。
自己去下载吧下回来后改名为notepad.exe仿效替换C:\WINDOWS\system32\dllcacheC:\WINDOWS\system32C:\WINDOWS下的相同文件...以后记事就不会复原了....
Pascal 程序中读到chr(13)就加一就行了chr(13)为回车
文本里查看菜单里有个状态栏，选中就可以了．不过功能无法和UE相比．
最好能些个小程序来统计，很简单的一个程序
其他3条回答
为您推荐：
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。如何批量去掉文件夹中带数字的TXT文件名中的数字
[问题点数：40分]
本版专家分：0
结帖率 50%
CSDN今日推荐
本版专家分：129855
2017年3月 VB大版内专家分月排行榜第一2016年12月 VB大版内专家分月排行榜第一2016年5月 VB大版内专家分月排行榜第一2016年1月 VB大版内专家分月排行榜第一2015年12月 VB大版内专家分月排行榜第一2015年11月 VB大版内专家分月排行榜第一2015年10月 MS-SQL Server大版内专家分月排行榜第一2015年9月 VB大版内专家分月排行榜第一2015年9月 MS-SQL Server大版内专家分月排行榜第一2015年8月 VB大版内专家分月排行榜第一2015年8月 MS-SQL Server大版内专家分月排行榜第一2015年7月 VB大版内专家分月排行榜第一2015年7月 MS-SQL Server大版内专家分月排行榜第一2015年6月 VB大版内专家分月排行榜第一2015年5月 VB大版内专家分月排行榜第一2015年4月 VB大版内专家分月排行榜第一2015年3月 VB大版内专家分月排行榜第一2015年2月 VB大版内专家分月排行榜第一2014年11月 VB大版内专家分月排行榜第一2014年9月 VB大版内专家分月排行榜第一2014年8月 VB大版内专家分月排行榜第一2014年7月 VB大版内专家分月排行榜第一2013年7月 VB大版内专家分月排行榜第一2013年4月 VB大版内专家分月排行榜第一2010年2月 VB大版内专家分月排行榜第一2010年1月 VB大版内专家分月排行榜第一2009年11月 VB大版内专家分月排行榜第一2009年9月 VB大版内专家分月排行榜第一2009年8月 VB大版内专家分月排行榜第一2009年7月 VB大版内专家分月排行榜第一2009年4月 VB大版内专家分月排行榜第一2009年3月 VB大版内专家分月排行榜第一2009年2月 VB大版内专家分月排行榜第一2009年1月 VB大版内专家分月排行榜第一2008年6月 VB大版内专家分月排行榜第一2007年12月 VB大版内专家分月排行榜第一2007年10月 VB大版内专家分月排行榜第一2007年9月 VB大版内专家分月排行榜第一
2016年11月 VB大版内专家分月排行榜第二2016年1月 MS-SQL Server大版内专家分月排行榜第二2015年12月 MS-SQL Server大版内专家分月排行榜第二2015年11月 MS-SQL Server大版内专家分月排行榜第二2015年5月 MS-SQL Server大版内专家分月排行榜第二2015年4月 MS-SQL Server大版内专家分月排行榜第二2015年1月 VB大版内专家分月排行榜第二2015年1月 MS-SQL Server大版内专家分月排行榜第二2014年12月 VB大版内专家分月排行榜第二2014年11月 MS-SQL Server大版内专家分月排行榜第二2014年9月 MS-SQL Server大版内专家分月排行榜第二2013年8月 VB大版内专家分月排行榜第二2013年6月 VB大版内专家分月排行榜第二2013年5月 VB大版内专家分月排行榜第二2010年4月 VB大版内专家分月排行榜第二2010年3月 VB大版内专家分月排行榜第二2008年12月 VB大版内专家分月排行榜第二2008年8月 VB大版内专家分月排行榜第二2008年7月 VB大版内专家分月排行榜第二2007年11月 VB大版内专家分月排行榜第二
2017年1月 MS-SQL Server大版内专家分月排行榜第三2015年6月 MS-SQL Server大版内专家分月排行榜第三2015年3月 MS-SQL Server大版内专家分月排行榜第三2015年2月 MS-SQL Server大版内专家分月排行榜第三2014年12月 MS-SQL Server大版内专家分月排行榜第三2014年10月 VB大版内专家分月排行榜第三2014年10月 MS-SQL Server大版内专家分月排行榜第三2014年8月 MS-SQL Server大版内专家分月排行榜第三2013年9月 VB大版内专家分月排行榜第三2013年3月 VB大版内专家分月排行榜第三2012年5月 VB大版内专家分月排行榜第三2012年4月 VB大版内专家分月排行榜第三2010年10月 VB大版内专家分月排行榜第三2010年8月 VB大版内专家分月排行榜第三2010年7月 VB大版内专家分月排行榜第三2009年5月 VB大版内专家分月排行榜第三2008年9月 VB大版内专家分月排行榜第三2008年4月 VB大版内专家分月排行榜第三2008年2月 VB大版内专家分月排行榜第三
本版专家分：51858
2018年6月 VB大版内专家分月排行榜第一2018年5月 VB大版内专家分月排行榜第一2018年4月 VB大版内专家分月排行榜第一2018年3月 VB大版内专家分月排行榜第一2018年2月 VB大版内专家分月排行榜第一2018年1月 VB大版内专家分月排行榜第一2017年9月 VB大版内专家分月排行榜第一2017年8月 VB大版内专家分月排行榜第一2017年7月 VB大版内专家分月排行榜第一2017年6月 VB大版内专家分月排行榜第一2017年5月 VB大版内专家分月排行榜第一2017年4月 VB大版内专家分月排行榜第一2016年11月 VB大版内专家分月排行榜第一2016年8月 VB大版内专家分月排行榜第一2016年7月 VB大版内专家分月排行榜第一2013年12月 VB大版内专家分月排行榜第一2013年10月 VB大版内专家分月排行榜第一2013年9月 VB大版内专家分月排行榜第一2008年5月 VB大版内专家分月排行榜第一
2017年12月 VB大版内专家分月排行榜第二2017年11月 VB大版内专家分月排行榜第二2017年3月 VB大版内专家分月排行榜第二2016年12月 VB大版内专家分月排行榜第二2016年10月 VB大版内专家分月排行榜第二2013年11月 VB大版内专家分月排行榜第二
2016年3月 VB大版内专家分月排行榜第三2012年9月 VB大版内专家分月排行榜第三
本版专家分：28726
2011年10月 VB大版内专家分月排行榜第二2011年3月 VB大版内专家分月排行榜第二2011年2月 VB大版内专家分月排行榜第二
2011年5月 VB大版内专家分月排行榜第三2011年4月 VB大版内专家分月排行榜第三
本版专家分：17332
本版专家分：28726
2011年10月 VB大版内专家分月排行榜第二2011年3月 VB大版内专家分月排行榜第二2011年2月 VB大版内专家分月排行榜第二
2011年5月 VB大版内专家分月排行榜第三2011年4月 VB大版内专家分月排行榜第三
本版专家分：17555
2006年7月 总版技术专家分月排行榜第二
2006年7月 Windows专区大版内专家分月排行榜第一2006年7月 VB大版内专家分月排行榜第一
2009年6月 VB大版内专家分月排行榜第二
匿名用户不能发表回复！|
CSDN今日推荐TXT记事本如何在下方显示行数_百度经验
&&&&&&互联网TXT记事本如何在下方显示行数听语音1234567
百度经验:jingyan.baidu.com使用TXT记事本多为礼包码、卡号之类的，这些在使用时一般都以行数为统计数量的标准。下面就介绍下在TXT记事本中没有显示行数时，我们该如何把这个行数显示出来百度经验:jingyan.baidu.com电脑TXT记事本礼包码或者卡号百度经验:jingyan.baidu.com1刚打开，鼠标光标移动，记事本下方未出现行数显示的，这个表示记事本的状态栏没有打开，如下图2将鼠标移动到查看菜单栏，会出现二级选项状态栏。这里会出现两种情况，①状态栏文字颜色为灰色，表示此记事本文件使用了自动换行功能，无法显示出状态栏②状态栏文字颜色为黑色，直接鼠标左键点击，状态栏前面会打勾勾，这样就可以显示出行数了。情况①的，文字颜色显示灰色，需要通过后面的步骤让文字颜色变为黑色才能看到行数3状态栏文字颜色显示为黑色的，鼠标移动到格式菜单栏，点击后可以看到，里面的自动换行前面为打勾状态，这表示启用了自动换行功能4鼠标点击自动换行，取消启用换行功能，然后鼠标移动到查看菜单栏，会看到状态栏这里颜色变为黑色了5状态栏勾选上，这样就可以在下方看见鼠标光标指向文字的行数了。END百度经验:jingyan.baidu.com勾选状态栏后，编辑记事本，想要使用自动换行功能，直接在格式菜单栏勾选自动换行即可经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本篇经验系本人依照真实经历原创，未经许可，谢绝转载。投票(41)已投票(41)有得(0)我有疑问(0)◆◆说说为什么给这篇经验投票吧！我为什么投票...你还可以输入500字◆◆只有签约作者及以上等级才可发有得&你还可以输入1000字◆◆如对这篇经验有疑问，可反馈给作者，经验作者会尽力为您解决！你还可以输入500字相关经验170941热门杂志第1期你不知道的iPad技巧3801次分享第1期win7电脑那些事6651次分享第2期新人玩转百度经验1416次分享第1期Win8.1实用小技巧2660次分享第1期小白装大神1939次分享◆请扫描分享到朋友圈如何把TXT中的数字都改成指定数字_百度知道
如何把TXT中的数字都改成指定数字
我有更好的答案
编辑&替换如图.点击&全部替换&,可以把文中全部&1&替换成&2&
有好多文档，一个文档就需要改一个日期
那只能一个个打开替换了.......不知道批处理能不能完成这个.........
采纳率：55%
为您推荐：
其他类似问题
勃兰兑斯的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 906|回复: 8
excel一列数字转换成TXT行，并且在TXT中这行每个数字中间都有空格，怎么做
阅读权限20
在线时间 小时
就是把excel列变成TXT行，如图所示
QQ截图37.png (52.87 KB, 下载次数: 2)
13:46 上传
QQ截图19.png (16.18 KB, 下载次数: 2)
13:47 上传
阅读权限70
在线时间 小时
.gif (350.74 KB, 下载次数: 2)
13:56 上传
神速，呵呵！
阅读权限100
在线时间 小时
.gif (296.83 KB, 下载次数: 2)
14:01 上传
阿哈， 巧合
为啥我最多只能加2分
阅读权限20
在线时间 小时
能不能用代码完成那
阅读权限70
在线时间 小时
你用的这个录像工具是什么额？ 比ggg高清很多，有链接么？
阅读权限100
在线时间 小时
你用的这个录像工具是什么额？ 比ggg高清很多，有链接么？
Camtasia Studio 7
搜索看看吧。
阅读权限70
在线时间 小时
Camtasia Studio 7
搜索看看吧。
哈，看到了，谢谢！！
阅读权限20
在线时间 小时
好好好！学习了/.
阅读权限20
在线时间 小时
谢谢各位，已完美解决
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}