Gjoreski 19.05.2015 16:47
Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija

Eve i za megu zagradite

PreuzmiIzvorni kôd (Visual Basic):
  1. Function DioStr(Dio As Integer, Str As String, Karakter As String) As String
  2. Dim Pozicija1, Pozicija2, Brojac
  3. '***************************************************************************
  4. 'FUNKCIJA ZA SJECENJE STRINGA KADA JE POZNAT
  5. 'KARAKTER IZMEDJU KOJEG SE SIJECE STRING
  6. 'Autor funkcije(ZXZ)
  7. '***************************************************************************
  8. On Error GoTo Greska:
  9. Pozicija2 = 1
  10. If Right(Str, 1) <> Karakter Then 'Ako je desni karakter razlicit tada
  11. Str = Trim(Str) & Karakter 'Dodaj karakter na kraj
  12. End If 'Kraj uslova
  13.  
  14. 'POZICIJA IZMEDJU DVA KARAKTERA
  15. For Brojac = 1 To Dio
  16. Pozicija1 = InStr(Pozicija2, Str, Karakter, 1)
  17. If Brojac < Dio Then
  18. Pozicija2 = Pozicija1 + 1
  19. If Pozicija1 = 0 Then GoTo Upozorenje
  20. End If
  21. Next Brojac
  22. 'DIO STRINGA IZMEDJU DVIJE POZICIJE
  23. DioStr = Mid(Str, Pozicija2, Pozicija1 - Pozicija2)
  24. Exit Function
  25. Greska:
  26. If Err.Number = 5 Then
  27. Upozorenje:
  28. Beep
  29. MsgBox "Áàðàâòå äåë êî¼ íå ïîñòîè!!!!", vbCritical + vbOKOnly + _
  30.         vbDefaultButton1, "Íàïîìåíà!!!"
  31. Else
  32. MsgBox "Greska Br: " & Err.Number, vbCritical + vbOKOnly + _
  33.         vbDefaultButton1, "Napomena!!!"
  34. End If
  35. End Function
  36.  

Amelasar 19.05.2015 17:02
Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija

Hvala. Mozes li malo objasniti drugu funkciju.

Gjoreski 19.05.2015 17:34
Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija

Jas se izvinuvam ovaa funkcija DioStr e za secejne na stringot pomegu dva isti karakteri a vo slucajov kaj tebe se dva razlicni .
eve ti druga funkcija koja vadi broj od string ovaa ke ti zavrsi rabota

PreuzmiIzvorni kôd (Visual Basic):
  1. Function GetNumbers(Value As String) As String
  2. Dim Index As Long
  3. Dim Final As String
  4.  
  5.   For Index = 1 To Len(Value)
  6.     If Mid(Value, Index, 1) Like "[0-9]" Then
  7.       Final = Final & Mid(Value, Index, 1)
  8.     End If
  9.   Next
  10.  
  11.   GetNumbers = Final
  12. End Function


MsgBox GetNumbers("odlièan (5)")

Amelasar 19.05.2015 14:17
Predmet:Izdvajanje rijeci i/ili znakova iz recorda - funkcija

Imam tabelu npr:
Ime
Prezime
Ocjena1
Ocjena2
Ocjena3
Ocjena4
itd

U tabeli su zapisi:
Niko
Nikic
vrlodobar (4)
dobar (3)
dovoljan (2)
odlican (5)
itd

Pomoću query izdvojim:

O1: Mid((Right([Ocjena1];3));2;1)
rezultat: vrlodobar

OO1: Left([Ocjena1];InStr(1;[Ocjena1];" ")-1)
rezultat: 4

Pitanje: Moze li se napraviti neka funkcija koja ce za sve (koje ja odredim) izdvojiti tu prvu rijec i pretposljednji znak, jer mi treba odvojeno za izvjestaj.

Radi se o popunjavanju uvjerenja i svjedodzbi za osnovnu skolu.

Hvala.
Prilozi:
svjedodzba.rar (Velicina datoteke:24.74 KB)

kenan 19.05.2015 14:41
Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija

sestro draga komplikujes

Å¡to ne napravis dodatnu tabeli sa dva polja

ocjena integer
ops text

a u tabeli svjedođba umjesto text staviÅ¡ integer i u kveriju se igraÅ¡ hoče opisno ili brojčano ili pak zajedno a ne vako

Div 19.05.2015 14:48
Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija

Mislim da ne treba tražiti funkciju za podelu teksta u koloni, treba drugačije organizovati zapise. Na primer: tabela učenici, tabela prednmeti, tabela ocene, tabela podaci o ustanovi. Eventualno joÅ¡ neki detalji, nisam baÅ¡ upućen u materiju.
Ovako kako je urađeno, nije pregledno, nema kontrole unosa, moguće su greÅ¡ke, nije pogodno za kontinuirano koriÅ¡ćenje.
Bolje bi bilo da opiÅ¡eÅ¡ postupoak, gde se podaci nalaze, u kom obliku, kakav treba izveÅ¡taj da bude, da nađemo najlakÅ¡i put do reÅ¡enja.

Amelasar 19.05.2015 14:57
Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija

Radi se o svjedodzbi i uvjerenju o uspjehu ucenika u VI, VII i VIII razredu osnovne skole.
Obrazac je gotov i treba samo polja popuniti. Nisam htjela na taj nacin misleci da je ovako lakse posto se radi o donaciji za jednu skolu da rucno ne ispunjavaju obrasce.

kenan 19.05.2015 15:10
Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija

PRIJE ČEÅ  PREPRAVIT NEGO SE SA OVIM ZEZATI I IMATI UVJEK PROBLEM

Div 19.05.2015 15:13
Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija

Kako bi se podaci unosili, iz dnevnika ili iz neke tabele u elektronskom obliku?
U svakom slučaju, bolje je uraditi kao "pravu" bazu podataka, samo je pitanje koliko vremena ima na raspolaganju. Valjalo bi da postaviÅ¡ spisak predmeta po razredima, da pokuÅ¡am(o) da uradimo neki model u Å¡to kraćem roku, cenim da je rok- juče.

Amelasar 19.05.2015 15:33
Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija

Kraj je skolske godine pa je bas frka Wink

U prilogu su predmeti. U prazna polja se mogu upisati predmeti koji nisu na obrascu.
Prilozi:
uvjerenje.doc (Velicina datoteke:43 KB)
svjedocanstvo.doc (Velicina datoteke:38.5 KB)