Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 8501

Re: how to get all data in a section from profile file?

$
0
0

This is what you need:

 

integer     li_fhandle, li_rcode = 1, li_sfound = 0, li_idx = 0, li_eqpos, i

string ls_filename = 'C:\app.ini'

string ls_line, as_key[], as_val[]

string ls_section = '[General]'

 

 

 

 

 

// OPEN INI FILE

li_fhandle = FileOpen(ls_filename, LineMode!)

 

IF IsNull(li_fhandle) OR li_fhandle < 1 THEN

  // DO NOTHING

ELSE

  DO WHILE li_rcode > 0

  li_rcode = FileRead(li_fhandle, ls_line)

  IF li_rcode > 0 THEN

  IF POS(ls_section, ls_line) > 0 THEN

  li_sfound = 1

  CONTINUE

  END IF

  IF li_sfound = 0 THEN CONTINUE

  IF POS(ls_line, '[') > 0 AND POS(ls_line, ']') > 0 THEN EXIT

  li_eqpos = POS(ls_line, '=')

  li_idx++

  as_key[li_idx] = MID(ls_line, 1, li_eqpos - 1)

  as_val[li_idx] = MID(ls_line, li_eqpos + 1)

  END IF

  LOOP

END IF

 

 

FOR i = 1 TO li_idx

  messagebox('Key - Value',as_key[i] + ' = ' + as_val[i])

NEXT

 

// CLOSE INI FILE

IF li_fhandle > 0 THEN

   FileClose(li_fhandle)

END IF

 

Adapt it to your needs... you probably should make it a function.


Viewing all articles
Browse latest Browse all 8501

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>