站长资源脚本专栏

 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