下载 >  开发技术 >  其它 > 搜索文本文件[源代码]
4

搜索文本文件[源代码]

windows的搜索功能不能深入到文本文件内部,像sql ,ini,html,cs,等等,这个小程序可以弥补windows的不足,可能还有点不完善,请提出修改意见。 要求.net FrameWork 3.5
2009-06-11 上传大小:66KB
分享
收藏 举报

评论 共1条

fangsir138 挺好用的,谢谢分享
2013-06-11
回复
文件文档内容字符查找工具

文件文档内容字符查找工具文件文档内容字符查找工具文件文档内容字符查找工具文件文档内容字符查找工具

立即下载
C#文本比较源代码

基于B/S架构完成两个字符串的比较,分为文本比较以及字符串比较两种。VS2010下的工程文件,基于WEB页的文本比较源码,不仅能够完成相似度的计算而且可以给出两个文本的对比差异并用不同颜色区分。 包含源码。

立即下载
DELPHI搜索文件的示例

搜索TXT 文件的示例unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls; type TForm1 = class(TForm) ListBox1: TListBox; Memo2: TMemo; Panel1: TPanel; Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; ButtonSearchFile: TButton; FolderPath: TEdit; FileExt: TEdit; ProgressBar1: TProgressBar; procedure ButtonSearchFileClick(Sender: TObject); procedure ListBox1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } procedure SearchFile1(FileName: string; FindText: string); function MakeFileList(Path, FileExt: string): TStringList; function FileInUsed(FileName: TFileName): Boolean; public { Public declarations } end; var Form1: TForm1; implementation uses StrUtils; {$R *.dfm} { Search Options KeyWord in file FileName FileSize FileCreateTime FileModifyTime keyword filepath openfile found addListbox } var FileNamePathList, FileNameList: TStringList; procedure TForm1.FormCreate(Sender: TObject); begin FileNameList := TStringList.Create; FileNamePathList := TStringList.Create; end; { if FileInUsed ('D:\Administrator\Documents\MyProjects\FileSearch\Win32\Debug\Project1.exe') then ShowMessage('File is in use.') else ShowMessage('File not in use.'); } function TForm1.FileInUsed(FileName: TFileName): Boolean; var HFileRes: HFILE; begin Result := False; if not FileExists(FileName) then Exit; // 如果文件不存在,返回false HFileRes := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); Result := (HFileRes = INVALID_HANDLE_VALUE); if not Result then CloseHandle(HFileRes); end; procedure TForm1.SearchFile1(FileName: string; FindText: string); var SearchList: TStringList; begin try SearchList := TStringList.Create; if FileExists(FileName) and (not FileInUsed(FileName)) then begin SearchList.LoadFromFile(FileName); if Boolean(Pos(UpperCase(FindText), UpperCase(SearchList.Text))) then begin FileNameList.Add(ExtractFileName(FileName)); FileNamePathList.Add(FileName); end; end; finally SearchList.Free; end; end; procedure TForm1.ButtonSearchFileClick(Sender: TObject); var I, n: Integer; List: TStringList; begin try ButtonSearchFile.Caption := 'SearchFile'; List := TStringList.Create; List.Clear; FileNameList.Clear; FileNamePathList.Clear; List := MakeFileList(FolderPath.Text, FileExt.Text); ProgressBar1.Max := List.Count; for I := 0 to List.Count - 1 do begin Application.ProcessMessages; SearchFile1(List[I], Edit1.Text); ProgressBar1.Position := I; end; ListBox1.Items.Text := FileNameList.Text; ButtonSearchFile.Caption := IntToStr(FileNamePathList.Count) + ' 条'; finally List.Free; end; end; { 这个过程得显示进度 } function TForm1.MakeFileList(Path, FileExt: string): TStringList; var sch: TSearchrec; begin Result := TStringList.Create; if RightStr(Trim(Path), 1) <> '\' then Path := Trim(Path) + '\' else Path := Trim(Path); if not DirectoryExists(Path) then begin Result.Clear; Exit; end; if FindFirst(Path + '*', faAnyfile, sch) = 0 then begin repeat Application.ProcessMessages; if ((sch.Name = '.') or (sch.Name = '..')) then Continue; if DirectoryExists(Path + sch.Name) then begin Result.AddStrings(MakeFileList(Path + sch.Name, FileExt)); end else begin if (UpperCase(ExtractFileExt(Path + sch.Name)) = UpperCase(FileExt)) or (FileExt = '.*') then Result.Add(Path + sch.Name); end; until FindNext(sch) <> 0; FindClose(sch); end; end; procedure TForm1.ListBox1Click(Sender: TObject); var s: string; txt: string; begin if not FileExists(FileNamePathList[ListBox1.ItemIndex]) then Exit; Memo2.Lines.LoadFromFile(FileNamePathList[ListBox1.ItemIndex]); Caption := FileNamePathList[ListBox1.ItemIndex]; txt := Form1.Memo2.Text; if Boolean(Pos(UpperCase(Edit1.Text), UpperCase(txt))) then begin Memo2.SetFocus; Memo2.SelStart := Pos(UpperCase(Edit1.Text), UpperCase(txt)) - 1; Memo2.SelLength := Length(Edit1.Text); end; end; end.

