欢迎来到入门教程网!

vb

当前位置:主页 > 软件编程 > vb >

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

来源:本站原创|时间:2020-01-10|栏目:vb|点击:

 SplitFile.vbs
'/*=========================================================================   
' * Intro       .txt文本切割器,默认为8000个字符切为一个文件。支持拖动。   
' * FileName    SplitFile.vbs   
' * Author      yongfa365   
' * Version     v1.0   
' * MadeTime    2008-04-24 12:58:43   
' * LastModify  2008-04-24 12:58:43   
' *==========================================================================*/   

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 

上一篇:教你如何解密js/vbs/vbscript加密的编码异处理小结

栏    目:vb

下一篇:VBS破坏性应用代码

本文标题:vbs实现的支持拖动的txt文本切割器

本文地址:https://www.xiuzhanwang.com/a1/vb/7675.html

网页制作CMS教程网络编程软件编程脚本语言数据库服务器

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:835971066 | 邮箱:835971066#qq.com(#换成@)

Copyright © 2002-2020 脚本教程网 版权所有