Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Eve probaj ova dali ke zavrsi rabota .
Ovaa funkcija ja napravi ZXZ za mene jas ja smenav malku pa vidi dali ke odgovara.
PreuzmiIzvorni kôd (Visual Basic):
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
se povikuva
MsgBox OdsecenDel("odlièan (5)", 0)
Ovaa funkcija ke ti go odvoi prviot del od stringot do prvata zagrada (
Ako ti treba funkcija za vo zagradata imas vo korisan kod funkcija DeoString