微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦！

VB快速查找大型文件中包含的字符串

分类：VB作者：编程之家


关于查找大型文件中包含的字符串，一般都把文件内容读入到内存，然后在内存里进行比较，却不知这种办法有一个致命的弱点，那就是由于大量的内存申请和释放导致的内存颠簸，会使系统性能下降，严重影响了查找的速度。特别是在递归中对多个文件进行查找时，这个问题会更加突出，有时甚至会导致VB程序挂掉。为避免这种情况，同时加快大型文件中字符串的查找速度，俺基于内存影射文件和VB模拟指针技术，编写了一个通用字符串查找函数。

首先，先看一个普通的查找函数：

[vb] view plain copy
  1. '使用普通方式查找文件中包含的字符串（返回字符位置）
  2. PrivateFunctionFindText(ByValstrFileNameAsString,ByValstrTextString)Long
  3. DimfnInteger
  4. DimstrFileTextString
  6. DimMyString,MyNumber
  7. DimSString
  9. fn=FreeFile()
  10. OpenstrFileNameForBinaryAs#fn'打开输入文件。
  11. strFileText=Input(LOF(fn),fn)
  12. Close#fn
  13. FindText=InStr(strFileText,strText)
  14. EndFunction

用一个400K的文本进行测试，测试次数为20次，测试代码如下：

copy

    SubMain()
  1. DimlStartTime '比较两个方式的运行速度
  2. lStartTime=GetTickCount
  3. CallFindText("G:/Inst/小说/沧海凤歌.txt","打打秋风")'此返回值为字符位置
  4. Debug.PrintGetTickCount-lStartTime
  5. Sub

根据测试结果，最大耗时为2050ms，最小耗时为890ms，平均在950ms左右。

然后，我看再看一下基于内存影射和模拟指针的查找函数，代码如下：

