脚本在文件中定位到选定行

set wshshell = CreateObject("WScript.Shell")

line = inputBox("Which line do you want to mark?")

if not IsNumeric(line) then

MsgBox "You did not specify a number!"

WScript.Quit

else

line = Fix(line)

if line<1 then

MsgBox "Your line number is invalid!"

WScript.Quit

end if

end if

WScript.Sleep(200)

wshshell.SendKeys "^{HOME}"

for x=1 to line-1

wshshell.SendKeys "{DOWN}"

WScript.Sleep 10

next

wshshell.SendKeys "{HOME}"

wshshell.SendKeys "+{END}"