Language=en
LogActions=1
ConfirmExit=1

inline procedure LoadSettings() {
  uses ebx;
  uses edi;
  uses ecx;
  uses eax;
  // Open file
  ebx = loadfs('Settings.dat');
  
  // Process data
  
  // find \n
  pointer myBuf1,myBuf2;
  myBuf1 = new 30;
  myBuf2 = new 20;
  
  ecx = strOffset(ebx,'\n');
  while(ecx != 0) {
    
    // extract row
    strCopyLen(eax,ebx,ecx);
  
    // Find =
    edi = strIndexOf(eax,'=');
    
    // Extract before and after =
    strCopyLen(myBuf1,eax,edi);

    add eax, edi;
    edi = strLen(eax);
    strCopyLen(myBuf2,eax,edi);
    
    edi = strCmp(myBuf1,'ConfirmExit');
    if(edi) {
      strCopyLen(@zAppConfirmExit,myBuf2,strLen(myBuf2));
    } else {
      edi = strCmp(myBuf1,'Language');
      if(edi) {
        strCopyLen(@zAppLanguage,myBuf2,strLen(myBuf2));
      } else {
        edi = strCmp(myBuf1,'LogActions');
        if(edi) {
          strCopyLen(@zAppLogActions,myBuf2,strLen(myBuf2));
        }
      }
    }
    
    eax = xor;
    ecx++;
    add ebx, ecx;
    ecx = strIndexOf(ebx,'\n');
  }
  delete myBuf1;
  delete myBuf2;
}

uses reg1 reg2 reg3;

ebx = loadfs('Settings.dat');

  ecx = strOffset(ebx,'\n'); //ECX does not equal length but points to the offset
  while(ecx != 0) {
    
    // extract row
    strCopyLen(@lineBuf, ebx, ecx); //this would be very bad

[section]
setting1=text
setting2=text

[settings]
name=Admin
gender=male

#include 'inifiles.zir';

char buf[1024];
Ini_ReadString('settings.ini', @buf, 'settings', 'name', 'default', 1024);

//buf now holds your string

print('buf = ', @buf, '\r\n');

program WIN32CUI 'Test';

#include 'ch.zir';

////////////////////

//you need to dynamically load your settings file (this can be done inside the LoadSettings Function
const mySettings = loadfs('Settings.dat');


function LoadSettings() {
      uses edi esi ecx;
      
      char setBuf[64], valBuf[64];

      // Open file (temporary)
      esi = @mySettings;
      ecx = strLen(esi);
      
      ecx += esi;
  
      while (esi < ecx) {      
            //remove white spaces
            while (char[esi] == " ") {
                  esi ++;
            }
      
            //remove empty lines
            while (word[esi] == "\r\n") {
                  esi += 2;
            }
            
            //destination
            edi = @setBuf;            
            
            lodsb //load byte into al from esi      
            while (al <> "=") {
                  if (al == 0) {
                        break;
                  }
                  char[edi] = al;
                  edi ++;
                  
                  lodsb
            }
            char[edi] = 0;
            
            if (al == 0) {
                  //unexpected end of file
                  print('Unexpected EOF line: ', @setBuf, '\r\n');
                  return false;
            }
            
            edi = @valBuf;
                  
            lodsb
            while (al <> "\n") {
                  if (al == 0) {
                        break;
                  }
                  char[edi] = al;
                  edi ++;
                        
                  lodsb
            }
            char[edi] = 0;            
            
            
            strLower(@setBuf); //make lowercase for faster compare.          
            
            //a small macro to allow if-based comparison.
            inline function Compare(s1, s2) {
                  eax = strCmp($s1, $s2);
                  $return eax;
            }
            
            if (Compare(@setBuf, 'confirmexit') == true) {                 
                  print('found confirm exit: ', @setBuf, '=', @valBuf, '\r\n');
            } else {
                  print('Unknown setting: ', @setBuf, '=', @valBuf, '\r\n');
            }
      };
}


LoadSettings();

wait_key(nil);
ExitProcess(0);