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