同文件夹内文本搜索器(vbs)

<HTML><HEAD><TITLE>同文件夹内文本搜索器(vbs)</TITLE>

<META http-equiv=Content-Type content="text/html; charset=gb2312">

<SCRIPT language=vbscript id=clientEventHandlersVBS>

<!--

Dim fso, f, f1, fc,fn,s,uf1,ufn

Sub B1_onclick

fn=T1.value ''

pn=mid(location.pathname,2,len(location.pathname)-14)

ShowFolderList(pn)

End Sub

Function ShowFolderList(path)

''msgbox path

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.GetFolder(path)

Set fc = f.Files

'' ufn=ucase(fn)

For Each f1 in fc

filespec= path & f1.name

ReadEntireFile(filespec)

'' uf1=ucase(f1.name)

'' if instr(uf1,ufn) <> 0 then

'' s=s & "<a href=" & path & f1.name & ">" & f1.name & "</a><br>"

'' end if

Next

document.write "已搜索到以下条目，请单击之。[墨伯编制 于2003年元月]<br>"

document.write s

set fc=nothing

set f=nothing

set fso=nothing

End Function

Function ReadEntireFile(filespec)

Const ForReading = 1

Dim fso, theFile, retstring

Set fso = CreateObject("Scripting.FileSystemObject")

Set theFile = fso.OpenTextFile(filespec, ForReading, False)

ufn=ucase(fn)

Do While theFile.AtEndOfStream<> True

retstring = theFile.ReadLine

uf1=ucase(retstring)

if instr(uf1,ufn) <> 0 then

s=s & "<a href=" & path & f1.name & ">" & f1.name & "</a><br>"

exit do

end if

Loop

theFile.Close

ReadEntireFile = s

End Function

-->

</SCRIPT>

</HEAD>

<BODY>

<P align=center><FONT color=#000000 size=6>请输入要搜索[在正文中包含]的关键词(</FONT><FONT

color=#000000 size=3>忽略大小写</FONT><FONT color=#000000 size=6>)</FONT> </P>

<P align=center><FONT size=2><FONT color=#000000>[墨伯编制

于2003年1月5日]</FONT> </FONT> </P>

<P align=center><INPUT name=T1><INPUT type=button value=搜索！ name=B1></P>

<P align=center> </P></BODY></HTML>

赞 (0)

