游戏技术文章

小技巧:统计文本文件行数

时间:2016-11-13 11:29:07  作者:棋牌资源网  来源:棋牌资源网  查看:7812  评论:0
内容摘要:第三种方法更简便:首先也是新建一个TXT文件,然后将下面代码复制进去。Const ForReading = 1Di...
  1. 第三种方法更简便:首先也是新建一个TXT文件,然后将下面代码复制进去。

    <job id="HowManyLines">

    <script language="VBScript">

    Const ForReading = 1

    Dim 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

    Loop

    objFile.Close

    Next

    strMsg = ""

    For i = 0 To UBound(fileNames)

    strMsg = strMsg & lineCount(i)& " "

    Next

    MsgBox(strMsg)

    </script>

    </job>

  2. 保存,并和上面两种方法一样,将这个新建的TXT文本的后序格式名改为wsf

    小技巧:统计文本文件行数
    双击打开,输入你要查找的TXT文本名字

    小技巧:统计文本文件行数
    结果就出来了。

    小技巧:统计文本文件行数


标签:小技巧:统计文本文件行数 

欢迎加入VIP,【VIP售价:只要288元永久VIP会员】畅享商业棋牌游戏程序下载,点击开通!

下载说明


☉本站所有源码和资源均由站长亲自测试-绝对保证都可以架设,运营!
☉如源码和资源有损坏或所有链接均不能下载,请告知管理员,

☉本站软件和源码大部分为站长独资,资源购买和收集,放心下载!

☉唯一站长QQ:1004003180  [人格担保-本站注重诚信!]

☉购买建议E-mail:1004003180@qq.com   源码收购 E-mail:1004003180@qq.com    

☉本站文件解压密码  【文章内都自带解压密码,每个密码不同!】


本站提供的所有源码,均来源站长提供,仅学习交流 浙ICP备09009969号

由此产生不良后果和法律责任与本站无关,如果侵犯了您的版权,请来信告知 1004003180@qq.com 将及时更正和删除! 

Copyright © 2008-2021 棋牌资源网,你身边的棋牌资源下载站    All Rights Reserved