Автор Тема: ПРЕИМУЩЕСТВА И НЕДОСТАТКИ ИЕРОГЛИФОВ [a]  (Прочитано 104440 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн quaxter

  • Заслуженный
  • *****
  • Сообщений: 668
  • Карма: 8
  • Пол: Мужской
Re: Иероглифы.Преимущества и недостатки.
« Ответ #25 : 19 Января 2003 08:43:14 »
У менеа еще вопрос: почему не на всех саитах читаиутсеа ероглифы?

Так и кириллица не везде читается. Особенно в китайской кодировке GuoBiao :)


Догадайтесь, к примеру, что сие за:
§Ґ§а§Ф§С§Х§С§Ы§д§Ц§г§о, §Ь §б§в§Ъ§Ю§Ц§в§е, §й§д§а §г§Ъ§Ц §Щ§С
Торжественно клянусь - это русский текст.

pnkv

  • Гость
Re: Иероглифы.Преимущества и недостатки.
« Ответ #26 : 21 Января 2003 17:55:56 »

Так и кириллица не везде читается. Особенно в китайской кодировке GuoBiao :)


Догадайтесь, к примеру, что сие за:
§Ґ§а§Ф§С§Х§С§Ы§д§Ц§г§о, §Ь §б§в§Ъ§Ю§Ц§в§е, §й§д§а §г§Ъ§Ц §Щ§С
Торжественно клянусь - это русский текст.


О! В такую хрень у меня преобразуются письма на русском языке, где присутствует хотя бы один иероглиф. Происходит это на почтовом серевере яндекса. Приходится иероглифы набирать в ворде и прикреплять в качестве вложения.

А можно подобную белеберду как то преобразовать обратно в русский?

Xrune

  • Гость
Re: Иероглифы.Преимущества и недостатки.
« Ответ #27 : 01 Февраля 2003 07:07:42 »
Вот вопрос ещё!
Есть ли в мире ещё какие-то иероглифические писменности кроме китайской? Я имею в виду самобытные(т.е. как я понимаю в Японии и Корее они заимствованы из Китая, плюс у них свои слоговые письменности )...
Или китайцы такие особенные?

Оффлайн Shuravi

  • Заслуженный
  • *****
  • Сообщений: 1260
  • Карма: 12
  • Пол: Мужской
    • Shuravi
Re: Иероглифы.Преимущества и недостатки.
« Ответ #28 : 01 Февраля 2003 07:19:58 »
А еще мне чтение иероглифичного ченть это.. нервы успокаивает..)

Говорят, что вязание тоже хорошо нервы успокаивает  ;D

Оффлайн quaxter

  • Заслуженный
  • *****
  • Сообщений: 668
  • Карма: 8
  • Пол: Мужской
Re: Иероглифы.Преимущества и недостатки.
« Ответ #29 : 01 Февраля 2003 07:24:51 »

О! В такую хрень у меня преобразуются письма на русском языке, где присутствует хотя бы один иероглиф.<...> А можно подобную белеберду как то преобразовать обратно в русский?

