Prikazi cijelu temu 16.08.2012 12:47
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


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):
  1. Function funConvert(bytOrg As Byte) As Integer
  2.  
  3.     If bytOrg >= 0 And bytOrg <= 127 Then
  4.         funConvert = bytOrg
  5.         Exit Function
  6.     End If
  7.    
  8.     Select Case bytOrg
  9.         Case &H80:
  10.             funConvert = &H20AC  'EURO SIGN
  11.         Case 129:
  12.             'UNDEFINED
  13.             MsgBox "Bad character"
  14.             funConvert = 0
  15.         Case &H82:
  16.             funConvert = &H201A  'SINGLE LOW-9 QUOTATION MARK
  17.         Case 131:
  18.             'UNDEFINED
  19.             MsgBox "Bad character"
  20.             funConvert = 0
  21.         Case &H84:
  22.             funConvert = &H201E  'DOUBLE LOW-9 QUOTATION MARK
  23.         Case &H85:
  24.             funConvert = &H2026  'HORIZONTAL ELLIPSIS
  25.         Case &H86:
  26.             funConvert = &H2020 'DAGGER
  27.         Case &H87:
  28.             funConvert = &H2021      'DOUBLE DAGGER
  29.         Case 136
  30.             'UNDEFINED
  31.             MsgBox "Bad character"
  32.             funConvert = 0
  33.         Case &H89:
  34.             funConvert = &H2030      'PER MILLE SIGN
  35.         Case &H8A:
  36.             funConvert = &H160       'LATIN CAPITAL LETTER S WITH CARON
  37.         Case &H8B:
  38.             funConvert = &H2039      'SINGLE LEFT-POINTING ANGLE QUOTATION MARK
  39.         Case &H8C:
  40.             funConvert = &H15A       'LATIN CAPITAL LETTER S WITH ACUTE
  41.         Case &H8D:
  42.             funConvert = &H164       'LATIN CAPITAL LETTER T WITH CARON
  43.         Case &H8E:
  44.             funConvert = &H17D       'LATIN CAPITAL LETTER Z WITH CARON
  45.         Case &H8F:
  46.             funConvert = &H179       'LATIN CAPITAL LETTER Z WITH ACUTE
  47.         Case 144:
  48.             'UNDEFINED
  49.             MsgBox "Bad character"
  50.             funConvert = 0
  51.         Case &H91:
  52.             funConvert = &H2018      'LEFT SINGLE QUOTATION MARK
  53.         Case &H92:
  54.             funConvert = &H2019      'RIGHT SINGLE QUOTATION MARK
  55.         Case &H93:
  56.             funConvert = &H201C      'LEFT DOUBLE QUOTATION MARK
  57.         Case &H94:
  58.             funConvert = &H201D      'RIGHT DOUBLE QUOTATION MARK
  59.         Case &H95:
  60.             funConvert = &H2022      'BULLET
  61.         Case &H96:
  62.             funConvert = &H2013      'EN DASH
  63.         Case &H97:
  64.             funConvert = &H2014      'EM DASH
  65.         Case 152:
  66.             'UNDEFINED
  67.             MsgBox "Bad character"
  68.             funConvert = 0
  69.         Case &H99:
  70.             funConvert = &H2122      'TRADE MARK SIGN
  71.         Case &H9A:
  72.             funConvert = &H161       'LATIN SMALL LETTER S WITH CARON
  73.         'I tako dalje
  74.     End Select
  75.  
  76.  
  77. End Function
Možda da se ubace ovi karakteri za IBM852,pod uvjetom da ih imam za IBM852.
Miro