---

Hi !

mir war irgendwie immer so als wenn es eine möglichkeit gibt (vielleicht vl??) ini-dateien zu lesen/schreiben - außer der doslib !

wer kann mir helfen !

vielen dank im voraus.

Gruß Jan :-)

------------------
jan :-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Jan,

läuft auch ganz ohne vl..., mit den Funktionen (READ-LINE) und (WRITE-LINE).

In beiden Fällen musst du zunächst eine Datei öffnen:
SETQ inifile (OPEN "C:/MyFile.ini" "r"))

Als Pfad kann eine INI, eine TXT oder sonst was angegeben werden. Das "r" als Paramter gibt an, dass dieses File zum Lesen geöffnet wird. Zum Schreiben wird ein "w" benötigt. Wichtig ist, die (OPEN)-Funktion einer Variable zuzuweisen. Die Variable enthält dann das Dateikennzeichen, das du jedes Mal angeben musst, wenn du aus dem File lesen oder in das File schreiben möchtest.

Mit dem Befehl
(SETQ line (READ-LINE inifile))
wird die nächste Zeile aus dem File gelesen und der Inhalt in der Variable line gespeichert. Beim nächsten Aufruf wieder die nächste. Wenn die Variable line keinen Wert mehr enthält, bist du am Ende des Files angelangt.

Am Ende musst du die Datei wieder mit
(CLOSE inifile)
schließen.

Das Schreiben solcher Dateien funktioniert ganz änhnlich, nur statt dem (READ-LINE) eben ein (WRITE-LINE). Die Ausgabefunktionen (PRINC) etc. sind in diesem Zusammenhang recht hilfreich. Sieh' dir dazu auch mal die Hilfe an oder frag' einfach hier nochmal nach.

Abschließend noch ein Beispiel: Grundgerüst für das Lesen einer Datei:
(DEFUN read_file (/ inifile attribs)
  (SETQ inifile "C:\MyFile.ini")
  (SETQ inifile (OPEN inifile "r"))
  (SETQ attribs (READ-LINE inifile))

  (WHILE attribs

    ;; Hier machst du irgendetwas mit dem Wert in der Variable "attribs".

    (SETQ attribs (READ-LINE inifile))
    ) ; End While

  (CLOSE inifile)

); End Defun

Und noch ein Beispiel zum Schreiben in eine Datei. Mit diesen Befehlen wird die Datei E:\test.ini erstellt und beschrieben.
(SETQ file "E:/test.ini")
(SETQ file (OPEN file "w"))
(WRITE-LINE "[Sektion]" file)
(WRITE-LINE "Schlüssel=Wert" file)
(CLOSE file)

In diesem Fall wird die Datei neu erstellt oder überschrieben, wenn schon vorhanden. Um an eine bestehende Datei etwas anzuhängen, muss der (OPEN)-Befehl wie folgt aussehen:
(SETQ file (OPEN file "a"))

Hoffe geholfen zu haben.

Ciao,
WolfgangE

------------------
An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!!

[Diese Nachricht wurde von WolfgangE am 19. Nov. 2003 editiert.]

[Diese Nachricht wurde von WolfgangE am 19. Nov. 2003 editiert.]

[Diese Nachricht wurde von WolfgangE am 19. Nov. 2003 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

AcadTools.zip

ich hab mir da eine activeX Dll geschrieben, die ich dir zur verfügung stellen kann
die dll einfach ins winnt\system32 kopieren und registrieren

dann hast du folgende neuen "befehle"

(setq actools (vlax-get-or-create-object "acadtools.tools"))
(vlax-invoke actools "StartApplication" "notepad")
(vlax-invoke actools "ReadIni" Section Entry Default IniFile)
(vlax-invoke actools "WriteIni" Section Entry Value IniFile)
(vlax-release-object actools)

mit vlax-get-or-create-object wird das objekt instanziert
(vlax-invoke actools "StartApplication" "notepad")
ist die möglichkeit ein win-programm zu starten, wobei lisp wartet, bis das programm beendet ist (startapp "notepad") wartet hingegegn nicht

und jetzt das, was du brauchst
(vlax-invoke actools "ReadIni" Section Entry Default IniFile)
(vlax-invoke actools "WriteIni" Section Entry Value IniFile)

ist glaube ich selbst eklärend

und nie vergessen

(vlax-release-object actools)
um das activex-objekt zu zerstören 

------------------
***********************************************
AutoCad 2000i, 2002, 2004 deutsch und englisch
Windows 2000, NT, XP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

(ungetestet!)

ms_lib von CADwiesel.de / Sonstiges

deine Anfrage klingt zumindest so wie die Beschreibung des DL !

------------------
- Sebastian Mattis - Weitere InfoŽs unter F1 !

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hey, herzlichen Glückwunsch, Sebastian - du kennst dich echt gut aus bei mir :-)

------------------
Gruß
CADwiesel
Besucht uns im CHAT

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

mir war irgendwie immer so als wenn es eine möglichkeit gibt (vielleicht vl??) ini-dateien zu lesen/schreiben - außer der doslib !

---

Ich würde statt mit INI-Dateien gleich mit der Registry arbeiten. Die beiden folgenden Funktionen arbeiten exakt so wie ihre Gegenstücke in VBA und erlauben damit auch leicht, dieselben Einstellungen in VBA und VL zu nutzen.

(defun vba-getsetting (application key field default)
  (cond
    ((vl-registry-read
      (strcat
        "HKEY_CURRENT_USER\\Software\\VB and VBA Program Settings\\"
        application
        "\\"
        key
      )
      field
    )
    )
    (t default)
  )
)

(defun vba-savesetting (application key field value)
  (vl-registry-write
    (strcat "HKEY_CURRENT_USER\\Software\\VB and VBA Program Settings\\"
            application
            "\\"
            key
    )
    field
    value
  )
)

------------------
Dietmar Rudolph
CR/LF GmbH, CADLock, Inc.
Autor "DXF intern", "AutoCAD Objekte", "Das AutoCAD Buch", u.a.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich kann mir eben gerade nicht vorstellen, dass sich die Einträge einer inidatei in der windoofsregistry wiederfinden lassen.
Kann also den zusammenhang zu der Eingangsfrage nicht so nachvollziehen - hmm schmaler Horizont, vielleicht :-(

------------------
Gruß
CADwiesel
Besucht uns im CHAT

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von CADwiesel:
Ich kann mir eben gerade nicht vorstellen, dass sich die Einträge einer inidatei in der windoofsregistry wiederfinden lassen.
Kann also den zusammenhang zu der Eingangsfrage nicht so nachvollziehen - hmm schmaler Horizont, vielleicht :-(

---

OK, habe vielleicht drei Stufen übersprungen :-) Mein Gedankengang war folgender: INI-Dateien werden zu 99% dazu verwendet, Programmkonfigurationen über eine Session hinaus zu speichern. Ich nahm an, genau das wollte Jan machen. Und meine Mail sollte ihm sagen: 1. INI-Dateien brauchst du nicht mehr, 2: mit der Registry geht's viel einfacher. Soweit jetzt klar? :-)

------------------
Dietmar Rudolph
CR/LF GmbH, CADLock, Inc.
Autor "DXF intern", "AutoCAD Objekte", "Das AutoCAD Buch", u.a.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP