comp.lang.idl-pvwave archive: archive

Home » Public Forums » archive » Re: Config files

Show: Today's Messages :: Show Polls :: Message Navigator
E-mail to friend

Re: Config files [message #47492 is a reply to message #47402]

Thu, 09 February 2006 20:43

Robert Barnett
Messages: 70
Registered: May 2004

Member

Another way is to do it with structures. Just keep your settings in a
structure variable which is defined in a common block. I have included
some example code to read and write structures to/from a text file.
Mind the line feeds inserted by Google.

pro rt_textstructRead, struct, filename
print, "Reading", filename
if (N_ELEMENTS(struct) EQ 0) then return
if (~ file_test(filename, /READ)) then message, "Cannot read
text struct
ure file " + string(filename)
openr,lun1,filename,/GET_LUN
names = tag_names(struct)
pair = ''
while (not EOF(lun1)) do begin
readf, lun1, pair
hashi = strpos(pair,'#')
if (hashi GE 0) then pair = strmid(pair,0,hashi)
eqi = strpos(pair,'=')
if (eqi GE 1) then begin
name = strupcase(strtrim(strmid(pair,0,eqi),2))
for i=0,N_TAGS(struct)-1 DO BEGIN
if (names[i] EQ name) then begin
value = struct.(i)
setvalue =
strtrim(strmid(pair,eqi+1,str
len(pair)-eqi),2)
if (setvalue ne '') then begin
reads, setvalue, value
struct.(i) = value
endif
endif
endfor
endif
endwhile
free_lun, lun1
end

pro rt_textstructWrite, struct, filename
if (N_ELEMENTS(struct) EQ 0) then return
openw,lun1,filename,/GET_LUN
names = tag_names(struct)
for i=0,N_TAGS(struct)-1 DO BEGIN
printf, lun1, names[i], " = ",struct.(i)
endfor
printf, lun1
free_lun, lun1
end

Robbie

Report message to a moderator

[Message index]

		Re: Config files By: mmiller3 on Thu, 09 February 2006 11:05
		Re: Config files By: news.qwest.net on Thu, 09 February 2006 08:53
		Re: Config files By: savoie on Thu, 09 February 2006 07:31
		Re: Config files By: Edd Edmondson on Thu, 09 February 2006 04:18
		Re: Config files By: Ben Panter on Thu, 09 February 2006 04:15
		Re: Config files By: marc schellens[1] on Thu, 09 February 2006 03:08
		Re: Config files By: Robert Barnett on Thu, 09 February 2006 20:43

Previous Topic:	Re: help with text widget...
Next Topic:	Re: IDLWave documentation generation

-=] Back to Top [=-

[ Syndicate this forum (XML) ] [

] [

]

Current Time: Thu Oct 09 23:04:48 PDT 2025

Total time taken to generate the page: 1.27961 seconds