txt文本切割器 SplitFile.vbs 支持拖动

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