一个asp写的字符查找工具

原创 2006年06月13日 15:38:00

相信有ASP开发经历的人都会有这种需求:需要从一堆的asp文件中查找几个指定的字符。

特别是修改从网上当下来的代码时,为了找一个字符苦苦寻找。

这个工具可以自动搜索你指定的目录下所有的文件,查找是否包含指定的字符。如果存在,则输出包含字符的文件路径及名称、查找字符在文件中的行数。

大家如果发现什么问题,欢迎大家和我一起讨论 !

sdweb1@126.com

程序源代码如下:
<%
'===============================================================
'【功能】在指定文件夹中查找字符串
'【参数】
'【作者】Garfield 2006/06/08
'【版本】V1.0
'===============================================================

 Dim PFilePath, PFileType, PSearchText
 Dim PHaveFolder

 If Request("btnSearch") <> "" Then
  '=====================================
  '数据初始化、获取传递的参数值

  '查找的文件路径
  PFilePath = Request("FilePath")
  '查找的字符
  PSearchText = Request("SearchText")
  '查找的文件类型
  PFileType = Request("FileType")
  '根目录是否包含子目录
  PHaveFolder = False
  
  '=====================================
  '数据验证
  If PFilePath = "" Then
   Response.Write "<script language='javascript'>alert('请设置[查找路径]!');history.go(-1);</script>"
   Response.End
  ElseIf PSearchText = "" Then
   Response.Write "<script language='javascript'>alert('请设置[查找字符]!');history.go(-1);</script>"
   Response.End
  ElseIf PFileType = "" Then
   Response.Write "<script language='javascript'>alert('请设置[文件类型]!');history.go(-1);</script>"
   Response.End
  End If

 Else
  PFilePath = ""
  PSearchText = ""
  PFileType = "txt|asp|htm|html|aspx"

 End If
%>
 
<HTML>

<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE>字符查找工具</TITLE>
</HEAD>

<BODY>
<TABLE border=0 width=100%>
 <form name=frm method=post>
 <tr>
  <TD width=130>设置查找路径:</TD>
  <TD><INPUT type=text name=FilePath value="<%= PFilePath %>" size="54"></TD>
 </tr>
 <tr>
  <TD width=130>设置查找字符:</TD>
  <TD><INPUT type=text name=SearchText value="<%= PSearchText %>" size="54"></TD>
 </tr>
 <tr>
  <TD width=130>设置文件类型:</TD>
  <TD><INPUT type=text name=FileType value="<%= PFileType %>" size="54"></TD>
 </tr>
 <tr>
  <TD colspan=2 align=center><INPUT type=submit name=btnSearch value=' 查找 '></TD>
 </tr>
 </form>
 <tr>
  <TD colspan="2">查询结果:</TD>
 </tr>
</TABLE>
</BODY>

</HTML>
<%
 If Request("btnSearch") <> "" Then
  '=====================================
  '调用查找函数
  GetSearchResult(PFilePath)

  If PHaveFolder = True Then
   
  End If
 End If

 '获取当前目录下的所有子目录
 Sub GetSearchResult(VFolderPath)
  Dim SFSO, SFolder, SSubFolder,SFolderTemp
  Dim FHaveSF

  Set SFSO = CreateObject("Scripting.FileSystemObject")
  Set SFolder = SFSO.GetFolder(VFolderPath)
  Set SSubFolder = SFolder.SubFolders

  For Each SFolderTemp In SSubFolder
   FHaveSF = True
   GetSearchResult(SFolderTemp.Path)
  Next

  '获取当前目录下的所有文件
  GetSubFile(VFolderPath)
 End Sub

 '获取当前目录下的所有文件
 Sub GetSubFile(VFolderPath)
  Dim SFSO, SFolder, SFile, SSubFile
  Dim SFileType,STemp

  Set SFSO = CreateObject("Scripting.FileSystemObject")
  Set SFolder = SFSO.GetFolder(VFolderPath)
  Set SFile = SFolder.Files
  For Each SSubFile in SFile

   '======== 检查文件的类型 =======
   STemp = Split(SSubFile.Name, ".")
   If UBound(STemp) > 0 Then
    SFileType = LCase(STemp(UBound(STemp)))
    STemp = Replace(PFileType,SFileType,"")
    If Len(STemp) < Len(PFileType) Then

     '====== 在文件中查找指定字符 =====
     Call StringSearch(SSubFile.path,PSearchText)
    End If
   End If
  Next
 End Sub

 '查找所有文件,是否包含指定的字符
 Sub StringSearch(VFilePath, VSearchText)
  Const ForReading = 1, ForWriting = 2
  Dim SFSO, SFile, SStringTemp, SReplaceText, SLineCounter

  VSearchText = LCase(VSearchText)
  SLineCounter = 1
  SIndex = 0

  Set SFSO = CreateObject("Scripting.FileSystemObject")
  Set SFile = SFSO.OpenTextFile(VFilePath, ForReading)
  While Not SFile.AtEndOfStream
   SStringTemp = SFile.ReadLine
   SStringTemp = LCase(SStringTemp)
   SReplaceText = Replace(SStringTemp,VSearchText,"")
   If Len(SReplaceText) < Len(SStringTemp) Then
    Response.Write VFilePath & "&nbsp;&nbsp;&nbsp;&nbsp;" & "[line:" & SLineCounter & "]" & "<BR>"
   End If

   SLineCounter = SLineCounter + 1
  Wend
  SFile.Close
 End Sub
%>

 

相关文章推荐

截取字符串最后一个字符 && asp textarea 多行数组分割处理

asp.net 去除字符串右侧的最后一个字符         string str = "HTML,Asp/Aspx,MySQL/Cgi/Java/Php,";        str = str.Re...

jquery+asp.net实现的一个简易web聊天工具

本demo非常简单并,没有用到数据库来存储数据而是Cach来缓存数据,后台代码: public class _6_1 : IHttpHandler { public...
  • dz45693
  • dz45693
  • 2011年12月09日 09:35
  • 2661

【ASP】从URL获取中文字符然后查找数据库后输出GBK中文

昨天项目中遇到了些困难,研究了一下午终于搞定了。 事情是这样的:我们的客户端需要...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一个asp写的字符查找工具
举报原因:
原因补充:

(最多只允许输入30个字)