Public Function OdsecenDel(Podatok As String, Optional DelBroj As Integer = 1)

Dim RedPod As String

Dim BrojVar As Integer

Dim ArrPodaci

Dim Arr() As String

Dim I As Integer

 

RedPod = Podatok ' "+CRLP: 61,61,78,6"

Vrati_Podatak RedPod, BrojVar, ArrPodaci

 

 If IsNull(ArrPodaci) Or ArrPodaci = "" Then

    Exit Function

 Else

    Arr = Split(ArrPodaci, ",")

   'For I = 0 To BrojVar

   OdsecenDel = Arr(DelBroj)

 'Next I

End If

 

End Function

 

 

Public Function Vrati_Podatak(UlazniPodatak As String, Optional BrojVar As Integer = 0, Optional ArrPodaci = "")

Dim Poz As Integer, Duzina As Integer, I As Integer

Dim PrviDio As String, DrugiDio As String, Skupa As String

Dim Znak As String

 

Poz = InStr(1, UlazniPodatak, "(", vbBinaryCompare)

If Poz = 0 Then GoTo Kraj

 

PrviDio = Mid(UlazniPodatak, 1, Poz - 1)

DrugiDio = Mid(UlazniPodatak, Poz + 1)

Skupa = PrviDio & "," & DrugiDio

Duzina = Len(UlazniPodatak) - 1

BrojVar = 0

    For I = 1 To Duzina

    Znak = Mid(Skupa, I, 1)

        If Znak = "," Then

        BrojVar = BrojVar + 1

        End If

    Next I

ArrPodaci = Skupa

Izlaz:

Exit Function

Kraj:

ArrPodaci = ""

BrojVar = 0

GoTo Izlaz

End Function