Канэшьна. Если воспользоваться моим вордовым макросом, читающим эту феню, которой никакой Штирлиц не берет.
Я вынужден был писануть эту макруху, чтобы читать письма классного парня Ван Яньпэна, пекинца (не уроженца, а жителя), пишущего мне на русском, но в гобяве. Код макроса прилагаю.
Sub RussianGuoBiao()
'
' Hotkey Combination Ctrl + Num0, G
'
' RussianGuoBiao Macro - Deciphers Russian text coded by GuoBiao 2312 charset
' Macro recorded on 04.01.2003 by quaxter
'

   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
       .Text = "§Ў"
       .Replacement.Text = "А"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§С"
       .Replacement.Text = "а"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§ў"
       .Replacement.Text = "Б"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§Т"
       .Replacement.Text = "б"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§Ј"
       .Replacement.Text = "В"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§У"
       .Replacement.Text = "в"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§¤"
       .Replacement.Text = "Г"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§Ф"
       .Replacement.Text = "г"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§Ґ"
       .Replacement.Text = "Д"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§Х"
       .Replacement.Text = "д"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§¦"
       .Replacement.Text = "Е"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§Ц"
       .Replacement.Text = "е"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§§"
       .Replacement.Text = "Ё"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§Ч"
       .Replacement.Text = "ё"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§Ё"
       .Replacement.Text = "Ж"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§Ш"
       .Replacement.Text = "ж"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§©"
       .Replacement.Text = "З"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§Щ"
       .Replacement.Text = "з"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§Є"
       .Replacement.Text = "И"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§Ъ"
       .Replacement.Text = "и"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§«"
       .Replacement.Text = "Й"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§Ы"
       .Replacement.Text = "й"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§¬"
       .Replacement.Text = "К"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§Ь"
       .Replacement.Text = "к"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§­"
       .Replacement.Text = "Л"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§Э"
       .Replacement.Text = "л"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§®"
       .Replacement.Text = "М"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§Ю"
       .Replacement.Text = "м"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§Ї"
       .Replacement.Text = "Н"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§Я"
       .Replacement.Text = "н"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§°"
       .Replacement.Text = "О"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§а"
       .Replacement.Text = "о"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§±"
       .Replacement.Text = "П"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§б"
       .Replacement.Text = "п"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§І"
       .Replacement.Text = "Р"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§в"
       .Replacement.Text = "р"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§і"
       .Replacement.Text = "С"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§г"
       .Replacement.Text = "с"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§ґ"
       .Replacement.Text = "Т"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§д"
       .Replacement.Text = "т"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§µ"
       .Replacement.Text = "У"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§е"
       .Replacement.Text = "у"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§¶"
       .Replacement.Text = "Ф"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§ж"
       .Replacement.Text = "ф"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§·"
       .Replacement.Text = "Х"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§з"
       .Replacement.Text = "х"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§ё"
       .Replacement.Text = "Ц"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§и"
       .Replacement.Text = "ц"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§№"
       .Replacement.Text = "Ч"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§й"
       .Replacement.Text = "ч"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§є"
       .Replacement.Text = "Ш"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§к"
       .Replacement.Text = "ш"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§»"
       .Replacement.Text = "Щ"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§л"
       .Replacement.Text = "щ"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§ј"
       .Replacement.Text = "Ъ"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§м"
       .Replacement.Text = "ъ"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§Ѕ"
       .Replacement.Text = "Ы"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§н"
       .Replacement.Text = "ы"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§ѕ"
       .Replacement.Text = "Ь"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§о"
       .Replacement.Text = "ь"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§ї"
       .Replacement.Text = "Э"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§п"
       .Replacement.Text = "э"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§А"
       .Replacement.Text = "Ю"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§р"
       .Replacement.Text = "ю"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§Б"
       .Replacement.Text = "Я"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "§с"
       .Replacement.Text = "я"
       .Forward = True
       .Wrap = wdFindContinue
       .MatchCase = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Прошу прощения у любителей изящного стиля в программировании. Я не стал вспоминать С++ и устанавливать на тачку средства разработки программ, а просто в лоб прогулялся по русскому алфавиту методом перебора.
Пользуйте на здоровье.
Продукт фривареный:
No copy - no rights

Оффлайн quaxter

  • Заслуженный
  • *****
  • Сообщений: 668
  • Карма: 8
  • Пол: Мужской
Re: Иероглифы.Преимущества и недостатки.
« Ответ #30 : 01 Февраля 2003 08:32:04 »
Есть ли в мире ещё какие-то иероглифические писменности кроме китайской?

В живых языках - не знаю. Среди мертвых - древнеегипетский и язык индейцев майя.
В древнеегипетском преобладали идеограммы и пиктограммы, хотя были и фоноидеограммы, у майя пропорция была близка к китайской. Кнорозов исходил из этого, когда пытался дешифровать дошедшие памятники письменности майя. Только слишком он доверял компутеру. Нельзя слепо верить логарифмической линейке.
А так получалась лажа: каждая назходка нового текста ставила мужика в тупик. Приходилось пересматривать ранее сделанные переводы, пересматривать концепцию. А в итоге - большой пшик вместо победы компутера над разумом.

Теrminator

  • Гость
Re: Иероглифы.Преимущества и недостатки.
« Ответ #31 : 02 Февраля 2003 22:14:56 »
Вы тут все ...Жибава-Жибава...объясните чайнику, что это за чтучка???

Xrune

  • Гость
