iCentar » Racunari i oprema » Programirannje i baze podataka » Access

pmiroslav	02.03.2012 13:40
Predmet:Kako podjeliti strig? Imam tekst file u kojem je viÅ¡e redova podataka odvojenih znakom "\|" kao npr. Prvi string\|DrugiString\|Treći string\|Četvrti string\|Peti String\|Å esti string Trebao bih query koji bi mo razdvojio savaki od ovih stringova

pmiroslav

02.03.2012 13:40

zxz	02.03.2012 14:42
Predmet:Re: Kako podjeliti strig? Jel mislis da ti razdvoji u kolone ili nesto drugo si mislio, posto pominjes query. Druga stvar jel uvijek isti broj stringova ili moze biti razlicit.

zxz

02.03.2012 14:42

Predmet:Re: Kako podjeliti strig?

Jel mislis da ti razdvoji u kolone ili nesto drugo si mislio, posto pominjes query.
Druga stvar jel uvijek isti broj stringova ili moze biti razlicit.

zxz	02.03.2012 14:43
Predmet:Re: Kako podjeliti strig? Mozes to razdvojiti na formi ili izvjestaju. Zasto bas u query-u?

zxz

02.03.2012 14:43

Predmet:Re: Kako podjeliti strig?

Mozes to razdvojiti na formi ili izvjestaju.
Zasto bas u query-u?

pmiroslav	02.03.2012 15:39
Predmet:Re: Kako podjeliti strig? Zato Å¡to trebam prebaciti u novu tablicu gdje bi mi svaka riječ bika u zasebnom polju. Uvjek je isti broj stringova i podatak se trenutno nalazi u tablici sa jednom kolonom. Evo i primjer
Prilozi: Primjer.rar (Velicina datoteke:223.10 KB)

pmiroslav

02.03.2012 15:39

Predmet:Re: Kako podjeliti strig?

Zato Å¡to trebam prebaciti u novu tablicu gdje bi mi svaka riječ bika u zasebnom polju.
Uvjek je isti broj stringova i podatak se trenutno nalazi u tablici sa jednom kolonom.
Evo i primjer

Prilozi:
Primjer.rar (Velicina datoteke:223.10 KB)

zxz	02.03.2012 15:57
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.

zxz

02.03.2012 15:57

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.

pmiroslav	02.03.2012 17:30
Predmet:Re: Kako podjeliti strig? Å to da kaÅ¾em, nego joÅ¡ jednom veliko hvala.

pmiroslav

02.03.2012 17:30

Predmet:Re: Kako podjeliti strig?

Å to da kaÅ¾em, nego joÅ¡ jednom veliko hvala.

pmiroslav	05.03.2012 09:50
Predmet:Re: Kako podjeliti strig? Ne mogu prepoznati u ovom kodu gdje se vidi znak-karakter koji razdvaja stringove. U ovom slučaju to je znak "\|". Å to ako stringove razdvaja drugačiji znak recimo "," ":" "-" i sl.

pmiroslav

05.03.2012 09:50

Predmet:Re: Kako podjeliti strig?

Ne mogu prepoznati u ovom kodu gdje se vidi znak-karakter koji razdvaja stringove.
U ovom slučaju to je znak "|".
Å to ako stringove razdvaja drugačiji znak recimo "," ":" "-" i sl.

zxz	05.03.2012 10:26
Predmet:Re: Kako podjeliti strig? Function NadjiDio(Str As String, Znak As String, Dio As Integer) To se unosi pri pozivu proceduure. Str je string iz koga hoces dio Primjer: Marko markovic\|Jovo Danguba\|Mujo Dobojlija\|Saran saranovic Znak je znak koji razdrvajea podatke u nasem slucaju je to bio "\|" Dio koji dio po redu. Ako je napr br 2 onda procedura vraca "Jovo Danguba"

zxz

05.03.2012 10:26

Predmet:Re: Kako podjeliti strig?

Function NadjiDio(Str As String, Znak As String, Dio As Integer)
To se unosi pri pozivu proceduure.
Str je string iz koga hoces dio
Primjer:
Marko markovic|Jovo Danguba|Mujo Dobojlija|Saran saranovic
Znak je znak koji razdrvajea podatke u nasem slucaju je to bio "|"
Dio koji dio po redu.
Ako je napr br 2 onda procedura vraca "Jovo Danguba"

pmiroslav	05.03.2012 11:01
Predmet:Re: Kako podjeliti strig? Ne znam dali smo se razumjeli, Å¡to ako imamo slijedeći primjer: Marko Markovic-Jovo Danguba-Mujo Dobojlija-Saran saranovic ili Marko Markovic;Jovo Danguba;Mujo Dobojlija;Saran saranovic Gdje u proceduri mijenjam znak koji razdvaja podatke

pmiroslav

05.03.2012 11:01

Predmet:Re: Kako podjeliti strig?

Ne znam dali smo se razumjeli, Å¡to ako imamo slijedeći primjer:

Marko Markovic-Jovo Danguba-Mujo Dobojlija-Saran saranovic
ili
Marko Markovic;Jovo Danguba;Mujo Dobojlija;Saran saranovic

Gdje u proceduri mijenjam znak koji razdvaja podatke

zxz	05.03.2012 11:08
Predmet:Re: Kako podjeliti strig? Jednostavno cemo pozvati proceduru na ovaj nacin: Dim a as string, b as string b=Marko Markovic;Jovo Danguba;Mujo Dobojlija;Saran saranovic a=NadjiDio("b", ";", 3) Posto trazimo treci dio dobit cemo u a "Mujo Dobojlija) Kao sto sam gore napisao delimiter upisujemo pri pozivu procedure. Pogledaj u svome Query-u koji sam poslao kao rjesenje.

zxz

05.03.2012 11:08

Predmet:Re: Kako podjeliti strig?

Jednostavno cemo pozvati proceduru na ovaj nacin:
Dim a as string, b as string
b=Marko Markovic;Jovo Danguba;Mujo Dobojlija;Saran saranovic
a=NadjiDio("b", ";", 3)
Posto trazimo treci dio dobit cemo u a "Mujo Dobojlija)

Kao sto sam gore napisao delimiter upisujemo pri pozivu procedure.
Pogledaj u svome Query-u koji sam poslao kao rjesenje.