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

'/*=========================================================================
' * Intro       .txt文本切割器，默认为8000个字符切为一个文件。支持拖动。
' * FileName    SplitFile.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/SplitFile.vbs.html
' * 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