关于多个地址扫描与单个地址扫描的差异

关于多个地址扫描与单个地址扫描的差异目 录内容摘要及摘要I一、引言1二、设计思路1(一)研发中存在的问题及解决方法1三、技术结构与模型4(一)技术结构4(二)系统用例4四、技术实现21(一)程序流程21五、性能测试与分析21(一)测试实例（测试集）的研究与选择21(二)测试环境与测试条件22(三)实例测试（表格与曲线）22(四)性能分析23六、结束语24参考文献 24致 谢25内 容 摘 要本论文是关于多个地址扫描技术与单个地址扫描技术的差异讨论。本技术使用Microsoft Visual Studio 2005的FolderBrowserDialog控件和Timer控件，本技术突破原先操作系统单一地址扫描的限制，使多个地址扫描成为可能。本技术的基本功能是对单一文件在不同地址的扫描。关键词：多个地址扫描技术 FolderBrowserDialog控件 Timer控件15一、引言随着计算机技术在国内快速发展，使能存贮在电脑上的文件数量越来越多。人们使用电脑在海量的文件中查找的同时会想一个问题：究竟有什么方法可以让单一文件在不同地址的扫描成为可能。多个地址扫描技术于是就应运而生。目前所有的操作系统都是采用单一地址搜索模式即一次只能搜索一个地址范围的内容。如果一个文件处在于不同的地址当中需要进行很多次的地址扫描本技术除了能实现单一地址搜索，还在单一地址搜索模式模式的基础上进行改进，使计算机一次能实现多个地址的扫描。二、设计思路（一） 研发中存在的问题及解决办法研发中遇到过一些问题，现从中列举几条常见问题，比较容易疏忽1、遇到第一个文件夹不存在时出错可能是编写搜索文件的时候没有跳到下一个文件进行扫描。只需在编写的时候与写入跳到下一个文件 扫描即可2、扫描结束后未找到合适文件时出错这可能是一开始的时候编的程序不完善，只要以后稍加注意即可3、找到合适的文件时出错可能是由于索引超出数组界限造成的，只要在编写时稍微留意即可4、扫描过程中停止扫描解决方法：利用全局变量和Timer控件的作用实现三、技术介绍（一）技术组件介绍1、FolderBrowserDialog控件中的 FolderBrowserDialog 组件也是一个标准的预设对话框(如下图一所示)，用户可以通过它浏览并选择文件夹，也可以先创建然后再选择这个新建的文件夹，文件夹的浏览通过树控件来完成。2、Timer控件Timer,定时器，功能是在指定的时间间隔内反复触发指定窗口的定时器事件指定两次触发Timer事件之间的时间间隔，有效值在0到65之间。如果该参数的值指定为0，那么关闭定时器，不再触发指定窗口的Timer事件。windowname：窗口名，指定时间间隔到时要触发哪个窗口的Timer事件。省略该参数时，触发当前窗口的Timer事件返回值Integer。函数执行成功时返回1，发生错误时返回-1。如果任何参数的值为NULL，Timer()函数返回NULL。用法使用Timer()函数可以周期性地触发指定窗口的Timer事件，这样，每当时间间隔过去时，应用程序都可以完成一些周期性的工作，比如绘制简单动画等。将Timer()的interval参数设置为非0值时启动定时器并开始计时；将该函数的interval参数设置为0时关闭定时器，终止计时任务。需要注意的是，在Microsoft Windows系统中，该函数能够计时的最小时间间隔为0.055秒（约1/18秒），如果把interval参数的值设置小于0.055，那么该定时器将每隔0.055秒触发一次窗口的Timer事件。Microsoft Windows 3.x最多只支持系统中同时启动16个定时器。三、技术设计（一）技术流程 技术的主要流程是：计算机扫描完一个地址后检测有没有下一个地址。如果有，则扫描下一个地址。如果没有则停止扫描。技术流程图如图1所示。扫描完成地址不存在停止扫描开 始 扫 描检测是否有下一个地址扫描完成扫描下一个地址存在地址扫描完成开 始 扫 描存在地址检测是否有下一个地址扫描下一个地址图1 技术流程图（二）技术结构技术分为FolderBrowserDialog功能模块和Timer功能模块。FolderBrowserDialog功能模块FolderBrowserDialog的作用是用户向系统添加文件的地址技术结构图如图2所示。用户添加文件地址扫描文件地址目录指位器 M 是否超过目录上限指标 J 是否停止扫描当前目录是否找到目录或文件是否上层目录和现目录的指标符号是否算进去现目录指标往下移一个是继续找是否有符合的资料否找到的是否是个目录把目录上限加 1，把储存目录名称的阵列加一个，把查到的新目录放在 DirPackage 新元素否是否与搜寻关键字相符合是否把储存文件名称的阵列加一个，把查到的新文件放在 filePackage 新元素，把文件上限加 1 是图2 技术结构图四、技术实现（一）显示扫描进度由于扫描时间过长，则必须用一个窗体来显示扫描进度。代码如下 My.Forms.搜索文件.Show()（二）输入关键字和传统的系统搜索文件是一摸一样的图5（三）添加搜索地址和传统的文件搜索不同，多个地址扫描技术通过FolderBrowserDialog控件向Listbox添加地址（如图6所示）图6添加搜索地址（3） 确认目录指位器 M 是否超过目录上限指标 J 代码如下 Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick If i 0 Then i = i - 1 Else i = 3 If M 0 Then i = i - 1 Else i = 3 If DirString Then Me.Timer6.Enabled = False Me.Timer7.Enabled = True Me.Timer7.Interval = 100 Else M = M + 1 Me.Timer6.Enabled = False Me.Timer5.Enabled = True Me.Timer5.Interval = 100 End If End If End Sub（5） 上层目录和现目录的指标符号是否算进去以及扫描到的是目录还是文件。如果是目录的话如何处理，如果是文件的话如何处理 Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick If i 0 Then i = i - 1 Else i = 3 If DirString . And DirString . Then If (GetAttr(DirPackage(M) & DirString) And vbDirectory) = vbDirectory Then Me.Timer7.Enabled = False Me.Timer8.Enabled = True Me.Timer8.Interval = 100 Else If UCase(DirString) Like UCase(SearchString) Then Me.Timer7.Enabled = False Me.Timer9.Enabled = True Me.Timer9.Interval = 100 Else DirString = Dir() Me.Timer7.Enabled = False Me.Timer6.Enabled = True Me.Timer6.Interval = 100 End If End If Else DirString = Dir() Me.Timer7.Enabled = False Me.Timer6.Enabled = True Me.Timer6.Interval = 100 End If End IfEnd Sub Private Sub Timer8_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer8.Tick If i 0 Then i = i - 1 Else i = 3 J = J + 1 ReDim Preserve DirPackage(J) DirPackage(J) = DirPackage(M) + DirString + My.Forms.搜索文件.Label1.Text = 目前正在从 & DirPackage(J) & 中查找相关文件 DirString = Dir() Me.Timer8.Enabled = False Me.Timer6.Enabled = True Me.Timer6.Interval = 100 End If End Sub Private Sub Timer9_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer9.Tick If i 0 Then i = i - 1 Else wenj += 1 msg += 1 My.Forms.搜索文件.Label2.Text = 已找到 & wenj & 个相关文件 ReDim Preserve FilePackage(K) If M J Then Me.Timer9.Enabled = False Me.Timer5.Enabled = True Me.Timer5.Interval = 100 Else FilePackage(K) = DirPackage(M) + DirString Me.ListBox2.Items.Add(FilePackage(K) K = K + 1 If DirString = Then DirString = Dir() Me.Timer7.Enabled = False Me.Timer6.Enabled = True Me.Timer6.Interval = 100 Else DirString = Dir() Me.Timer7.Enabled = False Me.Timer6.Enabled = True Me.Timer6.Interval = 100 End If End If End If End Sub七、性能测试（一）测试环