Re: Иероглифы.Преимущества и недостатки.
« Ответ #32 : 03 Февраля 2003 16:40:11 »
Чувак Жибава ЕНТО газета КитаЙскаЯ!
Кстати по поводу газет...Кто-нибудь слыхал про или видал в глаза первую российскую газету на китайском? ::) Несколько недель назад новость проскальзнула, что её в Красноярске выпустили! >:(

Оффлайн B M

  • Заслуженный
  • *****
  • Сообщений: 1091
  • Карма: 7
  • Пол: Мужской
Re: Иероглифы.Преимущества и недостатки.
« Ответ #33 : 03 Февраля 2003 19:45:29 »

В живых языках - не знаю. Среди мертвых - древнеегипетский и язык индейцев майя.

Ну зачем же забывать самую древнюю письменность, сиречь шумерскую клинопись, которая есть тоже иероглифы (вот только ничего не могу сказать про соотношение пикто- и идеограмм). Впоследствии была взята на вооружение аккадцами и прочими семито-хамитами (а также эламитами ;) ), и в конце концов финикийцы запарились клинописью счета выписывать и на её основе создали алфавит. Который, насколько я в курсе, в отличие от иероглифики был изобретён лишь однажды, а потом только модифицировался. Ну ещё цивилизация долины Инда (Хараппа - Мохенджо-Даро) тоже вроде как писала своими собственными иероглифами. Ну и плюс всякая экзотика типа кохау-ронго-ронго с острова Пасхи.
А вот по поводу макроса, уважаемый quaxter, как его в Word вставить? Я секунд 30 потыкался - и не понял. Может, стоило бы дольше поискать, но "меня терзают смутные сомнения" (© Иван Васильевич Бунша), что перекодировочная таблица зависит от компа отправителя и/или от пути пересылки.
« Le style, c'est l'homme même»  Buffon

Оффлайн katull

  • Бывалый
  • ***
  • Сообщений: 139
  • Карма: -7
    • eastmania.ru - Социальная сеть для тех, кто любит Восток
Re: Иероглифы.Преимущества и недостатки.
« Ответ #34 : 04 Февраля 2003 00:44:27 »
Цитировать
Кто-нибудь слыхал про или видал в глаза первую российскую газету на китайском?  Несколько недель назад новость проскальзнула, что её в Красноярске выпустили!

А что вы имеете в виду под "первой российской газетой на китайском"??? Это что такое? В Москве уже много-много лет - есть несколько газет на китайском - Мосыкэ ваньбао, Лусюнь, Лунбао, еще что-то. Но их китайцы выпускают.

Xrune

  • Гость
Re: Иероглифы.Преимущества и недостатки.
« Ответ #35 : 04 Февраля 2003 05:55:20 »
Я об этом не знал.....но видимо это первая газета такого рода в Красноярске. Об этом в Правде написано было.
..Плюс вероятно такая новость пошла в связи с шумихой, страхом того, что китайцы заселяют восточные регионы России. :D)

Оффлайн quaxter

  • Заслуженный
  • *****
  • Сообщений: 668
  • Карма: 8
  • Пол: Мужской
О вставке макроса
« Ответ #36 : 05 Февраля 2003 07:00:15 »

А вот по поводу макроса, уважаемый quaxter, как его в Word вставить? Я секунд 30 потыкался - и не понял. Может, стоило бы дольше поискать, но "меня терзают смутные сомнения" (© Иван Васильевич Бунша), что перекодировочная таблица зависит от компа отправителя и/или от пути пересылки.

Да в общем-то это несложно, вставить готовый макрос и принудить работать.
Процедура проста:
1) открываете ворд
2) нажимаете меню "Сервис"
3) в открывшейся группе нажимаете "Макрос"
4) в открывшйся группе нажимаете "Начать запись"
Выскакивает панелюга "Запись макроса"

Вы заполняете как на картинке, написав в верхней строке RussianGuoBiao (NB: никаких пробелов!)
Потом выскакивает микропанелька с кнопкой "Стоп" - тут же нажимаете ее.

Повторяете шаги 2) - 4), но на сей раз запускаете не "Начать запись", а "Редактор Visual Basic". Его можно вызвать и проще горячими клавишами Alt + F11.
Откроется, как обещано, окно редактора Visual Basic.

В нем будет вместо нужного макроса записана пустышка из 6 строк. В текстовом редакторе или броузере скопируйте код макроса в клипборд (буфер обмена). Выделите в редакторе Visual Basic все 6 строк одноименной пустышки и вклейте туда рабочий макрос. Только убедитесь, что заменные символы (русские буквы от а до я попарно в порядке заглавная - строчная) будут рендериться в строках типа
       .Replacement.Text = "а"правильно. Иначе и замена будет некорректной.
Макрос готов к использованию. Если при записи пустышки вы велели вызывать его сочетанием горячих клавиш - так его и вызывайте. Если прописали его вызывать менюшной кнопкой - так оно и будет. Только кнопку не забудьте на панель меню ворда бросить. И золотой ключик у вас в кармане.
А насчет пути туда-обратно, так тот самый Гераклит, который якобы спьяну брякнул о невозможности дважды войти в ту же реку, говорил о том, что "Путь туда и путь обратно суть одно". Нет под рукой оригинала - не взыщите.

Xrune

  • Гость
