miro35 16.08.2012 14:04
Predmet:Re: Iz Å kole VB-a

Pogledaj ovaj link neznam da li je to i da li treba zamjeniti i kako sa ovim iz funkcije za UTF8
IBM852 Charset Encoder Test

zxz 16.08.2012 14:38
Predmet:Re: Iz Å kole VB-a

Da to je to ali ja ne vidi Č i Ć zato te oni i zezaju.
Prava 852 kodna strana ima č i ć.
To je bila kodna strana za Jugoslaviju poslije 386 kodne.

Ostaje ti samo da ne pises slova Č i ć.

miro35 16.08.2012 14:53
Predmet:Re: Iz Å kole VB-a

Ma ja najbolje je da mi pretvara funkcijom nekom u vba ako naiđe u nazivu na naÅ¡a slova da recimo Č pretvori u C

miro35 16.08.2012 15:02
Predmet:Re: Iz Å kole VB-a

I ovo sam našao negdje u Arhivi neznam mogu li ovo iskoristiti:
PreuzmiIzvorni kôd (Text):
  1. Public Function pretvori(dovezi As String) As String
  2. Dim staraslova As String
  3.  
  4. staraslova = dovezi
  5. staraslova = Replace(staraslova, "[", "Å ")
  6. staraslova = Replace(staraslova, "{", "Å¡")
  7.  
  8. staraslova = Replace(staraslova, "]", "")
  9. staraslova = Replace(staraslova, "}", "")
  10.  
  11. staraslova = Replace(staraslova, "^", " ")
  12. staraslova = Replace(staraslova, "~", "
  13. ")
  14.  
  15. staraslova = Replace(staraslova, "@", "Ž")
  16. staraslova = Replace(staraslova, "`", "ž")
  17.  
  18. staraslova = Replace(staraslova, "\", "")
  19. staraslova = Replace(staraslova, "|", "")
  20. pretvori = staraslova
  21. End Function

zxz 16.08.2012 21:11
Predmet:Re: Iz Å kole VB-a

Netreba ti ovo.
Koliko sam razumio tebi samo Č i Ć pravi probleme.
Znaci samo njih trebas prepraviti u C jer Č iĆ nemaÅ¡ na tvom printeru.
Ostalo sve moze ostati isto i UTF8.

miro35 28.08.2012 11:25
Predmet:Re: Iz Å kole VB-a

Ovako imam ovu funkciju:
PreuzmiIzvorni kôd (Text):
  1. Function Naziv_Art(NazivASrtikla As String)
  2.     Dim I As Integer
  3.     Dim Pozicija As Integer
  4.     Dim Duz_Art As Integer
  5.      
  6.     Const Znak = ""
  7.      
  8.      
  9.     '-------------------------------
  10.     'Duzina teksta u nazivu artikla
  11.     'Moze se postaviti kao konstanta
  12.     Duz_Art = Me.HCP
  13.     '------------------------------
  14.      
  15.     For I = 33 To 47
  16. Izmjena1:
  17.     Pozicija = InStr(1, NazivASrtikla, Chr(I))
  18.          If Pozicija > 0 Then
  19.          If I <> 44 Or I = 46 Then
  20.          NazivASrtikla = Left(NazivASrtikla, Pozicija - 1) & " " & Mid(NazivASrtikla, Pozicija + 1)
  21.          GoTo Izmjena1
  22.          End If
  23.          End If
  24.     Next I
  25.      
  26.     For I = 58 To 63
  27. Izmjena2:
  28.     Pozicija = InStr(1, NazivASrtikla, Chr(I))
  29.          If Pozicija > 0 Then
  30.          NazivASrtikla = Left(NazivASrtikla, Pozicija - 1) & " " & Mid(NazivASrtikla, Pozicija + 1)
  31.          GoTo Izmjena2
  32.          End If
  33.     Next I
  34.     If Len(NazivASrtikla) > Duz_Art Then
  35.      NazivASrtikla = Left(NazivASrtikla, Duz_Art - 1) & "."
  36.     End If
  37.      
  38.     Naziv_Art = NazivASrtikla
  39.     End Function
Kako da na ovu funkciju dodam da ukoliko nađe naÅ¡a slova č,ć itd stavi c ...

zxz 28.08.2012 15:21
Predmet:Re: Iz Å kole VB-a

Evo nova procedura.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Art(Naziv_Art As String) As String
  2. Dim I As Integer
  3. Dim DuzStr As Integer
  4. Dim Temp As String
  5. Dim Znak As String
  6. Const Znak1 = "
  7. "
  8. Const Znak2 = ""
  9.  
  10. DuzStr = Len(Naziv_Art)
  11. Temp = Naziv_Art
  12. For I = 1 To DuzStr
  13. Znak = Mid(Naziv_Art, I, 1)
  14. If Znak = Znak1 Or Znak = Znak2 Then
  15. Temp = Left(Temp, I - 1) & "c" & Mid(Temp, I + 1)
  16. End If
  17. Next I
  18. Art = Temp
  19. End Function

miro35 29.08.2012 08:16
Predmet:Re: Iz Å kole VB-a

Ja sam napravio u query-ju ovo ali sad imam ako je veliko slovo npr:"Č" on mi promjeni u malo c sa ovim replace:,tako isto i za Å ,Đ,Ć,Ž itd...
NazArt1: Replace(Replace(Replace(Replace(Replace([NazArt];"Å¡";"s");"č";"c");"ć";"c");"ž";"z");"đ";"d")

zxz 29.08.2012 11:55
Predmet:Re: Iz Å kole VB-a

Gledaj Valjda ondje gdje ti to treba je jedinstveno bez obzira kako je napisano zato to nisam ni provjeravao u proceduri.
Tamo gdje ti treba:
ili su sva velika slova
ili je prvo veliko a ostala mala
ili su sve mala.

Znaci nije dobro provjeravati svaki pojedinacno podatak u proceduri nego treba rijesiti na nivou te kolone.
UCase
LCase
Naredbe.
Reci konkretno kako hoces da bude napisano.

zxz 30.08.2012 01:41
Predmet:Re: Iz Å kole VB-a

Vidim da ti izgleda ne pase odgovor.
Evo u proceduri.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Art(Naziv_Art As String) As String
  2. Dim I As Integer
  3. Dim DuzStr As Integer
  4. Dim Temp As String
  5. Dim Znak As String
  6. Const Znak1 = "
  7. "
  8. Const Znak2 = ""
  9.  
  10.  
  11. DuzStr = Len(Naziv_Art)
  12. Temp = Naziv_Art
  13. For I = 1 To DuzStr
  14. Znak = Mid(Naziv_Art, I, 1)
  15. If Znak = Znak1 Or Znak = Znak2 Then
  16.     If Asc(Znak) > 200 Then
  17.     Temp = Left(Temp, I - 1) & "c" & Mid(Temp, I + 1)
  18.     Else
  19.     Temp = Left(Temp, I - 1) & "C" & Mid(Temp, I + 1)
  20.     End If
  21. End If
  22. Next I
  23. Art = Temp
  24. End Function