复制指定内容到指定文件里去.vbs

with CreateObject("SAFRCFileDlg.Fileopen")
    .openfileopendlg
    if not len(trim(.filename)) = 0 then
        oldfilename = .filename
    else
        msgbox "没有选择文件!"
        wscript.quit
    end if
end with
newfilename = left(oldfilename,len(oldfilename) - 4) & "cxs" & right(oldfilename,4)
number1 = inputbox("输入起始行号:")
number2 = inputbox("输入行数:")
with createobject("scripting.filesystemobject")
    set rfile = .opentextfile(oldfilename,1,true)
    set wfile = .opentextfile(newfilename,2,true)
    for i = 1 to number1
        rfile.skipline
    next
    for j = 1 to number2
        str = rfile.readline
        wfile.writeline str
    next
end with