Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Работа с текстом
 
#1
28.01.2009 13:26:42
в Excel 2007 встроен блокнотовский шрифт Terminal, который не читается стандартными шрифтами, например Arial. Как можно преобразовать в нормальный шрифт тексты в Terminalе???
 
 
 
#2
28.01.2009 14:59:01
Попробуйте средствами Word из Microsoft Office. Во вкладке "Сервис" есть процедура "Исправить поврежденный текст...", думаю у Вас все получится.
 
 
 
#3
28.01.2009 16:46:41
{quote}{login=pankratd}{date=28.01.2009 01:26}{thema=Работа с текстом}{post}в Excel 2007 встроен блокнотовский шрифт Terminal, который не читается стандартными шрифтами, например Arial. Как можно преобразовать в нормальный шрифт тексты в Terminalе???{/post}{/quote}  
 
Шрифт Terminal используется только в латинице. В кирилице его нет. По этому на буржуйском все тип-топ, а в родном Ёк!  
Любое ПО на Вашем компьютере использует папку шрифты и соответственно ВСЕ шрифты какие там лежат (если этому ПО нужно), а 2007 здесь непричем.  
Меняйте шрифт в блокноте и все будет ОК.
 
 
 
#4
02.02.2009 09:51:31
А можно ли вообще преобразовть текст из "Терминала" в "Ариал" или "Таймс" не теряя при этом смысла. Прикладываю файл в Excel-2007.
 
 
 
#5
02.02.2009 13:26:28
Надо составлять таблицу перекодировки.
 
 
 
#6
02.02.2009 19:32:10
Вот набросал функцию замены символов Terminal'a в читабельный для Excel 2007.  
Строки подстановки не полные. Символов нижнего регистра не хватает. Добавлять легко.
 
 
 
#7
03.02.2009 06:56:39
Спасибо, конечно за участие, но к сожаленью по вашей ссылке вместо скачки файла открывается страничка с текстом в Terminalе открытом Arialом. (См. ниже фрагмент).    
"╝Cф√ъnHбе╗LH╗!T└$ю╡Нг$@ўЎДВJc█╤Ўч╧?[▐юцiTb/N├║(A▒"
 
 
 
#8
03.02.2009 07:01:34
Извиняйте за беспокойство, разобрался в чем дело. Пересохранил страничку и отклыл Excelем. Все работает, спасибо VikNik.
 
 
 
#9
03.02.2009 10:39:18
pankratd, Оперой пользуетесь?
 
 
 
#10
03.02.2009 16:01:44
Еще одну функцию перекодировки сделал для всех русских букв Terminal'a:  
 
Function terminal_to_arial_2(iRANGE) As String  
Dim iStr As String  
Dim iStr2 As String  
Dim iText As String  
Dim iNom As Integer  
 
   iStr = CStr(iRANGE)  
   For i = 1 To Len(iStr)  
       iText = Mid(iStr, i, 1)  
       iNom = Asc(iText)  
       Select Case iNom  
           Case Is < 128  
               iStr2 = iStr2 & iText  
           Case Is < 176  
               iStr2 = iStr2 & Chr(Asc(iText) + 64)  
           Case Is < 224  
               iStr2 = iStr2 & iText  
           Case Is < 240  
               iStr2 = iStr2 & Chr(Asc(iText) + 16)  
           Case Is = 240  
               iStr2 = iStr2 & Chr(Asc(iText) - 72)  
           Case Is = 241  
               iStr2 = iStr2 & Chr(Asc(iText) - 57)  
           Case Is = 242  
               iStr2 = iStr2 & Chr(Asc(iText) - 72)  
           Case Is = 243  
               iStr2 = iStr2 & Chr(Asc(iText) - 57)  
           Case Is < 256  
               iStr2 = iStr2 & iText  
       End Select  
   Next  
   terminal_to_arial_2 = iStr2  
End Function
 
 
 
#11
04.02.2009 09:35:57
Благодарствую, очень помогли.
 
 
 
Страницы: 1
Читают тему
Наверх