Комментарии на: Как лиспом читать разные кодировки?

От: 1958

1958 — Fri, 10 Feb 2023 17:05:11 +0000

А это мысль! Спасибо!

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Fri, 10 Feb 2023 15:57:10 +0000

Ну можно взять из моей библиотеки функцию _kpblc-conv-string-to-list и разделить по "\r\n", к примеру. Или написать свой аналог.

От: 1958

1958 — Fri, 10 Feb 2023 15:56:56 +0000

А заморачиваться с записью каждой строчки в отдельный файл что-то не фартит. Поэтому, пока такой вариант:
Перед использованием файла с нужной информацией пересохраняю блокнотом его копию в кодировке ANSI и работаю с ней.
Но ваш вариант надо обдумать.

От: 1958

1958 — Fri, 10 Feb 2023 15:52:52 +0000

Попробовал. Но получается, что функция gc:ReadStream выдает содержимое файла одной строкой и выдернуть определенную строчку не получится.

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Fri, 10 Feb 2023 11:53:26 +0000

Не, ну а кто мешает прочитать весь файл, взять оттуда первую строку и на этом закончить? Можно вообще в отдельную локальную функцию засунуть такую обработку, чтоб память поэкономить. Что-то типа

1
2
3
4
5

(defun fun_get-nth-string(filename coding string-number / content)
(if (setq content (gc:ReadStream filename coding))
(nth string-number content)
)
)

Пишу на коленке, но общая идея, думаю, понятна.

От: 1958

1958 — Fri, 10 Feb 2023 09:34:08 +0000

В общем плюнул я на этот разврат. Перед использованием файла с нужной информацией пересохраняю ,блокнотом его копию в кодировке ANSI и работаю с ней.

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Fri, 10 Feb 2023 05:35:42 +0000

Ну так read-line же штатная функция лиспа, верно? Вот она и читает только ANSI. Не, если охота - можно попытаться, конечно, на NET нарисовать "читалку", но у меня на это не хватает знаний.

От: 1958

1958 — Fri, 10 Feb 2023 04:18:26 +0000

Меня постигло разочарование. Вроде нащупал как решить мою проблему: 1. Прочитать информацию из файла. 2. Записать полученную строку в файл с нужной кодировкой. 3. Прочитать информацию из записанного файла. Но! Всё это работает, если исходный файл в кодировке ANSI. Может я неправильно задаю кодировку для записи файла "Windows-1251"? Как-то по-другому его обозвать?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

(defun c:33 (/)
(setq File_name (open (getfiled "Открыть файл" (getvar 'dwgprefix) "*" 16) "r"))
(setq str (read-line File_name))
(close File_name)
(alert str)
(gc:WriteStream str "C:\\Temp\\1_А-Я.kml" "Windows-1251")
(setq File_name (open "C:\\Temp\\1_А-Я.kml" "r"))
(setq str (read-line File_name))
(close File_name)
(alert str)
)

;; gc:WriteStream
;; Ecrit un texte dans un fichier suivant l'encodage de caractиre spйcifiй
;; Retourne le chemin du fichier ou nil si l'opйration a йchouй.
;;
;; Arguments
;; text : le texte а йcrire
;; filename : le chemin du ficher
;; charset : le systиme d'encodage (exemples : "iso-8859-1" (ascii/ANSI), "utf-8", "unicode")
(defun gc:WriteStream (text filename charset / stream result)
(vl-load-com)
(if (setq stream (vlax-create-object "ADODB.Stream"))
(progn (setq result (vl-catch-all-apply (function (lambda ()
(vlax-put stream 'Charset charset)
(vlax-invoke stream 'Open)
(vlax-invoke stream 'WriteText text 0)
(vlax-invoke stream 'SaveToFile filename 2)
(vlax-invoke stream 'Close)
)
)
)
)
(vlax-release-object stream)
(if (not (vl-catch-all-error-p result))
filename
)
)
)
)

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Thu, 09 Feb 2023 08:25:48 +0000

Как обычно Регистрация, гуглопереводчик и вперед ))

От: 1958

1958 — Thu, 09 Feb 2023 07:46:22 +0000

Спасибо за ответ. Ещё бы понять как на том форуме вопрос задать.