Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access



Warning: filesize(): stat failed for uploads/topics/Dekoder.zip in /home2/icentarb/public_html/icentar/showtopic.php on line 406
Prosiri i skupi Opcije teme
Stranice (7):1,2,3,4,5,6,7
 Prikazi prvu neprocitanu poruku

#31 13.08.2012 12:26
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#32 13.08.2012 15:45
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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.
Miro
↑  ↓

#33 13.08.2012 16:28
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Iz Å kole VB-a
Evo ti dekoder UTF

Prilozi:
Informacije o tipu datoteke za:zip  Dekoder.zip
Preuzimanja:10
Velicina datoteke: Bajt

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#34 14.08.2012 08:55
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Iz Å kole VB-a
ImaÅ¡ li IBM852 Dekoder.To bi mi trebalo za Tremol uređaje
Miro
↑  ↓

#35 15.08.2012 10:59
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Iz Å kole VB-a
Hoces reci treba ti za 852 kodnu stranu.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#36 16.08.2012 08:05
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Iz Å kole VB-a
Tako je za 852.Kod Tremol uređaja koristi se IBM852
Miro
↑  ↓

#37 16.08.2012 08:35
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#38 16.08.2012 12:47
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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
↑  ↓

#39 16.08.2012 13:06
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#40 16.08.2012 14:01
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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
Miro
↑  ↓

Stranice (7):1,2,3,4,5,6,7

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 2: 25 am.