欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2024-01-15 21:44:22
 splitfile.vbs '/*===============================================================...

 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