Load & Save Config for editor

[Aurel]

just two functions:

Code:

SUB SaveConfig

string sConfig , dest
char   cdBuff[256]
GetCurrentDir 256, strptr cdBuff
'print cdBuff   'show current folder
sConfig = "~theme" + "[" + str(theme) + "]"   ' res ->  ~theme[1]

   dest = cdBuff + "\AurelEditConf.cfg"
   putfile dest, sConfig

END SUB

'/////////////////////////////////////////////////////////////////////

SUB LoadConfig

string sConfig , dest
char   cdBuff[256]
GetCurrentDir 256, strptr cdBuff
'print cdBuff   'show current folder
'sConfig = "~theme" + "[" + str(theme) + "]"   ' res ->  ~theme[1]

   dest = cdBuff + "\AurelEditConf.cfg"
's_cfg = getfile configdir & "\O2HEdit.cfg"
   'if s_cfg then
    ' o2dir=extractData s_cfg, "$o2dir "
    ' compiler=extractData s_cfg, "$compiler "
sConfig = getfile dest
IF sConfig = ""
   MsgBox "Configuration file is EMPTY" + crlf +
          "create new file by opening Option Window!" , "AurelEdit::INFO"
   Return
ELSE
   MsgBox "Configuration file Exists" + crlf + sConfig + crlf +
          "OK!" , "AurelEdit::INFO"
END IF


END SUB

'////////////////////////////////////////////////////////////////////
Function ExtractData(string s,k) as string
  'format: $keyword [data]
  sys a = instr(s,k)
  if a=0 then exit function
  a = instr a,s,"["
  b = instr a,s,"]"
  IF a THEN
    a++
    return mid s,a,b-a
  END IF
End Function

[/i]