Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
eve izmenati funkcii kako sto si trazila
PreuzmiIzvorni kôd (Visual Basic):Public Function GT(Podatok, Optional DelBroj As Integer = 1)
Dim RedPod As String
Dim BrojVar As Integer
Dim ArrPodaci
Dim Arr() As String
Dim I As Integer
If IsNull(ArrPodaci) Or ArrPodaci = "" Then
GT = " "
' Exit Function
Else
RedPod = Podatok ' "+CRLP: 61,61,78,6"
Vrati_Podatak RedPod, BrojVar, ArrPodaci
Arr = Split(ArrPodaci, ",")
'For I = 0 To BrojVar
GT = Arr(DelBroj)
'Next I
End If
End Function
Function GN(Value) As String
Dim Index As Long
Dim Final As String
If IsNull(Value) Or Value = "" Then
GN = " "
Exit Function
Else
For Index = 1 To Len(Value)
If Mid(Value, Index, 1) Like "[0-9]" Then
Final = Final & Mid(Value, Index, 1)
End If
Next
GN = Final
End If
End Function