Oracle 의 InStr 함수는 특정 문자열을 찾을 때, n 번째 나타나는 문자를 찾아낼 수 있다.
예를 들어 abbaccadddaefd 라는 문자열 있을 때,
3번째 나타나는 'a' 의 위치값을 알아낼 수가 있다는 것이다.
VB 의 InStr 함수는 그게 안된다....
대신 n 번째 문자부터 찾는건 된다. Oracle 의 InStr 은 그게 안된다.
... 둘이 하나주고 하나빼는거야? 둘이 짠거야?
어찌됐건...
그래서 대충 만들어봤다. ㅡㅡ+
'==============================================================================
' (Zany:2007-05-31) GF_FindStringIdx : sMother 문자열에서 sChild 가 iCnt 번째 나타나는 위치를 리턴한다.
'==============================================================================
Public Function GF_FindStringIdx(sMother As String, sChild As String, iCnt As Integer) As Long
' 리턴 값 (양수:정상위치, 음수:에러)
'---------------------------------
' 양수 : sMother 에서 iCnt 번째 있는 sChild 위치
' 음수 : -1 : Parameter 값이 정확하지 않음
' -2 : sMother 에서 sChild 가 전혀 발견되지 않음
' -3 : sMother 에서 iCnt 번째 있는 sChild 가 없음
'---------------------------------
Dim i As Integer
Dim iFndIdxPrev As Long
Dim iFndIdxCurr As Long
If Len(sMother) <= 0 Or Len(sChild) <= 0 Or iCnt <= 0 Then
GF_FindStringIdx = -1
Exit Function
End If
If InStr(sMother, sChild) = 0 Then
GF_FindStringIdx = -2
Exit Function
End If
For i = 1 To iCnt
If i = 1 Then
iFndIdxCurr = InStr(1, sMother, sChild)
Else
iFndIdxCurr = InStr(iFndIdxPrev + Len(sChild), sMother, sChild)
End If
If iFndIdxCurr = 0 Then
If i <= iCnt Then
GF_FindStringIdx = -3
Exit Function
End If
Else
If i = iCnt Then
GF_FindStringIdx = iFndIdxCurr
Exit Function
ElseIf i < iCnt Then
iFndIdxPrev = iFndIdxCurr
iFndIdxCurr = 0
End If
End If
Next
End Function
|
|
|
