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

Posted 吃饭了吗

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了vbs实现的支持拖动的txt文本切割器相关的知识,希望对你有一定的参考价值。

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

作者: 字体:[增加 减小] 类型:转载 时间:2008-06-20 我要评论

用vbs实现的txt文本文件切割器,默认为8000个字符切为一个文件。支持拖动。

 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文本切割器的主要内容,如果未能解决你的问题,请参考以下文章

vue+echarts实现可拖动节点的折现图(支持拖动方向和上下限的设置)

在文本字段之间拖动文本,如 ios 5 的邮件应用程序

有关安卓launcher,如何实现拖动一个图标进入另一个图标,然后合成一个文件夹

Android:图片中叠加文字,支持拖动改变位置

OpenCV+Qt实现简易视频播放器——支持进度条拖动

vue+vuedraggable实现拖动排序和删除