Спешка утихла - сделал тестовую прогу, как положено.
Выложил в _Unsorted FromUtf8.7z. Результат в файле
Rez001.txt
2 первые строки:
00000001 0.00000000 [1828] Utf8 вызываем процедуру конвертирования Utf8-1251
00000002 0.00004710 [1828] Utf8 закончили процедуру конвертирования Utf8-1251
Дед ...
Найдено 29 результатов
- 02 Март 2023, 13:16
- Форум: Готовые программы, шаблоны, библиотеки...
- Тема: FromUtf8 ещё раз
- Ответы: 25
- Просмотры: 17095
- 20 Февраль 2023, 17:18
- Форум: Готовые программы, шаблоны, библиотеки...
- Тема: FromUtf8 ещё раз
- Ответы: 25
- Просмотры: 17095
FromUtf8 ещё раз
Что -то зацепило меня - что-то видел при поиске ранее.
Нашёл - может кому поможет
Нашёл - может кому поможет
- 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 ...
Нашёл, установил, посмотрел...
! ------ 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 ...
- 13 Февраль 2023, 22:48
- Форум: Готовые программы, шаблоны, библиотеки...
- Тема: FromUtf8 ещё раз
- Ответы: 25
- Просмотры: 17095
FromUtf8 ещё раз
Процедура не возвращает значения как обычно.
Отказался от процедуры - сделал "рутинку" подпрограмму
Ведь даже доли процента при больших файлах - это время...
Отсюда варианты - ищу самый быстрый вариант.
Выход из ранга должен пропасть для этого варианта
outStr &= NEW STRING(SIZE(inStr ...
Отказался от процедуры - сделал "рутинку" подпрограмму
Ведь даже доли процента при больших файлах - это время...
Отсюда варианты - ищу самый быстрый вариант.
Выход из ранга должен пропасть для этого варианта
outStr &= NEW STRING(SIZE(inStr ...
- 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 ...
MEMBER('gar.clw') ! Это MEMBER module
FromUtf8 PROCEDURE (STRING StrIn, STRING StrOut) ! Объявление Процедуры/Функции (не прототипа)
!====================================================
! Перед точкой Врезки: %DataSection) DESC(Data Section) ARG()
outStr &STRING, AUTO ...
- 13 Февраль 2023, 22:36
- Форум: Готовые программы, шаблоны, библиотеки...
- Тема: FromUtf8 ещё раз
- Ответы: 25
- Просмотры: 17095
FromUtf8 ещё раз
Ранее писал - это варианты...
Здесь также проверка на пустую строку
Т.е. проверки ДО вызова процедурыИгорь Столяров писал(а): 06 Февраль 2023, 20:20 If (Size(sStr) = 0) Or (sStr = '<0>') then Return ''
- 08 Февраль 2023, 13:13
- Форум: Готовые программы, шаблоны, библиотеки...
- Тема: FromUtf8 ещё раз
- Ответы: 25
- Просмотры: 17095
FromUtf8 ещё раз
Работаю с Clarion 6 -11
- 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 ...
DATE
outStr &STRING, AUTO ! ссылка на выходная строка
inStr &STRING, AUTO ! ссылка на входная строка
i SIGNED, AUTO ! индекс-позиция входной строки =0
j SIGNED, AUTO ! индекс-позиция выходной строки =0
! он же счётчик сконвертированных символов
in3b STRING(17 ...
- 08 Февраль 2023, 13:07
- Форум: Готовые программы, шаблоны, библиотеки...
- Тема: FromUtf8 ещё раз
- Ответы: 25
- Просмотры: 17095
FromUtf8 ещё раз
Добавил НЕ русские символы
Уменьшил время возвратом в начало цикла, когда нашли.
Полная перекодировка CP-1251
Уменьшил время возвратом в начало цикла, когда нашли.
Полная перекодировка CP-1251
- 07 Февраль 2023, 20:21
- Форум: Готовые программы, шаблоны, библиотеки...
- Тема: FromUtf8 ещё раз
- Ответы: 25
- Просмотры: 17095
FromUtf8 ещё раз
STRING(17) для строк пар кодов , чтобы компилятор не ругался
На тесте № нашёл.
На тесте № нашёл.
- 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
! он же счётчик ...
FromUtf8 PROCEDURE(STRING StrIn)
DATE
outStr &STRING, AUTO ! ссылка на выходная строка
inStr &STRING, AUTO ! ссылка на входная строка
i SIGNED, AUTO ! индекс-позиция входной строки =0
j SIGNED, AUTO ! индекс-позиция выходной строки =0
! он же счётчик ...
- 07 Февраль 2023, 20:14
- Форум: Готовые программы, шаблоны, библиотеки...
- Тема: FromUtf8 ещё раз
- Ответы: 25
- Просмотры: 17095
FromUtf8 ещё раз
Чуть обновил файл таблицы для знаков.
- 06 Февраль 2023, 20:45
- Форум: Готовые программы, шаблоны, библиотеки...
- Тема: FromUtf8 ещё раз
- Ответы: 25
- Просмотры: 17095
FromUtf8 ещё раз
Делалось только для 1251
Другие кодовые страницы и кодировки даже не рассматривались.
Частный вариант для частного применения.
Другие кодовые страницы и кодировки даже не рассматривались.
Частный вариант для частного применения.
- 06 Февраль 2023, 20:25
- Форум: Готовые программы, шаблоны, библиотеки...
- Тема: FromUtf8 ещё раз
- Ответы: 25
- Просмотры: 17095
FromUtf8 ещё раз
Просто ещё один частный вариант для частных случаев...
- 06 Февраль 2023, 20:22
- Форум: Обсуждение этого Форума (типа, Гостевая книга)
- Тема: Не грузятся 7z и ods файлы
- Ответы: 3
- Просмотры: 9179
Не грузятся 7z и ods файлы
Не грузятся 7z и ods файлы
Вложения-Добавить файл
не видит файлы с таким расширением.
Вложения-Добавить файл
не видит файлы с таким расширением.