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

来源：互联网发布：windows movier maker 编辑：程序博客网时间：2024/05/16 11:53

下面的东西保存为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