signed

QiShunwang

“诚信为本、客户至上”

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

2021/5/14 22:46:59   来源:

 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文本文件常用方法与函数代码