code:

---

FUNCTION ReadProfileSectionData()

  DO
    IF INSTR($line, "[") = 1
      $pos_start = INSTR($line, "[") + 1
      $pos_finish = INSTR($line, "]") - 2
      $section_name = SUBSTR($line, $pos_start, $pos_finish)
      $section_name = LCASE($section_name)
      GLOBAL $section_data[0]
      $i = 0
      DO
        $line = READLINE(1)
        SELECT
          CASE $line = ""

          CASE INSTR($line, ";") = 1

          CASE INSTR($line, "[") = 1

          CASE 1
            REDIM PRESERVE $section_data[$i]
            $section_data[$i] = $line
            $i = $i + 1
         ENDSELECT
      UNTIL INSTR($line, "[") = 1
      $result = EXECUTE("$$$section_name = $section_data")
    ELSE
      $line = READLINE(1)
    ENDIF 
  UNTIL $line = "[END]"

ENDFUNCTION

---

code:

---

config.ini

[TESTLAB]
subnet=192.168.99

[EXCLUDED_HOSTS]
hostname=12345
hostname=12345
hostname=12345
hostname=12345
hostname=12345
hostname=12345
hostname=12345
hostname=12345

[SHARES]
share0_groupname=domain admins
share0_driveletter=S
share0_path=\\eee\installs$
share1_groupname=staff
share1_driveletter=W
share1_path=\\eee\temp
share2_groupname=
share2_driveletter=X
share2_path=\\eee\data
[END]

---

code:

---

$excluded=readprofilestring('config.ini','[excluded_hosts]','')
$excluded=split($excluded,chr(10))

---