Question

VBS追加修改！

http://zhidao.baidu.com/question/1048133636740680259
可否麻烦大神把这个VBS再修改一下，双击这个VBS之后可以自定义输入需要提取的行数？

Answer 1

试修改代码如下：

str = InputBox("请输入提取的行数：") 拿数昌
If IsEmpty(str) Or (Not IsNumeric(str)) Then 
    MsgBox "输入错误，请输入数字。"消扒 
Else 
    hang = CInt(str)
    ''hang即是你要提取的行数
    dim s(1000)
    ''s(1000)里面的1000必须要大于你要提取的行数
    毕枯Set fso=CreateObject("Scripting.FileSystemObject")
    ''读取ID.txt
    set File=fso.opentextfile("ID.txt")
    for i=1 to hang
    s(i)=File.readline
    next
    ss=File.readall
    File.close
    ''删除ID.txt，并重新填写ID.txt
    set File=fso.opentextfile("ID.txt",2,1)
    File.Write ss
    File.close
    ''删除3.txt，并重新填写3.txt
    set File=fso.opentextfile("3.txt",2,1)
    for i=1 to hang-1
    File.Writeline s(i)
    next
    File.Write s(i)
    File.Close
End If