Predmet:Re: Iz Å kole VB-a
nema džamper.Znam samo da je u HCP uređaja UTF-8 a u Tremol je IBM852.Znači to treba biti u xml fajlu tako.Iskreno nisam probao utf-8 na trmol možda radi.Ovaj modul Dekoder sadrži ovo:
PreuzmiIzvorni kôd (Text):Function funConvert(bytOrg As Byte) As Integer
If bytOrg >= 0 And bytOrg <= 127 Then
funConvert = bytOrg
Exit Function
End If
Select Case bytOrg
Case &H80:
funConvert = &H20AC 'EURO SIGN
Case 129:
'UNDEFINED
MsgBox "Bad character"
funConvert = 0
Case &H82:
funConvert = &H201A 'SINGLE LOW-9 QUOTATION MARK
Case 131:
'UNDEFINED
MsgBox "Bad character"
funConvert = 0
Case &H84:
funConvert = &H201E 'DOUBLE LOW-9 QUOTATION MARK
Case &H85:
funConvert = &H2026 'HORIZONTAL ELLIPSIS
Case &H86:
funConvert = &H2020 'DAGGER
Case &H87:
funConvert = &H2021 'DOUBLE DAGGER
Case 136
'UNDEFINED
MsgBox "Bad character"
funConvert = 0
Case &H89:
funConvert = &H2030 'PER MILLE SIGN
Case &H8A:
funConvert = &H160 'LATIN CAPITAL LETTER S WITH CARON
Case &H8B:
funConvert = &H2039 'SINGLE LEFT-POINTING ANGLE QUOTATION MARK
Case &H8C:
funConvert = &H15A 'LATIN CAPITAL LETTER S WITH ACUTE
Case &H8D:
funConvert = &H164 'LATIN CAPITAL LETTER T WITH CARON
Case &H8E:
funConvert = &H17D 'LATIN CAPITAL LETTER Z WITH CARON
Case &H8F:
funConvert = &H179 'LATIN CAPITAL LETTER Z WITH ACUTE
Case 144:
'UNDEFINED
MsgBox "Bad character"
funConvert = 0
Case &H91:
funConvert = &H2018 'LEFT SINGLE QUOTATION MARK
Case &H92:
funConvert = &H2019 'RIGHT SINGLE QUOTATION MARK
Case &H93:
funConvert = &H201C 'LEFT DOUBLE QUOTATION MARK
Case &H94:
funConvert = &H201D 'RIGHT DOUBLE QUOTATION MARK
Case &H95:
funConvert = &H2022 'BULLET
Case &H96:
funConvert = &H2013 'EN DASH
Case &H97:
funConvert = &H2014 'EM DASH
Case 152:
'UNDEFINED
MsgBox "Bad character"
funConvert = 0
Case &H99:
funConvert = &H2122 'TRADE MARK SIGN
Case &H9A:
funConvert = &H161 'LATIN SMALL LETTER S WITH CARON
'I tako dalje
End Select
End Function
Možda da se ubace ovi karakteri za IBM852,pod uvjetom da ih imam za IBM852.
Miro