How to get all data in a section from profile file?

Question

Suppose I have profile ini have a section like:
[Mysection]
k1 =v1
k2=v2
the key-value pair could be dynamically in this section. then I want to get all data in Mysection.  How can I get it in a loop for all in powerscript?

Answer 1

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.