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

发布时间:2021-09-30 10:35:59 作者:小新
来源:亿速云 阅读:146

这篇文章主要介绍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文本切割器”这篇文章的所有内容,感谢各位的阅读!希望分享的内容对大家有帮助,更多相关知识,欢迎关注亿速云行业资讯频道!

推荐阅读:
  1. IOS 实现TXT文本自动识别编码的方法。
  2. vue+echarts实现可拖动节点的折线图(支持拖动方向和上下限的设置)

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

vbs txt

上一篇:什么是驱动器

下一篇:用于JavaScript开发的优秀IDE是怎样的

相关阅读

您好,登录后才能下订单哦!

密码登录
登录注册
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》