解决ipod 1000个文本，每个最多4kb的文本txt剪切器，任何地方均可用（数据可修改）

下面的东西保存为cut.txt，再和要剪切的txt放在同一个文件夹内，运行时输入：某某某.txt就行了。
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 2000 ' 2000个字符切为一个文件，两个红色的两千表示4kb，可改   
        iii = iii + 1  
        WriteToFile Left(Path, Len(Path) -4) & "_" & Right("00" & iii, 3) & ".txt" , Mid(TempStr, II + 1, 2000), "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