立即下载
关键字查找源代码

从指定文件或数据库中查找指定内容 ,可以是关键字查找,时间 ,日期查找 ,本源码文件只包含查找部分代码,需要配合其他代码才能编译

立即下载
搜索一个文本文件字符串

从一个文本文件中搜索一个字符串!!

立即下载
网盘搜索引擎源码

网盘搜索引擎,用于搜索各类文件、资源 适合菜鸟选手,很好用的一个系统

立即下载
ASP.NET 搜索功能模块(数据库+源代码

根据搜索功能模块的基本要求,本模块主要完成以下任务: 提供用户搜索的入口,包括简单查询和复杂查询入口。 简单查询功能可实现模糊搜索,得到和用户期望值较接近的结果。 高级查询提供多种查询方案,使得用户获得的是最接近期望值的结果。 显示详细的搜索结果。

立即下载
基于Django做的markdown文档展示和搜索

基于Django和mysql做的markdown文档展示和搜索项目

立即下载
简单搜索引擎源码

一个简单但是功能齐全的搜索引擎 实现热词推荐 分类等功能

立即下载
C#356-处理文本文件源代码

C#356-处理文本文件源代码

立即下载
Python脚本程序实现搜索文本文件内容

用Python实现的搜索本地文本文件内容的小程序。从而学习Python I/O方面的知识。 1.程序入参为本地文件系统路径。 2.在配置文件中searchkeywords.txt中输入要搜索的任意多个关键字 3.在配置文件中excludekeywords.txt中输入在searchkeywords.txt中要排除搜索的关键字 4.程序执行完成后,即可在result.log日志文件中,查看搜索结果。即每个关键在哪些文件中存在。并给出每个文件的具体路径。

立即下载
禁忌搜索算法的源代码

禁忌搜索算法的c代码 运用禁忌算法进行的计算

立即下载
银行家算法 c++实现(代码+报告)

本文件中,用c++代码具体实现了银行家算法,并配有实验报告详述。

立即下载
BT磁力链搜索引擎源代码

BT磁力链搜索引擎源代码,下载部署后马上就可以使用。

立即下载
Spider.jar

java编写的蜘蛛程序,可以从文本文件中搜索出邮箱和Internet地址,也可以自定义搜索。

立即下载
Office,pdf,txt桌面搜索程序

资源中实现了简单的Office文件,pdf文件,文本文件的搜索

立即下载
新浪微博搜索敏感词列表

新浪微博搜索敏感词列表,附件为文本文件,便于导入

立即下载
桌面搜索代码

用于windows下桌面搜索的MFC代码,可以用来搜索资源管理器的文本文件、文件夹、自定义后缀的文件。搜索效率高,接口方便使用。

立即下载
理想搜索源代码非常NB的搜索

理想搜索源代码 非常NB的搜索 理想搜索源代码 非常NB的搜索 理想搜索源代码 非常NB的搜索

立即下载
超大文本文件查看编辑器

超大文本文件查看编辑器,瞬间打开上G的超大文本文件。有打开、编辑、搜索、行跳转等功能。 是Win下打开过G文本文件的好帮手。

立即下载
关闭
img

spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
点击完成任务获取下载码
输入下载码
为了良好体验,不建议使用迅雷下载
img

搜索文本文件[源代码]

会员到期时间: 剩余下载个数: 剩余C币: 剩余积分:0
为了良好体验,不建议使用迅雷下载
VIP下载
您今日下载次数已达上限(为了良好下载体验及使用,每位用户24小时之内最多可下载20个资源)

积分不足!

资源所需积分/C币 当前拥有积分
您可以选择
开通VIP
4000万
程序员的必选
600万
绿色安全资源
现在开通
立省522元
或者
购买C币兑换积分 C币抽奖
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
为了良好体验,不建议使用迅雷下载
确认下载
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
为了良好体验,不建议使用迅雷下载
VIP和C币套餐优惠
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
您的积分不足,将扣除 10 C币
为了良好体验,不建议使用迅雷下载
确认下载
下载
您还未下载过该资源
无法举报自己的资源

兑换成功

你当前的下载分为234开始下载资源
你还不是VIP会员
开通VIP会员权限,免积分下载
立即开通

你下载资源过于频繁,请输入验证码

您因违反CSDN下载频道规则而被锁定帐户,如有疑问,请联络:webmaster@csdn.net!

举报

若举报审核通过,可返还被扣除的积分

  • 举报人:
  • 被举报人:
  • *类型:
    • *投诉人姓名:
    • *投诉人联系方式:
    • *版权证明:
  • *详细原因: