主页 > 知识库 > vbs实现的支持拖动的txt文本切割器

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

标签:沈阳 河南 沧州 红河 上海 乐山 长治 新疆

巨人网络通讯声明:本文标题《vbs实现的支持拖动的txt文本切割器》,本文关键词  ;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 收缩
    • 微信客服
    • 微信二维码
    • 电话咨询

    • 400-1100-266