Суббота, 15.12.2018, 06:58
Приветствую Вас Гость | RSS
Меню сайта

Категории каталога
Полезные утилиты [9]
Небольшие программы, облегчающие ведение кадрового делопроизводства
Приколы кадровой службы [1]
Прикольные моменты в работе кадров

Главная » Файлы » Кадровое делопроизводство » Полезные утилиты

Конвертер Windows-1251 > UTF-8 > Windows-1251
[ Скачать с сервера (348.0 Kb) ] 24.03.2009, 17:16
Лень - штука серьезная ;)
Решил поискать готовые решения в интернете. Минут 20 угрохал на поиски, так ничего толкового и не нашел. Потом вдруг вспомнил - я ж программист :)

Суть: вставляете исходный текст в верхнее окно, нажимаете кнопку, соответствующую необходимому действию, и в нижнем окне получаете конвертированный текст, который затем можно копировать и вставлять куда надо (например, в блокнот - он прекрасно справляется с UTF-8).

Написал за 5 минут для создания хтмл-страничек в UTF-8 кодировке.

Пользуйтесь на здоровье :)



Изменения: версия 1.1


В новой версии имеется возможность работать напрямую с файлами без использовании функций "копипаста" (копировать/вставить).
Для этого можно поместить ярлык на программу в папку "C:\Documents and Settings\User\SendTo". Затем на файле, который необходимо конвертировать, вызываете контекстное меню, выбираете "Отправить >" и указываете на ярлык к программе. При этом запускается Ansi2Utf8.exe, в верхнее окно которого загружается содержимое выбранного файла. Нажатием соответствующих кнопок производите конвертирование в необходимом направлении. Рядом с кнопками конвертирования появляется кнопка "Сохранить", при нажатии на которую исходный файл перезаписывается информацией из нижнего окна.

Удобно? Жду отзывов и предложений.



Ansi2Utf8 ImageProg View




Исходный код (delphi 7):

procedure TForm1.B1Click(Sender: TObject);
begin
 sMemo2.Text:=AnsiToUtf8(sMemo1.Text)
end;

procedure
TForm1.B2Click(Sender: TObject);
begin
 sMemo2.Text:=Utf8ToAnsi(sMemo1.Text)
end;

procedure TForm1.sMemoEnter(Sender: TObject);
begin
 (sender as TsMemo).SelectAll
end;
Категория: Полезные утилиты | Добавил: AlexChmil
Просмотров: 26854 | Загрузок: 7215 | Рейтинг: 4.6/24 |
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа

Поиск

Друзья сайта

Королевство Delphi

Инвестиционная группа РОСТ




Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Copyright AlexChmil Software © 2018