Re: Иероглифы.Преимущества и недостатки.
« Ответ #37 : 07 Февраля 2003 17:00:40 »
А в Питере кстати есть газеты на Zhongwen'е? Кто-нибудь знает :A)

Оффлайн E.Q.

  • Заслуженный
  • *****
  • Сообщений: 885
  • Карма: 5
  • Пол: Женский
Re: Иероглифы.Преимущества и недостатки.
« Ответ #38 : 08 Февраля 2003 01:08:43 »
Вы тут все ...Жибава-Жибава...объясните чайнику, что это за чтучка???


人民日报 ren2min2ri4bao4 (женьминь жибао) - как было сказано где-то выше, китайская газета. Рупор партии, что-то вроде нашей Правды в советские времена.  :)
Ничего не делай. И ничего не будет не сделано..

Xrune

  • Гость
Re: Иероглифы.Преимущества и недостатки.
« Ответ #39 : 08 Февраля 2003 04:53:30 »
И ещё один вопрос!
Вот когда учишь слова(когда надо сразу побольше)....Что лучше для запоминания...Учить иероги и вместе с ними одновременно слова которые из них состоят!
Или сначала выучить Пиньины, значение слов,  отработать звучание а потом уже разбираться как они записываются на иероглифах!

Ну вот что лучше? Кто чо может сказать? ??? :P

zilong

  • Гость
Re: Иероглифы.Преимущества и недостатки.
« Ответ #40 : 08 Февраля 2003 08:38:17 »
И ещё один вопрос!
Вот когда учишь слова(когда надо сразу побольше)....Что лучше для запоминания...Учить иероги и вместе с ними одновременно слова которые из них состоят!
Или сначала выучить Пиньины, значение слов,  отработать звучание а потом уже разбираться как они записываются на иероглифах!

Ну вот что лучше? Кто чо может сказать? ??? :P


Лучше всего при изучении слов учить и пининь, иероглифы неотрывно; на продвинутом этапе можно интересоваться (если не знаете) значения отдельных иероглифов в двух- трех- .... слогах (на начальном этапе это не нужно) - это помогает сформировать образ, понять, почему целиком слово из этих двух иероглифов переводится именно так, и - наконец - запомнить их скорее.. К тому же это подчас весьма интересно - разлагать слово на составляющие - вспомним у ПапыХуху - Что в Китае «можно в рот радостно» :)
« Последнее редактирование: 08 Февраля 2003 08:39:23 от zilong »

Оффлайн E.Q.

  • Заслуженный
  • *****
  • Сообщений: 885
  • Карма: 5
  • Пол: Женский
Re: Иероглифы.Преимущества и недостатки.
« Ответ #41 : 08 Февраля 2003 23:25:43 »
И ещё один вопрос!
Вот когда учишь слова(когда надо сразу побольше)....Что лучше для запоминания...Учить иероги и вместе с ними одновременно слова которые из них состоят!
Или сначала выучить Пиньины, значение слов,  отработать звучание а потом уже разбираться как они записываются на иероглифах!

Ну вот что лучше? Кто чо может сказать? ??? :P


На мой взгляд, отделять чтение и смысл от иероглифа не стоит, нужно учить всё вместе и сразу. И тона тоже. Ведь иероглиф это своего рода целостная система, и рассматривать его (её) надо целиком.
К словам zilong'а о том, что нужно учить /или хотя бы смотреть - всё равно рано или поздно запоминается/ значение отдельных иероглифов
Цитировать
это помогает сформировать образ, понять, почему целиком слово из этих двух иероглифов переводится именно так
хочу добавить, что это к тому же помогает понять примерный смысл незнакомого слова, состоящего из знакомых иероглифов. /мне в экзаменационном тексте попалось слово 救箱, состоящее из jiu4 - спасать и xiang1 - ящик. Оказалась аптечка.  :)
Так же и, какзалось бы, нудное и утомительное заучивание фонетиков на первом курсе /учебник, точнее пособие по иероглифике Кондрашевского/ в дальнейшем помогает определить примерное чтение.
Ничего не делай. И ничего не будет не сделано..

Оффлайн Papa HuHu

  • Основатель
  • Заслуженный
  • *****
  • Сообщений: 6029
  • Карма: 157
  • Пол: Мужской
    • Папа ХуХу
Re: Иероглифы.Преимущества и недостатки.
« Ответ #42 : 09 Февраля 2003 05:18:31 »
Цитировать
хочу добавить, что это к тому же помогает понять примерный смысл незнакомого слова, состоящего из знакомых иероглифов

:)  вот уж палка о двух концах.... частенько, когда пытаешься догадаться о смысле слова из двух знакомых иероглифов, приходишь к совершенно неправильным выводам.. если есть контекст, то еще можно понять, что бред какой-то получается.. а вот если контекста нет, то частенько попадает человек в лужу....

