Doug Steele
dbdoug at gmail.com
Sun Nov 1 10:58:28 CST 2009
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.html and
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
>