Найдено 29 результатов

Bukreev
02 Март 2023, 13:16
Форум: Готовые программы, шаблоны, библиотеки...
Тема: FromUtf8 ещё раз
Ответы: 25
Просмотры: 17095

FromUtf8 ещё раз

Спешка утихла - сделал тестовую прогу, как положено.
Выложил в _Unsorted FromUtf8.7z. Результат в файле
Rez001.txt
2 первые строки:
00000001 0.00000000 [1828] Utf8 вызываем процедуру конвертирования Utf8-1251
00000002 0.00004710 [1828] Utf8 закончили процедуру конвертирования Utf8-1251

Дед ...
Bukreev
20 Февраль 2023, 17:18
Форум: Готовые программы, шаблоны, библиотеки...
Тема: FromUtf8 ещё раз
Ответы: 25
Просмотры: 17095

FromUtf8 ещё раз

Что -то зацепило меня - что-то видел при поиске ранее.
Нашёл - может кому поможет
Utf8ANSI.7z
(380.11 КБ) 312 скачиваний
Bukreev
20 Февраль 2023, 17:01
Форум: Готовые программы, шаблоны, библиотеки...
Тема: FromUtf8 ещё раз
Ответы: 25
Просмотры: 17095

FromUtf8 ещё раз

Спасибо за подсказку xFiles
Нашёл, установил, посмотрел...
! ------ Start utf-8 Decoding --------
utf8UseUString = false
if self._LoadEncodingIsUTF8 and self.DontUTF8Decode = 0
if self.NoUTF8Before = 1
! Check for a double byte UTF-8 character
if OkayToCopy ! Normal Copy
loop utf8X ...
Bukreev
13 Февраль 2023, 22:48
Форум: Готовые программы, шаблоны, библиотеки...
Тема: FromUtf8 ещё раз
Ответы: 25
Просмотры: 17095

FromUtf8 ещё раз

Процедура не возвращает значения как обычно.
Отказался от процедуры - сделал "рутинку" подпрограмму
Ведь даже доли процента при больших файлах - это время...
Отсюда варианты - ищу самый быстрый вариант.

Выход из ранга должен пропасть для этого варианта

outStr &= NEW STRING(SIZE(inStr ...
Bukreev
13 Февраль 2023, 22:38
Форум: Готовые программы, шаблоны, библиотеки...
Тема: FromUtf8 ещё раз
Ответы: 25
Просмотры: 17095

FromUtf8 ещё раз

МОЙ вариант процедуры
MEMBER('gar.clw') ! Это MEMBER module

FromUtf8 PROCEDURE (STRING StrIn, STRING StrOut) ! Объявление Процедуры/Функции (не прототипа)

!====================================================
! Перед точкой Врезки: %DataSection) DESC(Data Section) ARG()
outStr &STRING, AUTO ...
Bukreev
13 Февраль 2023, 22:36
Форум: Готовые программы, шаблоны, библиотеки...
Тема: FromUtf8 ещё раз
Ответы: 25
Просмотры: 17095

FromUtf8 ещё раз

Ранее писал - это варианты...
Bukreev писал(а): 06 Февраль 2023, 20:13 Нужны некоторые проверки на границы
Здесь также проверка на пустую строку
Игорь Столяров писал(а): 06 Февраль 2023, 20:20 If (Size(sStr) = 0) Or (sStr = '<0>') then Return ''
Т.е. проверки ДО вызова процедуры
Bukreev
08 Февраль 2023, 13:13
Форум: Готовые программы, шаблоны, библиотеки...
Тема: FromUtf8 ещё раз
Ответы: 25
Просмотры: 17095

FromUtf8 ещё раз

Работаю с Clarion 6 -11
Bukreev
08 Февраль 2023, 13:10
Форум: Готовые программы, шаблоны, библиотеки...
Тема: FromUtf8 ещё раз
Ответы: 25
Просмотры: 17095

FromUtf8 ещё раз

FromUtf8 PROCEDURE(STRING StrIn)

DATE
outStr &STRING, AUTO ! ссылка на выходная строка
inStr &STRING, AUTO ! ссылка на входная строка
i SIGNED, AUTO ! индекс-позиция входной строки =0
j SIGNED, AUTO ! индекс-позиция выходной строки =0
! он же счётчик сконвертированных символов
in3b STRING(17 ...
Bukreev
08 Февраль 2023, 13:07
Форум: Готовые программы, шаблоны, библиотеки...
Тема: FromUtf8 ещё раз
Ответы: 25
Просмотры: 17095

FromUtf8 ещё раз

Добавил НЕ русские символы
Уменьшил время возвратом в начало цикла, когда нашли.
Полная перекодировка CP-1251
Bukreev
07 Февраль 2023, 20:21
Форум: Готовые программы, шаблоны, библиотеки...
Тема: FromUtf8 ещё раз
Ответы: 25
Просмотры: 17095

FromUtf8 ещё раз

STRING(17) для строк пар кодов , чтобы компилятор не ругался
На тесте № нашёл.
Bukreev
07 Февраль 2023, 20:15
Форум: Готовые программы, шаблоны, библиотеки...
Тема: FromUtf8 ещё раз
Ответы: 25
Просмотры: 17095

FromUtf8 ещё раз

Добавил проверку 3- байтовых
FromUtf8 PROCEDURE(STRING StrIn)

DATE
outStr &STRING, AUTO ! ссылка на выходная строка
inStr &STRING, AUTO ! ссылка на входная строка
i SIGNED, AUTO ! индекс-позиция входной строки =0
j SIGNED, AUTO ! индекс-позиция выходной строки =0
! он же счётчик ...
Bukreev
07 Февраль 2023, 20:14
Форум: Готовые программы, шаблоны, библиотеки...
Тема: FromUtf8 ещё раз
Ответы: 25
Просмотры: 17095

FromUtf8 ещё раз

1251.ods
(43.57 КБ) 252 скачивания
Чуть обновил файл таблицы для знаков.
Bukreev
06 Февраль 2023, 20:45
Форум: Готовые программы, шаблоны, библиотеки...
Тема: FromUtf8 ещё раз
Ответы: 25
Просмотры: 17095

FromUtf8 ещё раз

Делалось только для 1251
Другие кодовые страницы и кодировки даже не рассматривались.
Частный вариант для частного применения.
Bukreev
06 Февраль 2023, 20:25
Форум: Готовые программы, шаблоны, библиотеки...
Тема: FromUtf8 ещё раз
Ответы: 25
Просмотры: 17095

FromUtf8 ещё раз

Просто ещё один частный вариант для частных случаев...
Bukreev
06 Февраль 2023, 20:22
Форум: Обсуждение этого Форума (типа, Гостевая книга)
Тема: Не грузятся 7z и ods файлы
Ответы: 3
Просмотры: 9179

Не грузятся 7z и ods файлы

Не грузятся 7z и ods файлы

Вложения-Добавить файл
не видит файлы с таким расширением.