[VB] 문자열 이진 탐색하기

▶ 문자열 이진 탐색하기 예제

Dim strValueArray(1 To 100) As String
Dim nIndex                  As Integer
Dim I                       As Integer

For I = 1 To 100

    strValueArray(I) = "D" & Right("000" & I, 3)

Next

nIndex = BinarySearch(strValueArray, "D083")

If nIndex > -1 Then

    Print nIndex

Else

    Print "Not found"

End If

 

▶ 문자열 이진 탐색하기

' 이진 탐색하기
' strValueArray : 값 배열
' strSearch     : 검색 문자열
' 반환값        : 인덱스, -1인 경우 찾는 항목이 없음
Public Function BinarySearch(strValueArray() As String, strSearch As String) As Integer

    Dim nFirstIndex  As Integer
    Dim nLastIndex   As Integer
    Dim nMiddleIndex As Integer


    nFirstIndex = LBound(strValueArray)

    nLastIndex = UBound(strValueArray)


    Do While nFirstIndex <= nLastIndex

        nMiddleIndex = (nFirstIndex + nLastIndex) / 2

        If strSearch = strValueArray(nMiddleIndex) Then

            BinarySearch = nMiddleIndex

            Exit Function

        Else

            If strSearch < strValueArray(nMiddleIndex) Then

                nLastIndex = nMiddleIndex - 1

            Else

                nFirstIndex = nMiddleIndex + 1

            End If

        End If

    Loop

    BinarySearch = -1

End Function
                    
        

  

    
728x90
    
    
  


  

    
반응형
    
    
    
  


  

    
그리드형(광고전용)
    

      
    
  

        

                                        

  



  


  




                            
        

  

    

      
카카오스토리
      
트위터
      
페이스북
    
  
  



        

                    

  
'VB' 카테고리의 다른 글
  

    

      
[VB] 이진 파일 읽기  (0)
      
2016.06.01
    
    

      
[VB] KILL 명령문을 사용해 파일 삭제하기  (0)
      
2016.06.01
    
    

      
[VB] 현재 시간을 밀리초까지 구하기  (0)
      
2015.06.09
    
    

      
[VB] 문자열 추출하기  (0)
      
2015.06.09
    
    

      
[VB] 문자열 선형 탐색하기  (0)
      
2015.06.03
    
    

      
[VB] DBEngine 클래스 : CompactDatabase 메소드를 사용해 패스워드를 갖는 MDB 파일 압축하기  (0)
      
2015.06.02
    
    

      
[VB] OPENDATABASE 명령문을 사용해 패스워드를 갖는 MDB 파일 열기  (0)
      
2015.06.02
    
    

      
[VB] INI 파일 항목 값 읽기  (0)
      
2015.06.01
    
    

      
[VB] 애플리케이션 중복 여부 구하기  (0)
      
2015.06.01
    
    

      
[VB] DBEngine 클래스 : CompectDatabase 메소드를 사용해 MDB 파일 압축하기  (0)
      
2015.06.01