Doug Steele
dbdoug at gmail.com
Sun Nov 1 11:22:38 CST 2009
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 >> > >