Оффлайн E.Q.

  • Заслуженный
  • *****
  • Сообщений: 885
  • Карма: 5
  • Пол: Женский
Re: Иероглифы.Преимущества и недостатки.
« Ответ #43 : 09 Февраля 2003 09:17:30 »

:)  вот уж палка о двух концах.... частенько, когда пытаешься догадаться о смысле слова из двух знакомых иероглифов, приходишь к совершенно неправильным выводам.. если есть контекст, то еще можно понять, что бред какой-то получается.. а вот если контекста нет, то частенько попадает человек в лужу....


Точно. Есть такое.  Я ведь не имела в виду это как абсолютную истину, просто иногда бывает действительно срабатывает. Что же мешает? Быть может, чуждая и неведомая нам китайская логика (которой нет)?  :D)
И тем не менее, иероглифы учить все равно надо. :)
Ничего не делай. И ничего не будет не сделано..

zilong

  • Гость
Re: Иероглифы.Преимущества и недостатки.
« Ответ #44 : 09 Февраля 2003 09:24:17 »
Цитировать
вот уж палка о двух концах.... частенько, когда пытаешься догадаться о смысле слова из двух знакомых иероглифов, приходишь к совершенно неправильным выводам.. если есть контекст, то еще можно понять, что бред какой-то получается.. а вот если контекста нет, то частенько попадает человек в лужу....

Да, иногда лучше не догадываться - а просто сначала посмотреть в словаре :) А потом уж осмыслить-обдумать всё... А догадываться, конечно, - не всегда в яблочко

zilong

  • Гость
Re: Иероглифы.Преимущества и недостатки.
« Ответ #45 : 09 Февраля 2003 09:26:07 »
Цитировать
И тем не менее, иероглифы учить все равно надо

Этт-точноооо :D

Оффлайн Papa HuHu

  • Основатель
  • Заслуженный
  • *****
  • Сообщений: 6029
  • Карма: 157
  • Пол: Мужской
    • Папа ХуХу
Re: Профессионалу от ламера
« Ответ #46 : 16 Ноября 2002 06:37:18 »
эээ. вы кого имеете в виду? Цин Ши Хуан Ди?
бррр странный вопрос всяко....
1) не реально. не нужно. бессмысленно. вредно
2) как перешли к стандартизации иероглифов или чего? просто - административным путем.... повелели.

вы лучше подумайте - почему русский столь беден на диалекты....?

Оффлайн Dara

  • Заслуженный
  • *****
  • Сообщений: 1663
  • Карма: 32
  • Пол: Женский
  • Skype: Daraopa
Re: Профессионалу от ламера
« Ответ #47 : 16 Ноября 2002 16:12:37 »
Пап Хух.)
Скоко можно уже притеснять русский народ? И убогий и язык бедный на диалекты и т.д.))
Я воспринимаю "не бедный на диалекты", а "слав-те-гспди как нам повезло что их мало".

margo

  • Гость
Re: Профессионалу от ламера
« Ответ #48 : 16 Ноября 2002 16:58:23 »
Енто всё к чему. Вчера прочитала - наши закон приняли, объявили кириллицу единственным алфавитом на нашей территории...
1) Фантазирую  :) Иероглифы тем замечательны, что каждый - это самостоятельное слово, независящее от произношения. Зачем китайцам иероглифы, когда алфавит есть?
2) Я спрашивала о несоответствии диалектов в строении предложений. Или они были одинаковые, только произношение разное, или это тоже указом сгладили?

Оффлайн Papa HuHu

  • Основатель
  • Заслуженный
  • *****
  • Сообщений: 6029
  • Карма: 157
  • Пол: Мужской
    • Папа ХуХу
Re: Профессионалу от ламера
« Ответ #49 : 16 Ноября 2002 18:06:08 »
ааа вот что вы хотели узнать.. так они, диалекты, разные не только строем предложения, но и грамматикой... безусловно в той или иной мере...

скажем так.. пекинец не поймет текст на гуандонгхуа (кантонский).... там не только другая грамм структура, но еще и много ключевых иероглифов, которых ПРОСТО НЕТ в путунхуа....

хотя такие радикальные отличия больше редкость - много диалектов не имеею своей письменности и грамматически имееют схожий состав что и "гуаньхуа - северные диалекты" и записываются стандартными иероглифами.
хотя, если записывать именно диалект, то зачастую приходится использовать иероглифы чтобы записывать именно звучание слова (без связи со смыслом иероглифа).. классический пример, шанхайское 阿拉 - что значит Я....