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):Public Function pretvori(dovezi As String) As String
Dim staraslova As String
staraslova = dovezi
staraslova = Replace(staraslova, "[", "Å ")
staraslova = Replace(staraslova, "{", "Å¡")
staraslova = Replace(staraslova, "]", "")
staraslova = Replace(staraslova, "}", "")
staraslova = Replace(staraslova, "^", "")
staraslova = Replace(staraslova, "~", "
")
staraslova = Replace(staraslova, "@", "Ž")
staraslova = Replace(staraslova, "`", "ž")
staraslova = Replace(staraslova, "\", "")
staraslova = Replace(staraslova, "|", "")
pretvori = staraslova
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):Function Naziv_Art(NazivASrtikla As String)
Dim I As Integer
Dim Pozicija As Integer
Dim Duz_Art As Integer
Const Znak = ""
'-------------------------------
'Duzina teksta u nazivu artikla
'Moze se postaviti kao konstanta
Duz_Art = Me.HCP
'------------------------------
For I = 33 To 47
Izmjena1:
Pozicija = InStr(1, NazivASrtikla, Chr(I))
If Pozicija > 0 Then
If I <> 44 Or I = 46 Then
NazivASrtikla = Left(NazivASrtikla, Pozicija - 1) & " " & Mid(NazivASrtikla, Pozicija + 1)
GoTo Izmjena1
End If
End If
Next I
For I = 58 To 63
Izmjena2:
Pozicija = InStr(1, NazivASrtikla, Chr(I))
If Pozicija > 0 Then
NazivASrtikla = Left(NazivASrtikla, Pozicija - 1) & " " & Mid(NazivASrtikla, Pozicija + 1)
GoTo Izmjena2
End If
Next I
If Len(NazivASrtikla) > Duz_Art Then
NazivASrtikla = Left(NazivASrtikla, Duz_Art - 1) & "."
End If
Naziv_Art = NazivASrtikla
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):Function Art(Naziv_Art As String) As String
Dim I As Integer
Dim DuzStr As Integer
Dim Temp As String
Dim Znak As String
Const Znak1 = "
"
Const Znak2 = ""
DuzStr = Len(Naziv_Art)
Temp = Naziv_Art
For I = 1 To DuzStr
Znak = Mid(Naziv_Art, I, 1)
If Znak = Znak1 Or Znak = Znak2 Then
Temp = Left(Temp, I - 1) & "c" & Mid(Temp, I + 1)
End If
Next I
Art = Temp
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):Function Art(Naziv_Art As String) As String
Dim I As Integer
Dim DuzStr As Integer
Dim Temp As String
Dim Znak As String
Const Znak1 = "
"
Const Znak2 = ""
DuzStr = Len(Naziv_Art)
Temp = Naziv_Art
For I = 1 To DuzStr
Znak = Mid(Naziv_Art, I, 1)
If Znak = Znak1 Or Znak = Znak2 Then
If Asc(Znak) > 200 Then
Temp = Left(Temp, I - 1) & "c" & Mid(Temp, I + 1)
Else
Temp = Left(Temp, I - 1) & "C" & Mid(Temp, I + 1)
End If
End If
Next I
Art = Temp
End Function
|