vbs实现的支持拖动的txt文本切割器

 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 

• VBS合并一个文件夹里的TXT的实现代码
• vbs解决处理TXT文本数据相关问题实现代码
• VBS实现将Excel表格保存为txt文本
• TXT转HTM、HTML「TXT转网页」的vbs实现代码
• 用vbs产生的若干个随机数并写入到一个.txt中的代码
• 将HTML或txt文件转换为ASP输出的vbs代码
• 用VBS将一篇txt后缀的内容保存为html格式
• vbs操作txt文本文件常用方法与函数代码

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！