[vadik_k_l]

Как заменить в Lisp запятые на точки в ini-файле???
и может кто знает команду Delphi для очистки ини-файла ?

[SetQ]

Читаешь построчно ini, заменяешь в строке зпт на тчк vl-string-subst , пишешь в новый файл.

[vadik_k_l]

это понятно я по коду не знаю как это написать?
Если можно код полностью пожалуйста!

[Кулик Алексей aka kpblc]

Код полностью - а что он должен делать? Преобразование строковых переменных можно и в лиспе делать, решение см.#2

Код:

[Выделить все]

(defun test (/ file handle *error* str lst)

  (defun *error* (msg)
    (vl-catch-all-apply
      (function
        (lambda ()
          (close handle)
          ) ;_ end of lambda
        ) ;_ end of function
      ) ;_ end of vl-catch-all-apply
    (princ msg)
    (princ)
    ) ;_ end of defun

  (if (and (setq file (getfiled "ini-file" "" "ini" 4))
           (findfile file)
           ) ;_ end of and
    (progn
      (setq handle (open file "r"))
      (while (setq str (read-line handle))
        (setq lst (cons str lst))
        ) ;_ end of while
      (close handle)
      (setq lst (mapcar (function
                          (lambda (x)
                            (vl-string-subst "." "," x)
                            ) ;_ end of lambda
                          ) ;_ end of function
                        (reverse lst)
                        ) ;_ end of mapcar
            ) ;_ end of setq
      (setq handle (open file "w"))
      (foreach item lst
        (write-line item handle)
        ) ;_ end of foreach
      (close handle)
      ) ;_ end of progn
    ) ;_ end of if
  (princ)
  ) ;_ end of defun

выполнит преобразование из

Код:

[Выделить все]

[Group1]
key1=16
key2=5,65,32
key3=6,54
[Group2]
key1=a
key2=с
key3=c,d,e

в

Код:

[Выделить все]

[Group1]
key1=16
key2=5.65,32
key3=6.54
[Group2]
key1=a
key2=с
key3=c.d,e

[zamtmn]

>>и может кто знает команду Delphi для очистки ини-файла ?
что значит очистка? стереть? создать пустой файл?

[Елпанов Евгений]

vadik_k_l, А тебе необходимо заменить все запятые на точки?
Если нужно сделать замену вообще всех запятых, то можно и гораздо быстрее...

[vadik_k_l]

спасибо больщое Алексей, то что надо!
а все запятые мне не надо, у меня как раз по одной в срочке!!!
zamtmn а ини файл мне надо стереть, т.е. удалить из него все!

[zamtmn]

>> а ини файл мне надо стереть, т.е. удалить из него все!
вариантов работы с файлами много. один из

Код:

[Выделить все]

filehandle := FileCreate(path);
FileClose(filehandle);

создает и открывает, затем закрывает файл. если файл уже был на диске, перезаписывает его
в результате имеем файл нулевой длины

[vadik_k_l]

а что такое path в этом коде?

[zamtmn]

Смотри справку по FileCreate

можно так

Код:

[Выделить все]

var
    filehandle:integer;
    path:string;
begin
path:='c:\myprog\mysuperpuper.ini';
filehandle := FileCreate(path);
FileClose(filehandle);
.....

а можно так

Код:

[Выделить все]

var
    filehandle:integer;
begin
filehandle := FileCreate('c:\myprog\mysuperpuper.ini');
FileClose(filehandle);
.....

[vadik_k_l]

оно конечно все хорошо, вот только переменная у меня не Integer, a TIniFile.......и
FileCreate для нее не подходит !!!!!