网页调试助手DIY

网络与通信

张成根

诸君有网页制作经验的，都曾为网页脚本调试时经常出现过的这么一句话而晕倒过吧：“第xxx行，缺少对象”。天哪，这可是数百行的文件啊，我怎么知道第xxx行到底在哪里呢？难道要我一行一行地数吗？数绵羊俺也就数百来只就睡着了！
忍无可忍之余，终于决定写个小程序解决这个问题，于是就有了这个同样用脚本写成的实用程序。它能够帮你“数”出第xxx行是什么内容，然后你就可以在源代码中快速找到出错位置了。
核心代码如下：
Myfile=inputbox("请输入要搜索的文件名"，"文件名"，" C:\ show.htm ")
cl=inputbox("请输入要搜索哪一行"，"第几行"，"1")
Set MyFileObject=CreateObject("Scripting.FileSystemObject")
Set MyTextFile=MyFileObject.OpenTextFile(Myfile)
While not MyTextFile.AtEndOfStream
tt=MyTextFile.ReadLine
l=MyTextFile.Line
if l=cl*1 then msgbox tt
Wend
MyTextFile.Close
set MyFileObject=nothing
wscript.quit
其中，第一、二句是弹出输入对话框取得用户输入的文件名和行数。其中Inputbox()函数的格式为：接收变量=Inputbox("提示内容"，"标题"，"设置的默认内容")。
第三句创建一个文件系统对象MyFileObject，第四句再使用MyFileObject打开一个文本文件对象MyTextFile。
如果你熟悉编程，后面的内容就很容易理解了。小生就把它翻译成自然语言吧。只要MyTextFile文本文件对象的指针(或称游标)没有到达最后(AtEndOfStream)，就一直执行读取该对象中一行的操作(MyTextFile.ReadLine)，并且每读取一次指针自动后移一行。在这个过程中还会一直判断指针到达的行(MyTextFile.Line)是否就是我们所要读取的行。如果是则弹出一个消息框(msgbox)显示该行内容。最后关闭文本文件(MyTextFile.Close)，释放文件系统对象(set MyFileObject=nothing)，并退出脚本解释器(wscript.quit)。
怎么样，简单吧？不懂也没关系，照样画瓢将上面一段代码“抄”下来就行了。然后在记事本中，将它保存为.vbs为扩展名的脚本文件双击就可以运行了。程序运行后提示输入文件名和要搜索第几行(在用浏览器调试时如果出错会告诉你是哪个网页或脚本文件出错，并提示出错时所运行的行)，然后就可以告诉你要搜索的那一行语句是什么内容！赶快去网页编辑工具或脚本编辑器里看看出错语句是否与其他语句冲突了。
希望这个简单的小程序能为你的编程及网页制作带来方便。