■ 문자열을 선형 탐색하는 방법을 보여준다.
▶ 문자열 선형 탐색하기 예제 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
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 |
▶ 문자열 선형 탐색하기 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
' 선형 탐색하기 ' 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 |