关闭

一个asp写的字符查找工具

标签: aspjavascript工具eachhtmlborder
1933人阅读 评论(2) 收藏 举报
分类:

相信有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
%>

 

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:186492次
    • 积分:2605
    • 等级:
    • 排名:第14027名
    • 原创:81篇
    • 转载:49篇
    • 译文:0篇
    • 评论:46条
    最新评论