vbs怎么实现的支持拖动的txt文本切割器

这篇文章主要介绍vbs怎么实现的支持拖动的txt文本切割器，文中介绍的非常详细，具有一定的参考价值，感兴趣的小伙伴们一定要看完！

'/*=========================================================================    ' * Intro       .txt文本切割器，默认为8000个字符切为一个文件。支持拖动。    ' * FileName    SplitFile.vbs    ' * Version     v1.0    ' *==========================================================================*/    Set objArgs = WScript.Arguments    If objArgs.Count = 0 Then       IIIII InputBox("选择要处理的文本文件", , "选择要处理的文本文件")    Else       For I001 = 0 To objArgs.Count - 1            IIIII objArgs(I001)        Next   End If   Function IIIII(Path)        TempStr = ReadFromFile(Path, "gb2312")        Length = Len(TempStr)        iii = 0        For II = 0 To Length step 8000 '8000个字符切为一个文件            iii = iii + 1            WriteToFile Left(Path, Len(Path) -4) & "_" & Right("00" & iii, 3) & ".txt" , Mid(TempStr, II + 1, 8000), "gb2312"       Next   End Function      Function ReadFromFile(FileUrl, CharSet)        Dim Str        Set stm = CreateObject("Adodb.Stream")        stm.Type = 2        stm.mode = 3        stm.charset = CharSet       stm.Open       stm.loadfromfile FileUrl        Str = stm.readtext        stm.Close       Set stm = Nothing       ReadFromFile = Str    End Function   '按指定编码存储文件    Function WriteToFile (FileUrl, Str, CharSet)        Set stm = CreateObject("Adodb.Stream")        stm.Type = 2        stm.mode = 3        stm.charset = CharSet       stm.Open       stm.WriteText Str        stm.SaveToFile FileUrl, 2        stm.flush       stm.Close       Set stm = Nothing   End Function

以上是"vbs怎么实现的支持拖动的txt文本切割器"这篇文章的所有内容，感谢各位的阅读！希望分享的内容对大家有帮助，更多相关知识，欢迎关注行业资讯频道！