Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

VB6 mysql - latinična slova ščđćž

[es] :: Visual Basic 6 :: VB6 mysql - latinična slova ščđćž

[ Pregleda: 2428 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

PedjaZ

Član broj: 48898
Poruke: 2061



+141 Profil

icon VB6 mysql - latinična slova ščđćž10.10.2017. u 13:30 - pre 78 meseci
Najvise sto sam uspeo je da prikaze bar Š i Ž
ali đćč su mi problem.
Razne kombinacije sam probao ali nikako da pronadjem kako treba.

Koji Collation baze da stavim?
Koji Collation tabele da stavim?
Šta pri konektovanju da stavim u VB:
CharSet=utf8;
CharSet=utf8mb4;
CharSet=latin1;
CharSet=latin2;
ili prazno

MYSql 5.6.12
MySQL ODBC 5.3 Unicode Driver
U VB je Central European
Win je Serbian Latin


HVALA
 
Odgovor na temu

djvlajko

Član broj: 89354
Poruke: 310
82.117.218.*



Profil

icon Re: VB6 mysql - latinična slova ščđćž24.10.2017. u 15:27 - pre 78 meseci
Nisam siguran da sam bas razumeo pitanje ...

Znam da u MS SQL-u je potrebno nesto ovako

Code:


update neka_tabela set prezime = N'Petrović' where jmg = neko_jmbg



Ono veliko slovo N govori da se upisu Unicode karakteri.
 
Odgovor na temu

dzigilibonglica
NS

Član broj: 200040
Poruke: 294



+17 Profil

icon Re: VB6 mysql - latinična slova ščđćž10.11.2017. u 10:28 - pre 77 meseci
Na bazi ostaviš sve kako treba, odnosno UTF8.

Konektor je taj koji se podešava, odnosno govoriš konektoru kojim encodingom će program pričati sa bazom.

Ukoliko generišeš connection string iz same aplikacije onda ide ovako nešto, ključno je CHARSET=cp1250:

Code:
 baza.Open "Driver={MySQL ODBC 5.1 Driver};SERVER=<IP adresa servera>;UID=<Username>;PWD=<Password>;DATABASE=<Naziv sheme>;PORT=3306;CHARSET=cp1250;BIG_PACKETS=1;AUTO_RECONNECT=1;MU"


Ukoliko kreiraš prostu DSN konekciju na koju se posle povezuješ, onda prilikom kreiranja konekcije izabereš encoding na MySQL driveru da bude cp1250.
Za ćirilicu je cp1251.
 
Odgovor na temu

PedjaZ

Član broj: 48898
Poruke: 2061



+141 Profil

icon Re: VB6 mysql - latinična slova ščđćž24.11.2017. u 21:53 - pre 77 meseci
Hvala.
Izgleda da je to falilo.

CharSet=utf8;
CharSet=utf8mb4;
CharSet=latin1;
CharSet=latin2;
nije funkcionisalo a CHARSET=cp1250 nisam probao.

Ovo je do sada radilo tako sto su u bazi "čudna" slova ali ih VB6 lepo vidi.

Ovim ce taj problem biti resen samo sada moram sva "cudna" slova da prepravim u šđčćž
 
Odgovor na temu

Branimir Maksimovic

Član broj: 64947
Poruke: 5534
c-bg-d-p3-92.bvcom.net.



+1064 Profil

icon Re: VB6 mysql - latinična slova ščđćž24.11.2017. u 22:00 - pre 77 meseci
Odi na mysql podforum, neko je skoro pitao slicnu stvar, pa mozda pomogne.

http://www.elitesecurity.org/t...-ispisuje-latinice-upise-DjSCC
 
Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
*.static.isp.telekom.rs.



+3 Profil

icon Re: VB6 mysql - latinična slova ščđćž01.03.2019. u 18:49 - pre 61 meseci
Pre mnogo, mnogo godina sam to uradio:

Public Function KonvertovaniTekstIzKodneStraneUkodnuStranu(Tekst As String, TipKonverzijeKodneStrane As Integer) As String
Dim n As Integer
Dim novitekst As String


If TipKonverzijeKodneStrane = 0 Then
'Konvertovanje iz kodne strane Serbian(Latin, Serbia) 1250 u YUSCII
'Acii kod; slovo nase abecede
'138=S(slovo [ veLikMrezaNizo)
'142=Z(slovo @ veLikMrezaNizo)
'154=s(slovo { malo)
'158=z(slovo ` malo)
'198=C(slovo ] veLikMrezaNizo)
'200=C(slovo ^ veLikMrezaNizo)
'208=DJ(slovo \ veLikMrezaNizo)
'230=c(slovo } malo)
'232=c(slovo ~ malo)
'240=dj(slovo | malo)
For n = 1 To Len(Tekst)
If Asc(Mid(Tekst, n, 1)) = 154 Then
Mid(Tekst, n, 1) = "{"
End If
If Asc(Tekst) = 240 Then
Mid(Tekst, n, 1) = "|"
End If
If Asc(Mid(Tekst, n, 1)) = 232 Then
Mid(Tekst, n, 1) = "~"
End If
If Asc(Mid(Tekst, n, 1)) = 230 Then
Mid(Tekst, n, 1) = "}"
End If
If Asc(Mid(Tekst, n, 1)) = 158 Then
Mid(Tekst, n, 1) = "`"
End If
If Asc(Mid(Tekst, n, 1)) = 138 Then
Mid(Tekst, n, 1) = "["
End If
If Asc(Mid(Tekst, n, 1)) = 208 Then
Mid(Tekst, n, 1) = "\"
End If
If Asc(Mid(Tekst, n, 1)) = 200 Then
Mid(Tekst, n, 1) = "^"
End If
If Asc(Mid(Tekst, n, 1)) = 198 Then
Mid(Tekst, n, 1) = "]"
End If
If Asc(Mid(Tekst, n, 1)) = 142 Then
Mid(Tekst, n, 1) = "@"
End If
Next n

End If

If TipKonverzijeKodneStrane = 1 Then
'Konvertovanje iz kodne strane YUSCII u Serbian(Latin, Serbia) 1250
For n = 1 To Len(Tekst)
If Mid(Tekst, n, 1) = "{" Then
Mid(Tekst, n, 1) = Chr(154)
End If
If Mid(Tekst, n, 1) = "|" Then
Mid(Tekst, n, 1) = Chr(240)
End If
'~
If Mid(Tekst, n, 1) = "~" Then
Mid(Tekst, n, 1) = Chr(232)
End If
'}
If Mid(Tekst, n, 1) = "}" Then
Mid(Tekst, n, 1) = Chr(230)
End If

If Mid(Tekst, n, 1) = "`" Then
Mid(Tekst, n, 1) = Chr(158)
End If
If Mid(Tekst, n, 1) = "[" Then
Mid(Tekst, n, 1) = Chr(138)
End If
If Mid(Tekst, n, 1) = "\" Then
Mid(Tekst, n, 1) = Chr(208)
End If
'^
If Mid(Tekst, n, 1) = "^" Then
Mid(Tekst, n, 1) = Chr(200)
End If
']
If Mid(Tekst, n, 1) = "]" Then
Mid(Tekst, n, 1) = Chr(198)
End If

If Mid(Tekst, n, 1) = "@" Then
Mid(Tekst, n, 1) = Chr(142)
End If
Next n

End If


If TipKonverzijeKodneStrane = 2 Then

'Konvertovanje iz kodne strane YUSCII u Serbian(Latin, Serbia) 852
For n = 1 To Len(Tekst)
If Mid(Tekst, n, 1) = "{" Then
Mid(Tekst, n, 1) = Chr(231)
End If
If Mid(Tekst, n, 1) = "|" Then
Mid(Tekst, n, 1) = Chr(208)
End If
'~
If Mid(Tekst, n, 1) = "~" Then
Mid(Tekst, n, 1) = Chr(159)
End If
'}
If Mid(Tekst, n, 1) = "}" Then
Mid(Tekst, n, 1) = Chr(134)
End If

If Mid(Tekst, n, 1) = "`" Then
Mid(Tekst, n, 1) = Chr(167)
End If
If Mid(Tekst, n, 1) = "[" Then
Mid(Tekst, n, 1) = Chr(230)
End If
If Mid(Tekst, n, 1) = "\" Then
Mid(Tekst, n, 1) = Chr(209)
End If
'^
If Mid(Tekst, n, 1) = "^" Then
Mid(Tekst, n, 1) = Chr(172)
End If
']
If Mid(Tekst, n, 1) = "]" Then
Mid(Tekst, n, 1) = Chr(143)
End If

If Mid(Tekst, n, 1) = "@" Then
Mid(Tekst, n, 1) = Chr(166)
End If
Next n

End If

If TipKonverzijeKodneStrane = 3 Then

'Konvertovanje iz kodne strane YUSCII u UniChar
For n = 1 To Len(Tekst)

If Mid(Tekst, n, 1) = "{" Then
Mid(Tekst, n, 1) = ChrW$(353)
End If
If Mid(Tekst, n, 1) = "|" Then
Mid(Tekst, n, 1) = ChrW$(273)
End If
'~
If Mid(Tekst, n, 1) = "~" Then
Mid(Tekst, n, 1) = ChrW$(269)
End If
'}
If Mid(Tekst, n, 1) = "}" Then
Mid(Tekst, n, 1) = ChrW$(263)
End If

If Mid(Tekst, n, 1) = "`" Then
Mid(Tekst, n, 1) = ChrW$(382)
End If
If Mid(Tekst, n, 1) = "[" Then
Mid(Tekst, n, 1) = ChrW$(352)
End If
If Mid(Tekst, n, 1) = "\" Then
Mid(Tekst, n, 1) = ChrW$(272)
End If
'^
If Mid(Tekst, n, 1) = "^" Then
Mid(Tekst, n, 1) = ChrW$(268)
End If
']
If Mid(Tekst, n, 1) = "]" Then
Mid(Tekst, n, 1) = ChrW$(262)
End If

If Mid(Tekst, n, 1) = "@" Then
Mid(Tekst, n, 1) = ChrW$(381)
End If
If Mid(Tekst, n, 1) = "/" Then
novitekst = novitekst & ChrW$(47)
End If
Next n

End If

If TipKonverzijeKodneStrane = 4 Then
'Kodne strana Serbian(Cirilic, Serbia) 1251
' Tabela kodova za naša slova
'U tabeli 2 su izlistani skoro svi znakovi koji se kod nas (u Srbiji i na prostoru bivše Jugoslavije) koriste, sa svojim UCS-2 kodom, UTF-8 zapisom i sa HTML oktalnim i decimalnim zapisima (za više informacija pogledajte poglavlje 2).
'
'Karakter Izgled UTF-8 oktalna decimalna
'Velika latinična slova
'U+0041 A 0x41 \101 &#65;
'U+0042 B 0x42 \102 &#66;
'U+0043 C 0x43 \103 &#67;
'U+0044 D 0x44 \104 &#68;
'U+0045 E 0x45 \105 &#69;
'U+0046 F 0x46 \106 &#70;
'U+0047 G 0x47 \107 &#71;
'U+0048 H 0x48 \110 &#72;
'U+0049 I 0x49 \111 &#73;
'U+004A J 0x4A \112 &#74;
'U+004B K 0x4B \113 &#75;
'U+004C L 0x4C \114 &#76;
'U+004D M 0x4D \115 &#77;
'U+004E N 0x4E \116 &#78;
'U+004F O 0x4F \117 &#79;
'U+0050 P 0x50 \120 &#80;
'U+0051 Q 0x51 \121 &#81;
'U+0052 R 0x52 \122 &#82;
'U+0053 S 0x53 \123 &#83;
'U+0054 T 0x54 \124 &#84;
'U+0055 U 0x55 \125 &#85;
'U+0056 V 0x56 \126 &#86;
'U+0057 W 0x57 \127 &#87;
'U+0058 X 0x58 \130 &#88;
'U+0059 Y 0x59 \131 &#89;
'U+005A Z 0x5A \132 &#90;
'Mala latinična slova
'U+0061 a 0x61 \141 &#97;
'U+0062 b 0x62 \142 &#98;
'U+0063 c 0x63 \143 &#99;
'U+0064 d 0x64 \144 &#100;
'U+0065 e 0x65 \145 &#101;
'U+0066 f 0x66 \146 &#101;
'U+0067 g 0x67 \147 &#103;
'U+0068 h 0x68 \150 &#104;
'U+0069 i 0x69 \151 &#105;
'U+006A j 0x6A \152 &#106;
'U+006B k 0x6B \153 &#107;
'U+006C l 0x6C \154 &#108;
'U+006D m 0x6D \155 &#109;
'U+006E n 0x6E \156 &#110;
'U+006F o 0x6F \157 &#111;
'U+0070 p 0x70 \160 &#112;
'U+0071 q 0x71 \161 &#113;
'U+0072 r 0x72 \162 &#114;
'U+0073 s 0x73 \163 &#115;
'U+0074 t 0x74 \164 &#116;
'U+0075 u 0x75 \165 &#117;
'U+0076 v 0x76 \166 &#118;
'U+0077 w 0x77 \167 &#119;
'U+0078 x 0x78 \170 &#120;
'U+0079 y 0x79 \171 &#121;
'U+007A z 0x7A \172 &#122;
'Naša dodatna latinična slova
'U+0106 Ć 0xC4 0x86 \304\206 &#262;
'U+0107 ć 0xC4 0x87 \304\207 &#263;
'U+010C Č 0xC4 0x8C \304\214 &#268;
'U+010D č 0xC4 0x8D \304\215 &#269;
'U+0110 Đ 0xC4 0x90 \304\220 &#272;
'U+0111 đ 0xC4 0x91 \304\221 &#273;
'U+0160 Š 0xC5 0xA0 \305\240 &#352;
'U+0161 š 0xC5 0xA1 \305\241 &#353;
'U+017D Ž 0xC5 0xBD \305\275 &#381;
'U+017E ž 0xC5 0xBE \305\276 &#382;
'Velika ćirilična slova
'U+0402 Đ 0xD0 0x82 \320\202 &#1026;
'U+0408 J 0xD0 0x88 \320\210 &#1032;
'U+0409 LJ 0xD0 0x89 \320\211 &#1033;
'U+040A NJ 0xD0 0x8A \320\212 &#1034;
'U+040B Ć 0xD0 0x8B \320\213 &#1035;
'U+040F DŽ 0xD0 0x8F \320\217 &#1039;
'U+0410 A 0xD0 0x90 \320\220 &#1040;
'U+0411 B 0xD0 0x91 \320\221 &#1041;
'U+0412 V 0xD0 0x92 \320\222 &#1042;
'U+0413 G 0xD0 0x93 \320\223 &#1043;
'U+0414 D 0xD0 0x94 \320\224 &#1044;
'U+0415 E 0xD0 0x95 \320\225 &#1045;
'U+0416 Ž 0xD0 0x96 \320\226 &#1046;
'U+0417 Z 0xD0 0x97 \320\227 &#1047;
'U+0418 I 0xD0 0x98 \320\230 &#1048;
'U+041A K 0xD0 0x9A \320\232 &#1050;
'U+041B L 0xD0 0x9B \320\233 &#1051;
'U+041C M 0xD0 0x9C \320\234 &#1052;
'U+041D N 0xD0 0x9D \320\235 &#1053;
'U+041E O 0xD0 0x9E \320\236 &#1054;
'U+041F P 0xD0 0x9F \320\237 &#1055;
'U+0420 R 0xD0 0xA0 \320\240 &#1056;
'U+0421 S 0xD0 0xA1 \320\241 &#1057;
'U+0422 T 0xD0 0xA2 \320\242 &#1058;
'U+0423 U 0xD0 0xA3 \320\243 &#1059;
'U+0424 F 0xD0 0xA4 \320\244 &#1060;
'U+0425 H 0xD0 0xA5 \320\245 &#1061;
'U+0426 C 0xD0 0xA6 \320\246 &#1062;
'U+0427 Č 0xD0 0xA7 \320\247 &#1063;
'U+0428 Š 0xD0 0xA8 \320\250 &#1064;
'Mala ćirilična slova
'U+0430 a 0xD0 0xB0 \320\260 &#1072;
'U+0431 b 0xD0 0xB1 \320\261 &#1073;
'U+0432 v 0xD0 0xB2 \320\262 &#1074;
'U+0433 g 0xD0 0xB3 \320\263 &#1075;
'U+0434 d 0xD0 0xB4 \320\264 &#1076;
'U+0435 e 0xD0 0xB5 \320\265 &#1077;
'U+0436 ž 0xD0 0xB6 \320\266 &#1078;
'U+0437 z 0xD0 0xB7 \320\267 &#1079;
'U+0438 i 0xD0 0xB8 \320\270 &#1080;
'U+043A k 0xD0 0xBA \320\272 &#1082;
'U+043B l 0xD0 0xBB \320\273 &#1083;
'U+043C m 0xD0 0xBC \320\274 &#1084;
'U+043D n 0xD0 0xBD \320\275 &#1085;
'U+043E o 0xD0 0xBE \320\276 &#1086;
'U+043F p 0xD0 0xBF \320\277 &#1087;
'U+0440 r 0xD0 0xC0 \320\280 &#1088;
'U+0441 s 0xD0 0xC1 \320\281 &#1089;
'U+0442 t 0xD0 0xC2 \320\282 &#1090;
'U+0443 u 0xD0 0xC3 \320\283 &#1091;
'U+0444 f 0xD0 0xC4 \320\284 &#1092;
'U+0445 h 0xD0 0xC5 \320\285 &#1093;
'U+0446 c 0xD0 0xC6 \320\286 &#1094;
'U+0447 č 0xD0 0xC7 \320\287 &#1095;
'U+0448 š 0xD0 0xC8 \320\290 &#1096;
'U+0452 đ 0xD1 0x92 \321\222 &#1106;
'U+0458 j 0xD1 0x98 \321\230 &#1112;
'U+0459 lj 0xD1 0x99 \321\231 &#1113;
'U+045A nj 0xD1 0x9A \321\232 &#1114;
'U+045B ć 0xD1 0x9B \321\233 &#1115;
'U+045F dž 0xD1 0x9F \321\237 &#1119;


'Konvertovanje iz kodne strane YUSCII u Serbian(Cirilic, Serbia) 1251
For n = 1 To Len(Tekst)

'Mala slova

'Velika slova
If Asc(Mid(Tekst, n, 1)) = 13 Then
novitekst = novitekst & Chr(Asc(Mid(Tekst, n, 1)))
End If


If Asc(Mid(Tekst, n, 1)) > 31 And Asc(Mid(Tekst, n, 1)) < 47 Then

novitekst = novitekst & Chr(Asc(Mid(Tekst, n, 1)))
End If
If Asc(Mid(Tekst, n, 1)) > 47 And Asc(Mid(Tekst, n, 1)) < 64 Then

novitekst = novitekst & Chr(Asc(Mid(Tekst, n, 1)))
End If

If Mid(Tekst, n, 1) = "_" Then
novitekst = novitekst & Chr(95)
End If

If Mid(Tekst, n, 1) = "A" Then
novitekst = novitekst & ChrW$(1040)
End If
If Mid(Tekst, n, 1) = "B" Then
novitekst = novitekst & ChrW$(1041)
End If
If Mid(Tekst, n, 1) = "V" Then
novitekst = novitekst & ChrW$(1042)
End If
If Mid(Tekst, n, 1) = "G" Then
novitekst = novitekst & ChrW$(1043)
End If
If Mid(Tekst, n, 1) = "D" Then
novitekst = novitekst & ChrW$(1044)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "\" Then
novitekst = novitekst & ChrW$(1026)
End If
'''''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "E" Then
novitekst = novitekst & ChrW$(1045)
End If
If Mid(Tekst, n, 1) = "@" Then
novitekst = novitekst & ChrW$(1046)
End If
If Mid(Tekst, n, 1) = "Z" Then
novitekst = novitekst & ChrW$(1047)
End If
If Mid(Tekst, n, 1) = "I" Then
novitekst = novitekst & ChrW$(1048)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "J" Then
novitekst = novitekst & ChrW$(1032)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "K" Then
novitekst = novitekst & ChrW$(1050)
End If
If Mid(Tekst, n, 1) = "L" Then
novitekst = novitekst & ChrW$(1051)
End If
''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "Q" Then
novitekst = novitekst & ChrW$(1033)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "M" Then
novitekst = novitekst & ChrW$(1052)
End If
If Mid(Tekst, n, 1) = "N" Then
novitekst = novitekst & ChrW$(1053)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "W" Then
novitekst = novitekst & ChrW$(1034)
End If
'''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "O" Then
novitekst = novitekst & ChrW$(1054)
End If
If Mid(Tekst, n, 1) = "P" Then
novitekst = novitekst & ChrW$(1055)
End If
If Mid(Tekst, n, 1) = "R" Then
novitekst = novitekst & ChrW$(1056)
End If
If Mid(Tekst, n, 1) = "S" Then
novitekst = novitekst & ChrW$(1057)
End If
If Mid(Tekst, n, 1) = "T" Then
novitekst = novitekst & ChrW$(1058)
End If
'''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "]" Then
novitekst = novitekst & ChrW$(1035)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "U" Then
novitekst = novitekst & ChrW$(1059)
End If
If Mid(Tekst, n, 1) = "F" Then
novitekst = novitekst & ChrW$(1060)
End If
If Mid(Tekst, n, 1) = "H" Then
novitekst = novitekst & ChrW$(1061)
End If
If Mid(Tekst, n, 1) = "C" Then
novitekst = novitekst & ChrW$(1062)
End If
If Mid(Tekst, n, 1) = "^" Then
novitekst = novitekst & ChrW$(1063)
End If
'''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "X" Then
novitekst = novitekst & ChrW$(1039)
End If
'''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "[" Then
novitekst = novitekst & ChrW$(1064)
End If

' Mala slova
If Mid(Tekst, n, 1) = "a" Then
novitekst = novitekst & ChrW$(1072)
End If
If Mid(Tekst, n, 1) = "b" Then
novitekst = novitekst & ChrW$(1073)
End If
If Mid(Tekst, n, 1) = "v" Then
novitekst = novitekst & ChrW$(1074)
End If
If Mid(Tekst, n, 1) = "g" Then
novitekst = novitekst & ChrW$(1075)
End If
If Mid(Tekst, n, 1) = "d" Then
novitekst = novitekst & ChrW$(1076)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "|" Then
novitekst = novitekst & ChrW$(1106)
End If
'''''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "e" Then
novitekst = novitekst & ChrW$(1077)
End If
If Mid(Tekst, n, 1) = "`" Then
novitekst = novitekst & ChrW$(1078)
End If
If Mid(Tekst, n, 1) = "z" Then
novitekst = novitekst & ChrW$(1079)
End If
If Mid(Tekst, n, 1) = "i" Then
novitekst = novitekst & ChrW$(1080)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "j" Then
novitekst = novitekst & ChrW$(1112)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "k" Then
novitekst = novitekst & ChrW$(1082)
End If
If Mid(Tekst, n, 1) = "l" Then
novitekst = novitekst & ChrW$(1083)
End If
''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "q" Then
novitekst = novitekst & ChrW$(1113)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "m" Then
novitekst = novitekst & ChrW$(1084)
End If
If Mid(Tekst, n, 1) = "n" Then
novitekst = novitekst & ChrW$(1085)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "w" Then
novitekst = novitekst & ChrW$(1114)
End If
'''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "o" Then
novitekst = novitekst & ChrW$(1086)
End If
If Mid(Tekst, n, 1) = "p" Then
novitekst = novitekst & ChrW$(1087)
End If
If Mid(Tekst, n, 1) = "r" Then
novitekst = novitekst & ChrW$(1088)
End If
If Mid(Tekst, n, 1) = "s" Then
novitekst = novitekst & ChrW$(1089)
End If
If Mid(Tekst, n, 1) = "t" Then
novitekst = novitekst & ChrW$(1090)
End If
'''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "}" Then
novitekst = novitekst & ChrW$(1115)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "u" Then
novitekst = novitekst & ChrW$(1091)
End If
If Mid(Tekst, n, 1) = "f" Then
novitekst = novitekst & ChrW$(1092)
End If
If Mid(Tekst, n, 1) = "h" Then
novitekst = novitekst & ChrW$(1093)
End If
If Mid(Tekst, n, 1) = "c" Then
novitekst = novitekst & ChrW$(1094)
End If
If Mid(Tekst, n, 1) = "~" Then
novitekst = novitekst & ChrW$(1095)
End If
'''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "x" Then
novitekst = novitekst & ChrW$(1119)
End If
'''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "{" Then
novitekst = novitekst & ChrW$(1096)
End If

If Mid(Tekst, n, 1) = "/" Then
novitekst = novitekst & ChrW$(47)
End If
Next n
Tekst = novitekst
End If

KonvertovaniTekstIzKodneStraneUkodnuStranu = Tekst

End Function
rgdrajko
 
Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
*.static.isp.telekom.rs.



+3 Profil

icon Re: VB6 mysql - latinična slova ščđćž01.03.2019. u 18:51 - pre 61 meseci
Nekada davno, davno sam to uradio. Evo


Public Function KonvertovaniTekstIzKodneStraneUkodnuStranu(Tekst As String, TipKonverzijeKodneStrane As Integer) As String
Dim n As Integer
Dim novitekst As String


If TipKonverzijeKodneStrane = 0 Then
'Konvertovanje iz kodne strane Serbian(Latin, Serbia) 1250 u YUSCII
'Acii kod; slovo nase abecede
'138=S(slovo [ veLikMrezaNizo)
'142=Z(slovo @ veLikMrezaNizo)
'154=s(slovo { malo)
'158=z(slovo ` malo)
'198=C(slovo ] veLikMrezaNizo)
'200=C(slovo ^ veLikMrezaNizo)
'208=DJ(slovo \ veLikMrezaNizo)
'230=c(slovo } malo)
'232=c(slovo ~ malo)
'240=dj(slovo | malo)
For n = 1 To Len(Tekst)
If Asc(Mid(Tekst, n, 1)) = 154 Then
Mid(Tekst, n, 1) = "{"
End If
If Asc(Tekst) = 240 Then
Mid(Tekst, n, 1) = "|"
End If
If Asc(Mid(Tekst, n, 1)) = 232 Then
Mid(Tekst, n, 1) = "~"
End If
If Asc(Mid(Tekst, n, 1)) = 230 Then
Mid(Tekst, n, 1) = "}"
End If
If Asc(Mid(Tekst, n, 1)) = 158 Then
Mid(Tekst, n, 1) = "`"
End If
If Asc(Mid(Tekst, n, 1)) = 138 Then
Mid(Tekst, n, 1) = "["
End If
If Asc(Mid(Tekst, n, 1)) = 208 Then
Mid(Tekst, n, 1) = "\"
End If
If Asc(Mid(Tekst, n, 1)) = 200 Then
Mid(Tekst, n, 1) = "^"
End If
If Asc(Mid(Tekst, n, 1)) = 198 Then
Mid(Tekst, n, 1) = "]"
End If
If Asc(Mid(Tekst, n, 1)) = 142 Then
Mid(Tekst, n, 1) = "@"
End If
Next n

End If

If TipKonverzijeKodneStrane = 1 Then
'Konvertovanje iz kodne strane YUSCII u Serbian(Latin, Serbia) 1250
For n = 1 To Len(Tekst)
If Mid(Tekst, n, 1) = "{" Then
Mid(Tekst, n, 1) = Chr(154)
End If
If Mid(Tekst, n, 1) = "|" Then
Mid(Tekst, n, 1) = Chr(240)
End If
'~
If Mid(Tekst, n, 1) = "~" Then
Mid(Tekst, n, 1) = Chr(232)
End If
'}
If Mid(Tekst, n, 1) = "}" Then
Mid(Tekst, n, 1) = Chr(230)
End If

If Mid(Tekst, n, 1) = "`" Then
Mid(Tekst, n, 1) = Chr(158)
End If
If Mid(Tekst, n, 1) = "[" Then
Mid(Tekst, n, 1) = Chr(138)
End If
If Mid(Tekst, n, 1) = "\" Then
Mid(Tekst, n, 1) = Chr(208)
End If
'^
If Mid(Tekst, n, 1) = "^" Then
Mid(Tekst, n, 1) = Chr(200)
End If
']
If Mid(Tekst, n, 1) = "]" Then
Mid(Tekst, n, 1) = Chr(198)
End If

If Mid(Tekst, n, 1) = "@" Then
Mid(Tekst, n, 1) = Chr(142)
End If
Next n

End If


If TipKonverzijeKodneStrane = 2 Then

'Konvertovanje iz kodne strane YUSCII u Serbian(Latin, Serbia) 852
For n = 1 To Len(Tekst)
If Mid(Tekst, n, 1) = "{" Then
Mid(Tekst, n, 1) = Chr(231)
End If
If Mid(Tekst, n, 1) = "|" Then
Mid(Tekst, n, 1) = Chr(208)
End If
'~
If Mid(Tekst, n, 1) = "~" Then
Mid(Tekst, n, 1) = Chr(159)
End If
'}
If Mid(Tekst, n, 1) = "}" Then
Mid(Tekst, n, 1) = Chr(134)
End If

If Mid(Tekst, n, 1) = "`" Then
Mid(Tekst, n, 1) = Chr(167)
End If
If Mid(Tekst, n, 1) = "[" Then
Mid(Tekst, n, 1) = Chr(230)
End If
If Mid(Tekst, n, 1) = "\" Then
Mid(Tekst, n, 1) = Chr(209)
End If
'^
If Mid(Tekst, n, 1) = "^" Then
Mid(Tekst, n, 1) = Chr(172)
End If
']
If Mid(Tekst, n, 1) = "]" Then
Mid(Tekst, n, 1) = Chr(143)
End If

If Mid(Tekst, n, 1) = "@" Then
Mid(Tekst, n, 1) = Chr(166)
End If
Next n

End If

If TipKonverzijeKodneStrane = 3 Then

'Konvertovanje iz kodne strane YUSCII u UniChar
For n = 1 To Len(Tekst)

If Mid(Tekst, n, 1) = "{" Then
Mid(Tekst, n, 1) = ChrW$(353)
End If
If Mid(Tekst, n, 1) = "|" Then
Mid(Tekst, n, 1) = ChrW$(273)
End If
'~
If Mid(Tekst, n, 1) = "~" Then
Mid(Tekst, n, 1) = ChrW$(269)
End If
'}
If Mid(Tekst, n, 1) = "}" Then
Mid(Tekst, n, 1) = ChrW$(263)
End If

If Mid(Tekst, n, 1) = "`" Then
Mid(Tekst, n, 1) = ChrW$(382)
End If
If Mid(Tekst, n, 1) = "[" Then
Mid(Tekst, n, 1) = ChrW$(352)
End If
If Mid(Tekst, n, 1) = "\" Then
Mid(Tekst, n, 1) = ChrW$(272)
End If
'^
If Mid(Tekst, n, 1) = "^" Then
Mid(Tekst, n, 1) = ChrW$(268)
End If
']
If Mid(Tekst, n, 1) = "]" Then
Mid(Tekst, n, 1) = ChrW$(262)
End If

If Mid(Tekst, n, 1) = "@" Then
Mid(Tekst, n, 1) = ChrW$(381)
End If
If Mid(Tekst, n, 1) = "/" Then
novitekst = novitekst & ChrW$(47)
End If
Next n

End If

If TipKonverzijeKodneStrane = 4 Then
'Kodne strana Serbian(Cirilic, Serbia) 1251
' Tabela kodova za naša slova
'U tabeli 2 su izlistani skoro svi znakovi koji se kod nas (u Srbiji i na prostoru bivše Jugoslavije) koriste, sa svojim UCS-2 kodom, UTF-8 zapisom i sa HTML oktalnim i decimalnim zapisima (za više informacija pogledajte poglavlje 2).
'
'Karakter Izgled UTF-8 oktalna decimalna
'Velika latinična slova
'U+0041 A 0x41 \101 &#65;
'U+0042 B 0x42 \102 &#66;
'U+0043 C 0x43 \103 &#67;
'U+0044 D 0x44 \104 &#68;
'U+0045 E 0x45 \105 &#69;
'U+0046 F 0x46 \106 &#70;
'U+0047 G 0x47 \107 &#71;
'U+0048 H 0x48 \110 &#72;
'U+0049 I 0x49 \111 &#73;
'U+004A J 0x4A \112 &#74;
'U+004B K 0x4B \113 &#75;
'U+004C L 0x4C \114 &#76;
'U+004D M 0x4D \115 &#77;
'U+004E N 0x4E \116 &#78;
'U+004F O 0x4F \117 &#79;
'U+0050 P 0x50 \120 &#80;
'U+0051 Q 0x51 \121 &#81;
'U+0052 R 0x52 \122 &#82;
'U+0053 S 0x53 \123 &#83;
'U+0054 T 0x54 \124 &#84;
'U+0055 U 0x55 \125 &#85;
'U+0056 V 0x56 \126 &#86;
'U+0057 W 0x57 \127 &#87;
'U+0058 X 0x58 \130 &#88;
'U+0059 Y 0x59 \131 &#89;
'U+005A Z 0x5A \132 &#90;
'Mala latinična slova
'U+0061 a 0x61 \141 &#97;
'U+0062 b 0x62 \142 &#98;
'U+0063 c 0x63 \143 &#99;
'U+0064 d 0x64 \144 &#100;
'U+0065 e 0x65 \145 &#101;
'U+0066 f 0x66 \146 &#101;
'U+0067 g 0x67 \147 &#103;
'U+0068 h 0x68 \150 &#104;
'U+0069 i 0x69 \151 &#105;
'U+006A j 0x6A \152 &#106;
'U+006B k 0x6B \153 &#107;
'U+006C l 0x6C \154 &#108;
'U+006D m 0x6D \155 &#109;
'U+006E n 0x6E \156 &#110;
'U+006F o 0x6F \157 &#111;
'U+0070 p 0x70 \160 &#112;
'U+0071 q 0x71 \161 &#113;
'U+0072 r 0x72 \162 &#114;
'U+0073 s 0x73 \163 &#115;
'U+0074 t 0x74 \164 &#116;
'U+0075 u 0x75 \165 &#117;
'U+0076 v 0x76 \166 &#118;
'U+0077 w 0x77 \167 &#119;
'U+0078 x 0x78 \170 &#120;
'U+0079 y 0x79 \171 &#121;
'U+007A z 0x7A \172 &#122;
'Naša dodatna latinična slova
'U+0106 Ć 0xC4 0x86 \304\206 &#262;
'U+0107 ć 0xC4 0x87 \304\207 &#263;
'U+010C Č 0xC4 0x8C \304\214 &#268;
'U+010D č 0xC4 0x8D \304\215 &#269;
'U+0110 Đ 0xC4 0x90 \304\220 &#272;
'U+0111 đ 0xC4 0x91 \304\221 &#273;
'U+0160 Š 0xC5 0xA0 \305\240 &#352;
'U+0161 š 0xC5 0xA1 \305\241 &#353;
'U+017D Ž 0xC5 0xBD \305\275 &#381;
'U+017E ž 0xC5 0xBE \305\276 &#382;
'Velika ćirilična slova
'U+0402 Đ 0xD0 0x82 \320\202 &#1026;
'U+0408 J 0xD0 0x88 \320\210 &#1032;
'U+0409 LJ 0xD0 0x89 \320\211 &#1033;
'U+040A NJ 0xD0 0x8A \320\212 &#1034;
'U+040B Ć 0xD0 0x8B \320\213 &#1035;
'U+040F DŽ 0xD0 0x8F \320\217 &#1039;
'U+0410 A 0xD0 0x90 \320\220 &#1040;
'U+0411 B 0xD0 0x91 \320\221 &#1041;
'U+0412 V 0xD0 0x92 \320\222 &#1042;
'U+0413 G 0xD0 0x93 \320\223 &#1043;
'U+0414 D 0xD0 0x94 \320\224 &#1044;
'U+0415 E 0xD0 0x95 \320\225 &#1045;
'U+0416 Ž 0xD0 0x96 \320\226 &#1046;
'U+0417 Z 0xD0 0x97 \320\227 &#1047;
'U+0418 I 0xD0 0x98 \320\230 &#1048;
'U+041A K 0xD0 0x9A \320\232 &#1050;
'U+041B L 0xD0 0x9B \320\233 &#1051;
'U+041C M 0xD0 0x9C \320\234 &#1052;
'U+041D N 0xD0 0x9D \320\235 &#1053;
'U+041E O 0xD0 0x9E \320\236 &#1054;
'U+041F P 0xD0 0x9F \320\237 &#1055;
'U+0420 R 0xD0 0xA0 \320\240 &#1056;
'U+0421 S 0xD0 0xA1 \320\241 &#1057;
'U+0422 T 0xD0 0xA2 \320\242 &#1058;
'U+0423 U 0xD0 0xA3 \320\243 &#1059;
'U+0424 F 0xD0 0xA4 \320\244 &#1060;
'U+0425 H 0xD0 0xA5 \320\245 &#1061;
'U+0426 C 0xD0 0xA6 \320\246 &#1062;
'U+0427 Č 0xD0 0xA7 \320\247 &#1063;
'U+0428 Š 0xD0 0xA8 \320\250 &#1064;
'Mala ćirilična slova
'U+0430 a 0xD0 0xB0 \320\260 &#1072;
'U+0431 b 0xD0 0xB1 \320\261 &#1073;
'U+0432 v 0xD0 0xB2 \320\262 &#1074;
'U+0433 g 0xD0 0xB3 \320\263 &#1075;
'U+0434 d 0xD0 0xB4 \320\264 &#1076;
'U+0435 e 0xD0 0xB5 \320\265 &#1077;
'U+0436 ž 0xD0 0xB6 \320\266 &#1078;
'U+0437 z 0xD0 0xB7 \320\267 &#1079;
'U+0438 i 0xD0 0xB8 \320\270 &#1080;
'U+043A k 0xD0 0xBA \320\272 &#1082;
'U+043B l 0xD0 0xBB \320\273 &#1083;
'U+043C m 0xD0 0xBC \320\274 &#1084;
'U+043D n 0xD0 0xBD \320\275 &#1085;
'U+043E o 0xD0 0xBE \320\276 &#1086;
'U+043F p 0xD0 0xBF \320\277 &#1087;
'U+0440 r 0xD0 0xC0 \320\280 &#1088;
'U+0441 s 0xD0 0xC1 \320\281 &#1089;
'U+0442 t 0xD0 0xC2 \320\282 &#1090;
'U+0443 u 0xD0 0xC3 \320\283 &#1091;
'U+0444 f 0xD0 0xC4 \320\284 &#1092;
'U+0445 h 0xD0 0xC5 \320\285 &#1093;
'U+0446 c 0xD0 0xC6 \320\286 &#1094;
'U+0447 č 0xD0 0xC7 \320\287 &#1095;
'U+0448 š 0xD0 0xC8 \320\290 &#1096;
'U+0452 đ 0xD1 0x92 \321\222 &#1106;
'U+0458 j 0xD1 0x98 \321\230 &#1112;
'U+0459 lj 0xD1 0x99 \321\231 &#1113;
'U+045A nj 0xD1 0x9A \321\232 &#1114;
'U+045B ć 0xD1 0x9B \321\233 &#1115;
'U+045F dž 0xD1 0x9F \321\237 &#1119;


'Konvertovanje iz kodne strane YUSCII u Serbian(Cirilic, Serbia) 1251
For n = 1 To Len(Tekst)

'Mala slova

'Velika slova
If Asc(Mid(Tekst, n, 1)) = 13 Then
novitekst = novitekst & Chr(Asc(Mid(Tekst, n, 1)))
End If


If Asc(Mid(Tekst, n, 1)) > 31 And Asc(Mid(Tekst, n, 1)) < 47 Then

novitekst = novitekst & Chr(Asc(Mid(Tekst, n, 1)))
End If
If Asc(Mid(Tekst, n, 1)) > 47 And Asc(Mid(Tekst, n, 1)) < 64 Then

novitekst = novitekst & Chr(Asc(Mid(Tekst, n, 1)))
End If

If Mid(Tekst, n, 1) = "_" Then
novitekst = novitekst & Chr(95)
End If

If Mid(Tekst, n, 1) = "A" Then
novitekst = novitekst & ChrW$(1040)
End If
If Mid(Tekst, n, 1) = "B" Then
novitekst = novitekst & ChrW$(1041)
End If
If Mid(Tekst, n, 1) = "V" Then
novitekst = novitekst & ChrW$(1042)
End If
If Mid(Tekst, n, 1) = "G" Then
novitekst = novitekst & ChrW$(1043)
End If
If Mid(Tekst, n, 1) = "D" Then
novitekst = novitekst & ChrW$(1044)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "\" Then
novitekst = novitekst & ChrW$(1026)
End If
'''''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "E" Then
novitekst = novitekst & ChrW$(1045)
End If
If Mid(Tekst, n, 1) = "@" Then
novitekst = novitekst & ChrW$(1046)
End If
If Mid(Tekst, n, 1) = "Z" Then
novitekst = novitekst & ChrW$(1047)
End If
If Mid(Tekst, n, 1) = "I" Then
novitekst = novitekst & ChrW$(1048)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "J" Then
novitekst = novitekst & ChrW$(1032)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "K" Then
novitekst = novitekst & ChrW$(1050)
End If
If Mid(Tekst, n, 1) = "L" Then
novitekst = novitekst & ChrW$(1051)
End If
''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "Q" Then
novitekst = novitekst & ChrW$(1033)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "M" Then
novitekst = novitekst & ChrW$(1052)
End If
If Mid(Tekst, n, 1) = "N" Then
novitekst = novitekst & ChrW$(1053)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "W" Then
novitekst = novitekst & ChrW$(1034)
End If
'''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "O" Then
novitekst = novitekst & ChrW$(1054)
End If
If Mid(Tekst, n, 1) = "P" Then
novitekst = novitekst & ChrW$(1055)
End If
If Mid(Tekst, n, 1) = "R" Then
novitekst = novitekst & ChrW$(1056)
End If
If Mid(Tekst, n, 1) = "S" Then
novitekst = novitekst & ChrW$(1057)
End If
If Mid(Tekst, n, 1) = "T" Then
novitekst = novitekst & ChrW$(1058)
End If
'''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "]" Then
novitekst = novitekst & ChrW$(1035)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "U" Then
novitekst = novitekst & ChrW$(1059)
End If
If Mid(Tekst, n, 1) = "F" Then
novitekst = novitekst & ChrW$(1060)
End If
If Mid(Tekst, n, 1) = "H" Then
novitekst = novitekst & ChrW$(1061)
End If
If Mid(Tekst, n, 1) = "C" Then
novitekst = novitekst & ChrW$(1062)
End If
If Mid(Tekst, n, 1) = "^" Then
novitekst = novitekst & ChrW$(1063)
End If
'''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "X" Then
novitekst = novitekst & ChrW$(1039)
End If
'''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "[" Then
novitekst = novitekst & ChrW$(1064)
End If

' Mala slova
If Mid(Tekst, n, 1) = "a" Then
novitekst = novitekst & ChrW$(1072)
End If
If Mid(Tekst, n, 1) = "b" Then
novitekst = novitekst & ChrW$(1073)
End If
If Mid(Tekst, n, 1) = "v" Then
novitekst = novitekst & ChrW$(1074)
End If
If Mid(Tekst, n, 1) = "g" Then
novitekst = novitekst & ChrW$(1075)
End If
If Mid(Tekst, n, 1) = "d" Then
novitekst = novitekst & ChrW$(1076)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "|" Then
novitekst = novitekst & ChrW$(1106)
End If
'''''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "e" Then
novitekst = novitekst & ChrW$(1077)
End If
If Mid(Tekst, n, 1) = "`" Then
novitekst = novitekst & ChrW$(1078)
End If
If Mid(Tekst, n, 1) = "z" Then
novitekst = novitekst & ChrW$(1079)
End If
If Mid(Tekst, n, 1) = "i" Then
novitekst = novitekst & ChrW$(1080)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "j" Then
novitekst = novitekst & ChrW$(1112)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "k" Then
novitekst = novitekst & ChrW$(1082)
End If
If Mid(Tekst, n, 1) = "l" Then
novitekst = novitekst & ChrW$(1083)
End If
''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "q" Then
novitekst = novitekst & ChrW$(1113)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "m" Then
novitekst = novitekst & ChrW$(1084)
End If
If Mid(Tekst, n, 1) = "n" Then
novitekst = novitekst & ChrW$(1085)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "w" Then
novitekst = novitekst & ChrW$(1114)
End If
'''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "o" Then
novitekst = novitekst & ChrW$(1086)
End If
If Mid(Tekst, n, 1) = "p" Then
novitekst = novitekst & ChrW$(1087)
End If
If Mid(Tekst, n, 1) = "r" Then
novitekst = novitekst & ChrW$(1088)
End If
If Mid(Tekst, n, 1) = "s" Then
novitekst = novitekst & ChrW$(1089)
End If
If Mid(Tekst, n, 1) = "t" Then
novitekst = novitekst & ChrW$(1090)
End If
'''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "}" Then
novitekst = novitekst & ChrW$(1115)
End If
''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "u" Then
novitekst = novitekst & ChrW$(1091)
End If
If Mid(Tekst, n, 1) = "f" Then
novitekst = novitekst & ChrW$(1092)
End If
If Mid(Tekst, n, 1) = "h" Then
novitekst = novitekst & ChrW$(1093)
End If
If Mid(Tekst, n, 1) = "c" Then
novitekst = novitekst & ChrW$(1094)
End If
If Mid(Tekst, n, 1) = "~" Then
novitekst = novitekst & ChrW$(1095)
End If
'''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "x" Then
novitekst = novitekst & ChrW$(1119)
End If
'''''''''''''''''''''''''''''''''
If Mid(Tekst, n, 1) = "{" Then
novitekst = novitekst & ChrW$(1096)
End If

If Mid(Tekst, n, 1) = "/" Then
novitekst = novitekst & ChrW$(47)
End If
Next n
Tekst = novitekst
End If

KonvertovaniTekstIzKodneStraneUkodnuStranu = Tekst

End Function
rgdrajko
 
Odgovor na temu

[es] :: Visual Basic 6 :: VB6 mysql - latinična slova ščđćž

[ Pregleda: 2428 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.