[Nitrogenium]

Не нашел функцию записи текстовой информации в файл в нужное место. Вообще есть такая возможность?

[Лиспер]

Ее, по-моему, в принципе нет. В текстовый файл информация записывается последовательно.
Так что сначала все прочитать, потом изменить (вставить новую строку в нужное место), потом все сразу записать.

[Nitrogenium]

а программно как сделать - не подскажете?

[Nike]

http://aco.ifmo.ru/~nadinet/html/lectures/lsp_2.html

[Дима_]

Offtop: ИХМО - ни в коем случае не читайте Толстолобу - это пример того как не нужно писать на Lisp - хоть и привычно для большинства "турбо-поскалевских наследников".

[Олег (jr.)]

Сообщение от Nitrogenium а программно как сделать - не подскажете?

Посмотри пример сам переделай по ситуации (из старых запасов без проверки)

Код:

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

 ;;frx.lsp
;; find / replace string in the text (.sat in this example but may any) file

(defun C:FRX (/ fdesc fname fnew fso readstr source sourcepath
	        stringfind stringreplace target targetpath)

  (setq stringfind "44675K32" ;<-- set old string here
	stringfind (strcat "8 " stringfind " #")
	stringreplace "NewLayerName" ;<-- set new layer name here
	stringreplace (strcat "8 " stringreplace " #")
	)
  (setq sourcepath (getfiled "Select SAT file:" (getvar "dwgprefix") "SAT" 16))

  (setq targetpath (strcat
		     (vl-filename-directory sourcepath); <--in the same folder
			   "\\"
			   "TempSatFileName"; <--change the temp file name if you need though no matter
			   (vl-filename-extension sourcepath)))

  (setq fso (vlax-create-object "Scripting.FileSystemObject"))
  (if (zerop (vlax-invoke fso 'FileExists (findfile sourcepath)))
  (progn
  (alert "File does not exist")
  (exit)
  (princ))
  )
(vl-catch-all-apply (function (lambda(); <--to bypass if copy is already exist  
(vl-file-copy sourcepath
  (strcat "C:\\Temp\\" ;<-- set path to folder that contains your copy files
	  "CopyOfSourceFile"
	  (vl-filename-extension sourcepath)))))); <-- copy source file, who knows...
  
(setq source (vlax-invoke fso 'OpenTextFile sourcepath 1 :vlax-false))
(setq target (vlax-invoke fso 'CreateTextFile targetpath :vlax-true))

(while
  (equal (vlax-get-property source 'AtEndOfStream) :vlax-false)
  (setq readstr (vlax-invoke source 'ReadLine))
  ;;; search for string to replace 
  (if
  (not (vl-string-search stringfind readstr));<-- if not found
  (vlax-invoke target 'WriteLine readstr);<-- write the same one
  (vlax-invoke target 'WriteLine (vl-string-subst stringreplace stringfind readstr)) ;<-- else write edited line 
  )
)
  
(vlax-invoke source 'Close)
(vlax-invoke target 'Close)
  
(setq fdesc (vlax-invoke fso 'GetFile sourcepath))
(setq fname (vlax-get fdesc 'Name)); <-- replace temp file name with source file name

(vlax-invoke fdesc 'Delete); <-- delete source file
(princ "\nSource file was deleted"); <-- dummy input for micro pause
(setq fnew (vlax-invoke fso 'GetFile targetpath))
(vlax-put fnew 'Name fname); <-- short name only!

(vlax-release-object fdesc)  
(vlax-release-object fnew)  
(vlax-release-object source)
(vlax-release-object target)       
(vlax-release-object fso)

(gc)
(gc)
(gc)

(alert "Done")
(princ)
)
(prompt "\n====================================\n")
(prompt "\n***     Type FRX to execute ...  ***\n")
(prompt "\n====================================\n")
(prin1)

(vl-load-com)

[gomer]

Offtop: Вероятно, Дима_ намекает на рекурсию, правда с ней он уже "лопухнулся" насчет полилиний. Но все же, "НИ В КОЕМ СЛУЧАЕ НЕ ЧИТАЙТЕ ТОЛСТОЛОБУ"!!!
чтение файла необходимо хотя бы потому, что можно задать место для записи, не существующее в файле

[Дима_]

Сообщение от gomer правда с ней он уже "лопухнулся" насчет полилиний

Напомните??
з.ы. с чего Вы взяли, что я намекаю на рекурсию, я пока не спрашиваю.

[gomer]

Сообщение от Дима_ Напомните??

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

[Xara]

Сообщение от Дима_ ни в коем случае не читайте Толстолобу

Сообщение от gomer "НИ В КОЕМ СЛУЧАЕ НЕ ЧИТАЙТЕ ТОЛСТОЛОБУ"!!!

Как это глупо - оскорблять автора сайта, на котором представлен код из разных источников, в т.ч. Полещука...

[Олег (jr.)]

Сообщение от Xara Как это глупо - оскорблять автора сайта, на котором представлен код из разных источников, в т.ч. Полещука...

Дай пять
Я тоже начинал с этого сайта и ничего вроде жив пока

[Дима_]

Ни разу я ее не оскорбил - изучать автолисп я по ее трудам я не рекомендую (если только Вам не зачет по теме сдать и навсегда про него забыть).

[Xara]

Сообщение от Олег (jr.) Дай пять

*highfive*

Сообщение от Дима_ Ни разу я ее не оскорбил

Поскольку знаю ее лично, и знаю ее как прекрасного человека, не могу пройти мимо коверкания ее фамилии, это и задело.
Код плохой, согласен. С ошибками кое-где, кое-где с недочетами, но это ведь не повод, правда?
А сайт - кафедральный. Он не предназначен для такой аудитории, как, скажем, Крыс или VVA. И как раз для того, чтобы студенты "сдали и забыли"))

ЗЫ: прошу прощения за оффтоп

[gomer]

->Олег (jr.), Xara: То что выложено на сайте толстобы пригодно только для получения оценки по соответствующей дисциплине, правда во многих вузах, еще эти знания можно применять в маленьких архаично-провинциальных конторках, где никто никуда не спешит... ВСЕ! И вы, начитавшиеся того, что там написано, потом приходите сюда и кричите: "как мне сделать то, а как это, а почему не получается". Мы, "гуры" вставляем вам мозги, если не лень, и объяснять приходится с нуля, и не раз... Ну сколько уже тут написано по этому поводу...
зы Ко мне примитивное понимание языка пришло только через пять лет его изучения (пусть не плотного, но все же)
зызы Поэтому гурой я себя не считаю
зызызы Важно начать понимать, что у нас есть, что мы хотим сделать, для чего это нужно и как это воплотить!
Лиспер же все понятно объяснил. Я могу дополнить только, что текстовый файл - это список строчек, каждая строка которого - список символов. Имеем
(defun ReadToFile (row col str fn)
(if (findfile fn)
;; и так далее, делов на 10 минут
)
)
Да, это долго: сначала прочел, поменял, потом записал... Ну так не используйте устаревшие технологии, а применяете другие методы, да хотя бы xml-parsing, читайте данные из excel, из бд... кто мешает? Вот потому, что студенту эти знания снесут мозг и он завалит сессию, может быть, на известном сайте и подано все так, примитивненько