Edward Zuris
edzedz at comcast.net
Sun Nov 1 17:11:04 CST 2009
Thanks Doug. . . I'll look at your sites. I guess I'll need the unicode for Cyrillic and English -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Doug Steele Sent: Sunday, November 01, 2009 10:23 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Cyrillic to English character translation further to my previous reply, the following site may help with converting multibyte code: http://www.motobit.com/tips/detpg_binarytostring/ Doug 2009/11/1 Doug Steele <dbdoug at gmail.com> > The first few words read: > > ED > JUST FOR FUN I DECIDED TO SEE.... > > It's kind of a crude phonetic substitution - for example, the J in > 'JUST' is made up of two letters: a D sound and a sort of SH that I > can't spell out in English. > > You could use the table here as a start: > http://5ko.free.fr/en/cyr.htmland just do a letter by letter > substitution. That would make it readable, I think. > > Doug > > 2009/11/1 Edward Zuris <edzedz at comcast.net> > > >> Does anyone have a Cyrillic to English >> character translation VBA snippet I could >> please study ? >> >> I did some ASCII and EBCDIC translation >> some 25 years ago. >> >> However, Unicode is something I am new >> to and wonder how that would work. >> >> Here is what I am hopeing to convert to >> English. >> >> I am told this is not Russian, but American >> English displayed in Cyrillic. >> >> It should be a C# program, plus some snide >> comments. >> >> Any suggestions ? >> >> Thanks. >> >> =================================================== >> Start >> =================================================== >> >> ЭД >> ДЖЮCT ФОP ФЮН И ДЭЧИДЭД TО CЭЭ HЬОУО ФЭУО ЛИНЭC ОФ ЧОДЭ И'Д HЬАВЭ TО >> УОPИTЭ TО ЧОНВЭPT ЧPЁPИЛЛИЧ TО ЭНГЛИCHЬ АНД ВИЧЭ-ВЭPCА. >> >> И'М PЭАЛЛЁ QЮИTЭ CTЮННЭД THЬАT А ЧАПАбЛЭ ПPОГPАММЭP CЮЧHЬ АC ЁОЮPCЭЛФ >> УООЮЛДН'T HЬАВЭ АППЛИЭД THЬИC CОЛЮTИОН TО THЬЭ ПPОбЛЭМ А ЛОНГ TИМЭ >> АГО. >> >> АНЁУОАЁ И УОАC АбЛЭ TО ДО ИT ИН НИНЭ ЛИНЭC: >> >> ЮCИНГ CЁCTЭМ; >> ЮCИНГ CЁCTЭМ.ЧОЛЛЭЧTИОНC.ГЭНЭPИЧ; >> ЮCИНГ CЁCTЭМ.TЭXT; >> ЮCИНГ CЁCTЭМ.ИО; >> ЮCИНГ CЁCTЭМ.ДИАГНОCTИЧC; >> >> НАМЭCПАЧЭ TPАНCЛАTОP >> { >> ЧЛАCC ПPОГPАМ >> { >> CTАTИЧ ВОИД МАИН(CTPИНГ[] АPГC) >> { >> ИНTЭPОЧИTЭP XЛT = НЭУО >> ИНTЭPОЧИTЭP(); >> CTPИНГ T; >> ЮCИНГ (CTPЭАМPЭАДЭP CP = НЭУО >> CTPЭАМPЭАДЭP("Ч:\TЭCT.TXT")) T = CP.PЭАДTОЭНД(); >> ЮCИНГ(CTPЭАМУОPИTЭP CУО = НЭУО >> CTPЭАМУОPИTЭP("Ч:\\ОЮTПЮTФИЛЭ.TXT")) ФОP(ИНT И=0; И<T.ЛЭНГTHЬ;И++) >> CУО.УОPИTЭ(XЛT.XЛАTЭ(T.CЮбCTPИНГ(И,1).TОЮППЭP())); >> } >> } >> ЧЛАCC ИНTЭPОЧИTЭP:CОPTЭДЛИCT<CTPИНГ,CTPИНГ> >> { >> ПЮбЛИЧ ИНTЭPОЧИTЭP() >> { >> CTPИНГ[] АЛПHЬАбЭT; >> ЮCИНГ(CTPЭАМPЭАДЭP CP = НЭУО >> CTPЭАМPЭАДЭP("Ч:\\TPАНCЛАTЭTАбЛЭ.TXT")) АЛПHЬАбЭT = >> CP.PЭАДTОЭНД().CПЛИT(НЭУО ЧHЬАP[] {'\Н'}); >> ФОP(ИНT И=0;И<АЛПHЬАбЭT.ЛЭНГTHЬ - >> 1;И++) бАCЭ.АДД(АЛПHЬАбЭT[И].CПЛИT(НЭУО ЧHЬАP[] { '\t' >> })[1].CЮбCTPИНГ(0,1),АЛПHЬАбЭT[И].CПЛИT(НЭУО ЧHЬАP[] { '\t' })[0]); >> } >> ПЮбЛИЧ CTPИНГ XЛАTЭ(CTPИНГ C) {ИФ >> (бАCЭ.ЧОНTАИНCКЭЁ(C)) PЭTЮPН бАCЭ[C]; ЭЛCЭ PЭTЮPН C;} >> } >> } >> >> ФАЧT ИC, ИФ ЁОЮ'PЭ ГОИНГ ПPЭTЭНД THЬАT ЁОЮ КНОУО ЭВЭPЁTHЬИНГ, ЁОЮ >> МИГHЬT ГЭT ЧАЮГHЬT. THЬЭ бЭCT THЬИНГ TО ДО АT THЬАT ПОИНT, ИC АДМИT >> THЬЭ TPЮTHЬ, бЮT НОT ЁОЮ, НО CИP. >> >> ЁОЮ CTИЛЛ PЭФЮCЭ TО АДМИT THЬАT ЁОЮ PЭАЛЛЁ ДОН'T КНОУО THЬЭ ЧЁPИЛЛИЧ >> АЛПHЬАбЭT. >> >> МЁ ФPЮCTPАTИОН УОИTHЬ ЁОЮ ИC THЬАT THЬИC АЛCО АППЛИЭC TО МАНЁ ОTHЬЭP >> THЬИНГC ЁОЮ ЧОНCTАНTЛЁ АCCЭPT. CЮЧHЬ АC АЛЛ PЭПЮбЛИЧАНC АPЭ PАЧИCT, >> НАЗИ, HЬОМОCЭXЮАЛC УОHЬО "ЁОЮ ДЖЮCT ДОН'T КНОУО УОHЬАT THЬЭЁ УОАНT >> ФОP THЬИC ЧОЮНTPЁ" ИНCИНЮАTИНГ ОН TОП ОФ ИНCЮЛT THЬАT THЬЭЁ АPЭ АЛCО >> ЮН АМЭPИЧАН. ЁОЮ НЭВЭP CTОП TО THЬИНК THЬАT THЬИC ЧОЮЛД бЭ >> ИНЧPЭДИбЛЁ ИНCЮЛTИНГ TО ОTHЬЭPC, ЭXTPЭМЭЛЁ PАЧИCT, АНД бИГОTЭД. >> >> THЬЭН ЁОЮ КЭЭП TЭЛЛИНГ МЭ THЬЭ CАМЭ ЛИЭC, ОВЭP АНД ОВЭP, ДЭCПИTЭ ФАЧT >> ПИЛЭД ОН TОП ОФ ФАЧT, бЭЧАЮCЭ THЬЭCЭ ЛИбЭPАЛ "TPЮTHЬC" АPЭ TО бЭ >> бЭЛИЭВЭД ИН THЬЭ ФАЧЭ ОФ АЛЛ ЭВИДЭНЧЭ TО THЬЭ ЧОНTPАPЁ. >> >> CО, И АМ КЭЭПИНГ ЁОЮ TО ЁОЮP УООPД. ЁОЮ ПPЭTЭНДЭД TО КНОУО >> ЧPЁPИЛЛИЧ, THЬЭPЭФОPЭ ЁОЮ ДО, УОHЬЭTHЬЭP ИT ИC TPЮЭ ОP НОT, АНД И >> PЭФЮCЭ TО бЭЛИЭВЭ АНЁTHЬИНГ ЭЛCЭ. ИН АбОЮT CИX ЁЭАPC (АбОЮT АC ЛОНГ >> АC И'ВЭ HЬАД TО ЭНДЮPЭ THЬЭ "НЭУО ЭД") THЬЭН И МИГHЬT ЧHЬАНГЭ бАЧК TО >> ЭНГЛИCHЬ, ИФ И ФЭЭЛ ЛИКЭ ИT, бЮT УОHЬЁ CHЬОЮЛД И? >> >> ЁОЮ УООН'T ЧHЬАНГЭ ЁОЮP МИНД ОН АНЁ ОФ THЬЭ ЛИбЭPАЛ ФАНTАCИЭC. >> >> НО МАTTЭP УОHЬАT HЬАППЭНC. >> >> CО И ЧАН бЭ ДЖЮCT АC CTЮббОPН АC ЁОЮ, бЮT И ДОН'T THЬИНК И ЧАН ЭВЭP >> бЭ АC PАЧИCT АНД МЭАН АC ЁОЮ АPЭ. НОT бЁ А ЛОНГ CHЬОT. >> >> >> =================================================== >> End >> =================================================== >> >> >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> > > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com