相关推荐

  • 同文件夹内文本搜索器(vbs)

    <HTML><HEAD><TITLE>同文件夹内文本搜索器(vbs)</TITLE> <META http-equiv=Content-Type content="text/html; charset=gb2312"> <SCRIPT language=vbscript id=clientEventHandlersVBS> <!-- Dim fso, f, f1, fc,fn,s,uf1,ufn Sub B1

  • JFileChooser实现对选定文件夹内图片自动播放和暂停播放实例代码

    本案例通过使用JFileChooser实现对选定文件夹内图片实现自动播放和暂停播放 代码如下,如有不合适的地方 还请指教 package com.xiaoqiang; import java.awt.Container; import java.awt.FlowLayout; import java.awt.event.ActionEvent; import java.awt.event.ActionListener; import java.io.File; import javax.swin

  • Python导入父文件夹中模块并读取当前文件夹内的资源

    在某些特殊情况下,我们的 Python 脚本需要调用父目录下的其他模块.例如: 在编写 GNE 的测试用例时,有一个脚本 generate_new_cases.py放在 tests文件夹中.而 tests 文件夹与 gne 文件夹放在同一个位置.其中 gne 文件夹是一个包.我现在需要从generate_new_cases.py 文件中导入 gne 里面的一个类GeneralNewsExtractor. 为了简化问题,我单独写了一个演示的样例.它的文件结构与每个文件中的内容如下: 现在,我直接在

  • 使用Python 统计文件夹内所有pdf页数的小工具

    使用Python 统计文件夹内所有pdf页数的小工具

    1.首先安装 PyPDF2 库: pip install PyPDF2 2.然后保存下面文件(已带注释,具体实现请自己思考) import os import PyPDF2 #获取文件夹内所有pdf文件,以及打印文件数量 def GetFileInfo(path, fileType=()): fileList = [] # root 表示当前正在访问的文件夹路径 # dirs 是 list , 表示该文件夹中所有的目录的名字(不包括子目录) # files 是 list , 表示内容是该文件夹中

  • python按列索引提取文件夹内所有excel指定列汇总(示例代码)

    python按列索引提取文件夹内所有excel指定列汇总(示例代码)

    目录 前言 一.情景描述 二.python汇总 总结 前言 一.情景描述 情景一:文件夹内有很多excel数据,包含的数据格式一样,我们需要提取每个文件中指定的几列数据汇总到一个文件中(因为是按列索引提取,所以列的顺序可以不一样) 汇总后: 二.python汇总 注意事项: 文件所在文件夹内只能有运行文件.py,和需要汇总的文件,不能有其它文件夹,否则会出现运行错误: 运行第二遍时需要将第一遍运行得到的结果文件res.xlsx删除,否则也会出现运行错误: 代码如下(示例): # -*- codi

  • 批处理统计文件夹内的所有文件的数量和总大小的bat

    我最近电脑不知道为什么磁盘空间会慢慢的变小,而且过一段时间之后,又会有两三GB的空间被释放出来,使用我想监控下,看看是那个文件夹下产生的文件来占用我的存储空间,我想按层监视,最终找出原因. 从网上找个命令行显示指定文件夹目录的大小的批处理程序,但是发现并不太尽人意,总感觉不是很适合我的使用: 第一个程序,可以显示某个文件夹下的文件大小,但是我想按层显示,却不能满足我的要求,程序如下: @echo off echo. set /p dirPath=please input folder path:

  • 动感网页相册 python编写简单文件夹内图片浏览工具

    动感网页相册 python编写简单文件夹内图片浏览工具

    不知道大家有没有这样的体验,windows电脑上查看一张gif图,默认就把IE给打开了,还弹出个什么询问项,好麻烦的感觉.所以为了解决自己的这个问题,写了个简单的文件夹内图片浏览工具. 效果图 以E盘某一文件夹为例 效果图 实现思路 业务代码 # coding:utf-8 import sys reload(sys) sys.setdefaultencoding('utf8') # __author__ = '郭 璞' # __date__ = '2016/8/5' # __Desc__ = 自

  • 移动指定文件夹内的全部文件

    import java.io.File; public class FileMove { /** * 移动指定文件夹内的全部文件 * * @param fromDir * 要移动的文件目录 * @param toDir * 目标文件目录 * @throws Exception */ public static void fileMove(String from, String to) throws Exception { try { File dir = new File(from); // 文

  • PHP递归遍历指定文件夹内的文件实现方法

    今天早上在地铁上看了关于文件和文件夹的一章,正好最近刚搞懂linux的文件系统,觉得对文件属性的访问跟Shell命令很像,所以想晚上来实践一下. 发现php的文件夹函数好像没有提供遍历文件夹下的所有文件(包括子目录中的文件),于是,就想自己实现一个. 在写的时候发现一些操作文件夹的函数并不是自己想的那样.比如,dirname()根据提供的完整文件路径来取得文件所在的文件夹的路径,但如果你传入的是文件夹,它取的就是它的父文件夹.这点要明白.basename()也是同样的道理,传入文件夹路径取得就是

  • python压缩文件夹内所有文件为zip文件的方法

    本文实例讲述了python压缩文件夹内所有文件为zip文件的方法.分享给大家供大家参考.具体如下: 用这段代码可以用来打包自己的文件夹为zip,我就用这段代码来备份 import zipfile z = zipfile.ZipFile('my-archive.zip', 'w', zipfile.ZIP_DEFLATED) startdir = "/home/johnf" for dirpath, dirnames, filenames in os.walk(startdir): fo

随机推荐