Predmet:Re: Kako podjeliti strig?
PreuzmiIzvorni kôd (SQL):SELECT Tablica1.Field1, NadjiDio([Field1],"|",1) AS PrviDio, NadjiDio([Field1],"|",2) AS DrugiiDio, NadjiDio([Field1],"|",3) AS TreciDio, NadjiDio([Field1],"|",4) AS CetvrtiDio, NadjiDio([Field1],"|",5) AS PetiDio, NadjiDio([Field1],"|",6) AS SestiiDio
FROM Tablica1;
Ovaj kod kopiraj u nodul:
PreuzmiIzvorni kôd (Visual Basic):Function NadjiDio(Str As String, Znak As String, Dio As Integer)
'******************************************************
'Ime: NadjiDio (Function)
'Sadržaj: Dio izmedju dva poznata karaktera
'Autor: ZXZ
'Datum: svibanj 16, 2008, 12:34:16
'Adresa: Tuzla BiH
'Email: izonic@inet.ba
'Ulazni parametri:Str-String
'Znak-Karakter razdvajac
'Dio-Broj dijela izmedju razdvajaca
'Izlazni parametri:
'******************************************************
Dim DuzinaStr As Integer
Dim Polozaj As Integer
Dim I As Integer
Dim Brojac As Integer
Dim Karakter As String
DuzinaStr = Len(Str)
If Left(Str, 1) <> Znak Then
Str = Znak & Str
End If
If Right(Str, 1) <> Znak Then
Str = Str & Znak
End If
For I = 1 To DuzinaStr
Karakter = Mid(Str, I, 1)
If Karakter = Znak Then
Brojac = Brojac + 1
End If
If Brojac = Dio Then
Polozaj = InStr(I + 1, Str, Znak)
NadjiDio = Mid(Str, I + 1, Polozaj - I - 1)
GoTo Kraj:
End If
Next I
Kraj:
End Function
Ovu proceduru imas u koristan kod.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.