copy

    OptionExplicit
  1. DeclareSubcopyMemoryLib"kernel32"Alias"RtlMoveMemory"(DestinationAsAny,SourceByValLengthLong)
  2. FunctionCreateFileAlias"CreateFileA"(ByVallpFileNameByValdwDesiredAccessLong,153); background-color:inherit; font-weight:bold">ByValdwShareModeByVallpSecurityAttributesByValdwCreationdispositionByValdwFlagsAndAttributesByValhTemplateFileLong)FunctionCloseHandleLib"kernel32"(ByValhObjectLong
  3. FunctionGetFileSizeByValhFileConstGENERIC_READ=&H80000000
  4. ConstGENERIC_WRITE=&H40000000
  5. ConstOPEN_EXISTING=3
  6. ConstFILE_SHARE_READ=&H1
  7. ConstFILE_SHARE_WRITE=&H2
  8. ConstFILE_ATTRIBUTE_norMAL=&H80
  9. ConstFILE_ATTRIBUTE_ARCHIVE=&H20
  10. ConstFILE_ATTRIBUTE_READONLY=&H1
  11. ConstFILE_ATTRIBUTE_HIDDEN=&H2
  12. ConstFILE_ATTRIBUTE_SYstem=&H4
  13. FunctionCreateFileMappingAlias"CreateFileMappingA"(ByVallpFileMappigAttributesByValflProtectByValdwMaximumSizeHighByValdwMaximumSizeLowByVallpNameFunctionMapViewOfFileByValhFileMappingObjectByValdwFileOffsetHighByValdwFileOffsetLowByValdwNumberOfBytesToMapFunctionUnmapViewOfFileLib"kernel32"(lpBaseAddressAsAny)ConstPAGE_READWRITE=&H4
  14. ConstFILE_MAP_READ=&H4
  15. FunctionVarPtrArrayLib"msvbvm60.dll"Alias"VarPtr"(Ptr()PrivateTypeSAFEARRAYBOUND
  16. cElements lLboundEndType
  17. PrivateTypeSAFEARRAY1D
  18. cDimsInteger
  19. fFeatures cbElements clocks pvData rgsabound(0)AsSAFEARRAYBOUND
  20. '使用内存映射方式查找大型文件中包含的字符串
  21. FunctionFindTextInFile(DimhFileDimnFileSizeByte
  22. DimppSADimtagNewSAAsSAFEARRAY1D,tagOldSAAsSAFEARRAY1D
  23. hFile=CreateFile(strFileName,_
  24. GENERIC_READOrGENERIC_WRITE,_
  25. FILE_SHARE_READOrFILE_SHARE_WRITE,_
  26. 0,_
  27. OPEN_EXISTING,248); line-height:18px; margin:0px!important; padding:0px 3px 0px 10px!important; list-style-position:outside!important"> FILE_ATTRIBUTE_norMALOrFILE_ATTRIBUTE_ARCHIVEOrFILE_ATTRIBUTE_READONLYOr_
  28. FILE_ATTRIBUTE_HIDDENOrFILE_ATTRIBUTE_SYstem,248); line-height:18px; margin:0px!important; padding:0px 3px 0px 10px!important; list-style-position:outside!important"> 0)'打开文件
  29. IfhFile<>0Then
  30. nFileSize=GetFileSize(hFile,ByVal0&)'获得文件大小
  31. hFileMap=CreateFileMapping(hFile,PAGE_READWRITE,vbNullString)'创建文件映射对象
  32. lpszFileText=MapViewOfFile(hFileMap,FILE_MAP_READ,0)'将映射对象映射到进程内部的地址空间
  33. ReDimpbFileText(0)'初始化数组
  34. ppSA=VarPtrArray(pbFileText)'获得指向SAFEARRAY的指针的指针
  35. copyMemorypSA,153); background-color:inherit; font-weight:bold">ByValppSA,4'获得指向SAFEARRAY的指针
  36. copyMemorytagOldSA,153); background-color:inherit; font-weight:bold">ByValpSA,Len(tagOldSA)'保存原来的SAFEARRAY成员信息
  37. copyMemorytagNewSA,tagOldSA,Len(tagNewSA)'复制SAFEARRAY成员信息
  38. tagNewSA.rgsabound(0).cElements=nFileSize'修改数组元素个数
  39. tagNewSA.pvData=lpszFileText'修改数组数据地址
  40. copyMemory'将映射后的数据地址绑定至数组
  41. FindTextInFile=InStr(pbFileText,StrConv(strText,vbFromUnicode))'查找子字符串位置
  42. '恢复数组的SAFEARRAY结构成员信息
  43. ErasepbFileText'删除数组
  44. UnmapViewOfFilelpszFileText'取消地址映射
  45. CloseHandlehFileMap'关闭文件映射对象的句柄
  46. If
  47. CloseHandlehFile'关闭文件
  48. 这个函数明显比上一个函数复杂得到，按理说，它运行速度肯定相应的要慢一些，咱们先不下定论，还是经过测试后再说吧，测试代码如下：

    调用代码如下：

    copy

    lStartTime=GetTickCount
  1. CallFindTextInFile("G:/Inst/小说/沧海凤歌.txt",0); background-color:inherit">'此返回值为字节位置
  2. Debug.PrintGetTickCount-lStartTime
  3. 使用了同一个文本文件，同样测试了20次，嘿，第二个函数最大耗时为17ms，最小耗时为0ms，平均不超过1ms，这进一步验证了我的设计初衷。

    如果你有更好的思路和建议，恳请告诉俺，俺在此表示感谢了！

    原文链接 ：http://blog.csdn.net/lyserver/article/details/4106290

    原文地址：https://www.jb51.cc/vb/256484.html

    版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。

    相关推荐

    VB Format函数
    Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 -------------------------------- 数字类型的格式化 --------------------------------     固定格式参数：     General Number 普通数字，如可以用来去掉千位分隔号     format$("100,1
    vb6/ASP FORMAT MM/DD/YYYY
    VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTime 竟然结果和系统设置的区域语言的日期和时间格式相关。意思是尽管你用诸如 Format(Now, "MM/dd/yyyy")，如果系统的设置格式区域语言的日期和时间格式分隔符是"-",那他还会显示为 MM-dd-yyyy     只有拼凑： <%response.write
    VB.net 捕获项目全局异常
    在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的解决方案直接添加本ApplicationEvents.vb 到工程即可 ‘添加后还需要一个From用来显示错误。如果到这步还不会则需要先打好基础啦 ‘======================================================== ‘以下事件
    实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
    转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，看来我以前没有认真去找这个方法呀。 https://blog.csdn.net/chzjxgd/article/details/6176325 金蝶K3 BOS的插件官方是用VB6编写的，如果  能用.Net下的语言工具开发BOS插件是一件很愉快的事情，其中缘由不言而喻，而本文则是个人首创，实现在了用V
    vb，wps，excel 分裂
    Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m As Range, tmpStr As String, s As String Dim x As Integer, y As Integer, subStr As String If MsgBox("确定要分列处理吗？请确定分列的数据会覆盖它后面的单元格！", _
    VB文件 hash 查看器
      窗体代码 1 Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) 2 Dim path As String, hash As String 3 For Each fil
    VB.NET MYSQL DataGridView 增删改查INSERT,SELECT,UPDATE,DELETE
      Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS Dim conString As String = "Server=localhost;Database=net2;Uid=root;Pwd=123456;" Dim con As New MySqlConnection
    VB.NET 使用ADODB連接資料庫滙出到EXCEL
    ‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Dim Sql As String Dim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim S As String   S = "Provider=OraOLEDB.Oracl
    vb.net 多线程運用 ping
    Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class Form1 Dim A(254) As String    Function ping(ByVal IP As Integer) As String Dim IPAddress As String IPAddress = "10.0.
    VB等待进程结束
    VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5494084 Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Pr
    苹果市值2025年有望达4万亿美元
    pythonJavaScriptjavaHTMLPHPreactjsC#AndroidCSSNode.jssqlrpython-3.xMysqLjQueryc++pandasFlutterangularIOSdjangolinuxswifttypescript路由器JSON路由器设置无线路由器h3c华三华三路由器设置华三路由器电脑软件教程arraysdocker软件图文教程Cvue.jslaravelspring-boot