锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net二分查找法 二分查找编程( 二 )

IT技术文件


Dim dirCountAs Long
Dim IAs Long
FileLimit = UBound(strFiles) + 1
dirLimit = 0
If Right$(strPath, 1)"/" Then strPath = strPath"/"
strResult = Dir(strPath, vbDirectory + vbSystem + vbReadOnly + vbHidden + vbNormal + vbArchive)
Do While Len(strResult)0
If strResult"." And strResult".." Then
If (GetAttr(strPathstrResult) And vbDirectory)vbDirectory Then
If FileCount = FileLimit Then
ReDim Preserve strFiles(FileLimit + 10)
FileLimit = FileLimit + 10
End If
strFiles(FileCount) = strPathstrResult
FileCount = FileCount + 1
Else
If dirCount = dirLimit Then
ReDim Preserve strDirs(dirLimit + 10)
dirLimit = dirLimit + 10
End If
strDirs(dirCount) = strPathstrResult
dirCount = dirCount + 1
End If
End If
strResult = Dir(, vbDirectory + vbSystem + vbReadOnly + vbHidden + vbNormal + vbArchive)
Loop
For I = 0 To dirCount - 1
Call FindPath(strDirs(I), strFiles, FileCount)
Next I
End Sub
VB.net, 如何判断一个字符串包含另一个字符串？很简单，用字符串查找函数就可以实现vb.net二分查找法了 。\x0d\x0a当在StrB查找到StrA字符串时，返回肯定是非0的数 ， 值就是True，找不到为0或者-1 ， 值就是Flase\x0d\x0a\x0d\x0a比如vb.net二分查找法：\x0d\x0aDim StrA As String = "Time is Limited"\x0d\x0aDim StrB As String = "Time"\x0d\x0aDim Stu As Boolean= InStr(StrA, StrB)\x0d\x0a\x0d\x0a这运行段代码，Stu值就是True了 。\x0d\x0avb.net二分查找法我觉得这样最简单有效 。
vb.net二分查找法的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于二分查找编程、vb.net二分查找法的信息别忘了在本站进行查找喔 。

推荐阅读


上一篇：网络电视怎么下载黑猫影视，黑猫影视盒子版下载

下一篇：关于gis实质的信息