FSO组件操作实例技巧(6)

发布: 2007-6-30 18:56 | 作者: admin | 来源: | 查看: 12次 | 进入软件测试论坛讨论

     本程序中采用的是mid函数，该函数的作用是返回某字符串中从第几位字符开始的几个字符。格式即为：Mid(string,start,length)

  <script language=VBs>
  cn_string= "cnbruce love cnrose"
  cn_start = 9
  cn_length = 4
  alert (mid(cn_string,cn_start,cn_length))
  </script>
  学会了FSO提取文件值，也学会了将信息输入到文件中，那下面就再来应用应用下。
  　　不知道你有没有这样的习惯：看到一个文件，不自觉的右键选择用记事本打开。呵呵，几乎没有哪个文件是不可以的。所以现在，可以默认所有文件都是文本，只是后缀名不同而已；那么也就是说，现在可以提取任一文件的内容信息。OK，就来想象一下：
  　　1，提取一个文件的路径（采用file按钮进行查找定位）
  　　2，将该路径文件打开，并读取所有行
  　　3，显示读取的信息
  　　一、viewcode.ASP

  <%Function ShowCode(filename)
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  Set cnrs = fso.OpenTextFile(filename, 1)
  While Not cnrs.AtEndOfStream
  rsline = cnrs.ReadLine
  rsline = server.HTMLEncode(rsline)
  Response.Write(rsline & "<br>")
  Wend
  end Function%>
  <form action="viewcode.asp" method="post">输入文件名
  <input type="file" name="filename">
  <input type="submit" value="查看源程序">
  </form>
  <%file=request.form("filename")
  response.write (file & "源程序如下<hr>")
  If trim(file)<> "" then
  Call ShowCode(file)
  End If%>
  　　以上程序调试时，可以选择html，asp页面，也可以打开任一应用程序等。
  　　定义的ShowCode函数，主要作用是打开、读取并显示文件中所有信息内容。注意添加了server.HTMLEncode(rsline)，针对含有标准HTML代码的文件。
  　　显示文件中所有行即用一条件循环进行遍历显示了。

  While Not cnrs.AtEndOfStream...Wend