一个asp写的字符查找工具

最新推荐文章于 2017-12-13 16:40:33 发布

企业通用软件

最新推荐文章于 2017-12-13 16:40:33 发布

阅读量2.2k

点赞数

分类专栏： ASP 文章标签： asp javascript 工具 each html border

本文链接：https://blog.csdn.net/gimsoft/article/details/794835

版权

ASP 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

相信有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 & "    " & "[line：" & SLineCounter & "]" & "<BR>"
   End If

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

企业通用软件

关注

0
点赞
踩
1

收藏

觉得还不错? 一键收藏
2
评论
一个asp写的字符查找工具

相信有ASP开发经历的人都会有这种需求：需要从一堆的asp文件中查找几个指定的字符。特别是修改从网上当下来的代码时，为了找一个字符苦苦寻找。这个工具可以自动搜索你指定的目录下所有的文件，查找是否包含指定的字符。如果存在，则输出包含字符的文件路径及名称、查找字符在文件中的行数。大家如果发现什么问题，欢迎大家和我一起讨论！sdweb1@126.com程序源代码如下：==============
复制链接

扫一扫