Warning: filesize(): stat failed for uploads/topics/Dekoder.zip in /home2/icentarb/public_html/icentar/print.php on line 204
iCentar » Racunari i oprema » Programirannje i baze podataka » Access » Iz Å kole VB-a
zxz 13.08.2012 12:26
Predmet:Re: Iz Å kole VB-a

Shell "rename C:\HCP\TO_FP\RAC_" & Me.BROIZD & ".XML C:\HCP\TO_FP\RCP_" & Me.BROIZD & ".XML"
Potrazit cu ti proceduru u UTF8

miro35 13.08.2012 15:45
Predmet:Re: Iz Å kole VB-a

Imam ne trebaÅ¡ tražit pogledaj samo je li to ta u ovom UTF8.rar Å¡to sam danas zakačio.Isprobao sam radi.Vidjet ćeÅ¡ jedan modul ima i zove se dekoder.

zxz 13.08.2012 16:28
Predmet:Re: Iz Å kole VB-a

Evo ti dekoder UTF
Prilozi:
Dekoder.zip (Velicina datoteke: Bajt)

miro35 14.08.2012 08:55
Predmet:Re: Iz Å kole VB-a

ImaÅ¡ li IBM852 Dekoder.To bi mi trebalo za Tremol uređaje

zxz 15.08.2012 10:59
Predmet:Re: Iz Å kole VB-a

Hoces reci treba ti za 852 kodnu stranu.

miro35 16.08.2012 08:05
Predmet:Re: Iz Å kole VB-a

Tako je za 852.Kod Tremol uređaja koristi se IBM852

zxz 16.08.2012 08:35
Predmet:Re: Iz Å kole VB-a

Gledaj ima tu jedna kvaka pa bi trebao provjeriti.
Posto se taj izvjestaj exportuje direktno u poresko a koliko znam tamo je utf8 format sto znaci akobi slao u nekom drugom formatu da bi tamo dolazilo do greske.
Sad dolazi na tvom uredjaju.
Trebas pogledati na tom uredjaju dali postoji djamper na prebacivanje na neku drugu kodnu stranu.

miro35 16.08.2012 12:47
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.

zxz 16.08.2012 13:06
Predmet:Re: Iz Å kole VB-a

Da u principu samo treba pregledati i upisati zamjene.
Ali ima nesto drugo:
na pocetku XML fajla mora pisati kodna strana i kod tebe pise UTF8.
Kako sada unijeti karaktere 852 kodne strane.

Neznam jesil probao to orginalno UTF( hoce li raditi.

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

Hoće samo početak ide ovako:
PreuzmiIzvorni kôd (Text):
  1. Open "C:\Prodaja\PresjekX.xml" For Output As 1
  2. Dim Tekst As String
  3.  
  4. Tekst = "<?xml version=""1.0"" encoding=""IBM852""?>"
  5. Print #1, Tekst