vbs怎么實(shí)現(xiàn)的支持拖動(dòng)的txt文本切割器

這篇文章主要介紹vbs怎么實(shí)現(xiàn)的支持拖動(dòng)的txt文本切割器，文中介紹的非常詳細(xì)，具有一定的參考價(jià)值，感興趣的小伙伴們一定要看完！

'/*=========================================================================    
' * Intro       .txt文本切割器，默認(rèn)為8000個(gè)字符切為一個(gè)文件。支持拖動(dòng)。    
' * 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個(gè)字符切為一個(gè)文件    
        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   
'按指定編碼存儲(chǔ)文件    
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怎么實(shí)現(xiàn)的支持拖動(dòng)的txt文本切割器”這篇文章的所有內(nèi)容，感謝各位的閱讀！希望分享的內(nèi)容對(duì)大家有幫助，更多相關(guān)知識(shí)，歡迎關(guān)注億速云行業(yè)資訊頻道！