Из AprilArmenian в Sylfaen

Asvatur · May 3, 2007, 21:59

Привет, всем!
Вот такая проблема, надо перекодировать текст из старой кодировки в Юникод, т.е. стоял шрифт AprilArmenian, а надо Sylfaen.
Чем это можно безболезненно и быстро сделать?
Пробовал разные программы DOS>Unicod, результат нулевой.
Помогите пожалуйста. Или все в ручную придется делать...

hex · May 3, 2007, 22:37

попробуй KDWin-всик конверетером может получится

[ Xelgen ] · May 3, 2007, 22:56

KDWin'овский конвертер
На armunicode.org есть конвертеры/макросы для МС офиса.
на osi.am был конвертер.

Gor Vardanyan · May 4, 2007, 01:01

opyat' je KDWin-ovski converter, no posle convertacii obezatelno nado proverit' text, inogda vmesto symbolov "գ" stavlyaet "." tochku... etc

Avetis Avagyan · May 4, 2007, 04:26

Also try searching in Google for babelpad

Тень Стервы... · May 4, 2007, 07:18

Тут три разных конвертора, try it...

**Professor** · May 6, 2007, 05:33

Ссылки, конечно же, вещь хорошая, но...

Sub arial_amu()
'
' amu_arial Macro
' Macro recorded 22.04.01 by Tigran Petrosyan
'
st = Selection.Text
rt = ""
sl = Len(st)
'MsgBox (sl)
For i = 1 To sl
ch = Mid(st, i, 1)
num = AscW(ch)
'MsgBox (num)
If (num > 177 And num < 254) Then GoTo uc Else GoTo lc
uc:
delta = Fix(num / 2) - num / 2
'MsgBox (delta)
If (delta = 0) Then num_1 = 1329 + (num - 178) / 2 Else num_1 = 1377 + (num - 179) / 2
GoTo rr
lc: If num = 168 Then num_1 = 1415: GoTo rr Else
If num = 167 Then num_1 = 171: GoTo rr Else
If num = 166 Then num_1 = 187: GoTo rr Else
If num = 170 Then num_1 = 1373: GoTo rr Else
If num = 177 Then num_1 = 1374: GoTo rr Else
If num = 176 Then num_1 = 1371: GoTo rr Else
If num = 175 Then num_1 = 1372: GoTo rr Else num_1 = num
rr: ac = ChrW(num_1)
'MsgBox (num_1)
rt = rt & ac
Next i
Selection.Delete
Selection.Font.Name = "Sylfaen"
Selection.TypeText Text:=rt
End Sub

May 3, 2007, 21:59	#1
Asvatur Младенец Join Date: May 2007 Location: Россия Posts: 1 Rep Power: 0 Reputation: 10	Из AprilArmenian в Sylfaen Привет, всем! Вот такая проблема, надо перекодировать текст из старой кодировки в Юникод, т.е. стоял шрифт AprilArmenian, а надо Sylfaen. Чем это можно безболезненно и быстро сделать? Пробовал разные программы DOS>Unicod, результат нулевой. Помогите пожалуйста. Или все в ручную придется делать...

May 3, 2007, 22:37	#2
hex Кросаффчег! Join Date: Sep 2006 Location: йа здесь Posts: 1,339 Rep Power: 2 Reputation: 14	попробуй KDWin-всик конверетером может получится __________________ Ударим железным кулаком онанизма по блядству и педерастии!

May 3, 2007, 22:56	#3
[ Xelgen ] инсценирующий жизнь Join Date: Jul 2002 Location: Fireplace of Ecotopia Posts: 4,140 Rep Power: 6 Reputation: 37	KDWin'овский конвертер На armunicode.org есть конвертеры/макросы для МС офиса. на osi.am был конвертер. __________________ ...ибо... Rgrdz. [ Кселджэн ]

May 4, 2007, 01:01	#4
Gor Vardanyan горно-предгорной жизни =) Join Date: Feb 2005 Location: Multiverse Posts: 944 Rep Power: 4 Reputation: 10	opyat' je KDWin-ovski converter, no posle convertacii obezatelno nado proverit' text, inogda vmesto symbolov "գ" stavlyaet "." tochku... etc __________________ "Imagination is more important than knowledge. Knowledge is limited. Imagination encircles the world." Albert Einstein

May 6, 2007, 05:33	#7
Professor Скромный ученый Join Date: Jun 2006 Location: В мягком удобном кресле... Posts: 5,884 Blog Entries: 1 Rep Power: 3 Reputation: 406	Ссылки, конечно же, вещь хорошая, но... Sub arial_amu() ' ' amu_arial Macro ' Macro recorded 22.04.01 by Tigran Petrosyan ' st = Selection.Text rt = "" sl = Len(st) 'MsgBox (sl) For i = 1 To sl ch = Mid(st, i, 1) num = AscW(ch) 'MsgBox (num) If (num > 177 And num < 254) Then GoTo uc Else GoTo lc uc: delta = Fix(num / 2) - num / 2 'MsgBox (delta) If (delta = 0) Then num_1 = 1329 + (num - 178) / 2 Else num_1 = 1377 + (num - 179) / 2 GoTo rr lc: If num = 168 Then num_1 = 1415: GoTo rr Else If num = 167 Then num_1 = 171: GoTo rr Else If num = 166 Then num_1 = 187: GoTo rr Else If num = 170 Then num_1 = 1373: GoTo rr Else If num = 177 Then num_1 = 1374: GoTo rr Else If num = 176 Then num_1 = 1371: GoTo rr Else If num = 175 Then num_1 = 1372: GoTo rr Else num_1 = num rr: ac = ChrW(num_1) 'MsgBox (num_1) rt = rt & ac Next i Selection.Delete Selection.Font.Name = "Sylfaen" Selection.TypeText Text:=rt End Sub __________________ И этот милый старичок сказал с улыбкой мне: - Ловлю я воду на крючок и жгу ее в огне...

May 4, 2007, 04:26	#5
Avetis Avagyan Младенец Join Date: Feb 2007 Location: Yerevan, Armenia Posts: 44 Rep Power: 0 Reputation: 20	Also try searching in Google for babelpad

May 4, 2007, 07:18	#6
Тень Стервы... Извращенка Join Date: Apr 2003 Location: Временно в сети Posts: 938 Rep Power: 6 Reputation: 47	Тут три разных конвертора, try it...

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Sylfaen	TheHay	Software	15	Oct 18, 2002 23:42