当脚本运行后

① 写一个VBS脚本，运行后，可以把此脚本里包含的一段文字提取出来 以text文件打开显示到当前。谢谢了

Dim fso
Dim str

str = "我爱你" '这里定义你要找的字符串

Set fso = WScript.CreateObject("Scripting.Filesystemobject")

Set read = fso.OpenTextFile("d:\workNote.txt",1)'其内路径是你要从哪里找的那个文本

temp = read.ReadAll

If InStr(temp, str)>0 Then
WScript.Echo "find"
Set output = fso.CreateTextFile("d:\workNote1.txt",True) '这个路径是你想要把你搜的字符串写到哪
output.Write str
WScript.Echo "写成功，保存完毕！"
output.Close
Else
MsgBox "not found"
End If

Set fso = nothing

② scratch停止全部脚本为什么按下空格键还运行

scratch当脚本执行到脚本“等待按下空格键”，程序停止，可看到“我的变量”的值为1，按下空格键，“我的变量”的值为2?直到，“我的变量”的值为10，程序结束。两条等待脚本是必须的，如去掉第2条等待脚本，当脚本执行到“等待按下空格键”，程序停止后，按下空格键，在按下空格键未抬起前，程序就会执行所有余下的循环，直到程序结束。