첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
728x90
반응형
728x170

▶ 문자열 선형 탐색하기 예제

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 = LinearSearch(strValueArray, "D083")

If nIndex > -1 Then

    Print nIndex

Else

    Print "Not found"

End If

 

▶ 문자열 선형 탐색하기

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

    Dim nFirstIndex As Integer
    Dim nLastIndex  As Integer
    Dim I           As Integer


    nFirstIndex = LBound(strValueArray)

    nLastIndex = UBound(strValueArray)


    For I = nFirstIndex To nLastIndex

        If strSearch = strValueArray(I) Then

            LinearSearch = I

            Exit Function

        End If

    Next I

    LinearSearch = -1

End Function
728x90
반응형
그리드형(광고전용)
Posted by icodebroker
TAG ,

댓글을 달아 주세요

◀ 이전페이지 1 ··· 10349 10350 10351 10352 10353 10354 10355 10356 10357 ··· 12558 다음페이지 ▶