| | |  | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Werte aus einer INI einlesen und an Variablen übergeben (584 mal gelesen)
|
-ikarus-
Mitglied
Zeichner
   Beiträge: 142
Registriert: 12.02.2007 ACAD 2015,PSP 2011, Showcase 2015, Mudbox 2015
Indesign CC, Illustrator CC, Photoshop CC, After Effects CC, Premiere Pro CC, Edge Animate CC, Acrobat DC Pro mit PitStop Pro,
Visual Studio 2013
Notepad++
Rechner: HP Z620 Workstation
NVIDIA Quadro K4000
|
erstellt am: 24. Jun. 2014 18:02  <-- editieren / zitieren -->   Unities abgeben:          
Hallo vielleicht kann mir einer helfen, mit dem dargestellten lisp lese ich in der INI werte für Users1-5. Kann man die Werte auch anstelle an die SystemVariablen auch an eigene Variablen übergeben? Ich habe nur den Weg über command (vl-cmdf) gefunden. --ini-- [Sektion] Schlüssel=Wert users1=Test1 users2=Test2 users3=Test3 users4=Test4 users5=Test5 Code:
(DEFUN c:read_file (/ inifile)
(setq inifile "C:/test.ini")
(setq inifile (OPEN inifile "r"))
(setq attribs (READ-LINE inifile)) (WHILE attribs
(if (/= nil (setq position (vl-string-search "=" attribs)))
(progn
(setq befehl (substr attribs 1 Position))
(setq wert (substr attribs (+ 2 position)))
(vl-cmdf befehl wert)
(princ attribs)
)
(princ)
)
(SETQ attribs (READ-LINE inifile))
) ; End While (CLOSE inifile) ) ; End Defun
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
wronzky
Ehrenmitglied V.I.P. h.c.
CAD-Dienstleistungen für Architekten
Beiträge: 2154
Registriert: 02.05.2005 CAD:
AutoCAD 2.6 bis 2014
ADT 2005 - 2014
Arcibem
System:
Windows 2000, XP, NO VISTA
Internet-Startseite:
http://www.archi.de
|
erstellt am: 24. Jun. 2014 18:08 <-- editieren / zitieren --> Unities abgeben: Nur für -ikarus- 
|
-ikarus-
Mitglied
Zeichner
Beiträge: 142
Registriert: 12.02.2007 ACAD 2015,PSP 2011, Showcase 2015, Mudbox 2015
Indesign CC, Illustrator CC, Photoshop CC, After Effects CC, Premiere Pro CC, Edge Animate CC, Acrobat DC Pro mit PitStop Pro,
Visual Studio 2013
Notepad++
Rechner: HP Z620 Workstation
NVIDIA Quadro K4000
|
erstellt am: 24. Jun. 2014 18:31 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
 |
Foren auf CAD.de (alle Foren)
| 
