Sorry your browser is not supported!

`--------------
` Get Key/Val
`--------------
function KeyValue_Get(S$)
   r=0
   for s=0 to len(S$)
      if mid$(S$,s)="=" then r=1
   next s
endfunction r

function KeyValue_Key(S$)
   mid=0
   repeat
      mid=mid+1
   until mid$(S$,mid)="=" or mid$(S$,mid)=";" or mid$(S$,mid)=""
   St$=left$(S$,mid-1)
   if mid$(St$,len(St$))=";" then St$=left$(St$,len(St$)-1)
endfunction St$

function KeyValue_Value(S$)
   mid=0
   repeat
      mid=mid+1
   until mid$(S$,mid)="=" or mid$(S$,mid)=";" or mid$(S$,mid)=""
   St$=Right$(S$,(len(S$)-1)-(mid-1))
   if mid$(St$,len(St$))=";" then St$=left$(St$,len(St$)-1)
endfunction St$

function KeyValue_InnerValue(S$,i)
   v=0
   for t=0 to i
      a$=""
      repeat
         a$=a$+mid$(S$,v):v=v+1
      until mid$(S$,v)="," or mid$(S$,v)=";" or mid$(S$,v)=""
      v=v+1
   next t
   r#=val(a$)
endfunction r#

function GetString(script$,string$)
   script#=find free file()
   if file exist(script$)=1
      open to read script#,script$
      repeat
      read string script#,S$
      if KeyValue_Get(S$)=1
      if KeyValue_Key(S$)="common"
         read string 1,string$
            if string$="{"
               repeat
               read string script#,string$
               if KeyValue_Get(string$)=1
                  Val$=KeyValue_Value(string$)
                  if Key$=string$
                  	WriteLog(Val$)
                  endif
               endif
               until string$="" or string$="}"
            endif
      	endif
      endif
      until S$=""
      close file script#
   endif
endfunction

common
{
	str_00001=Fists
}

GetString("strings.data","str_00001")

Function GetToken(Pos,string$,filter1$,filter2$,filter3$,RemoveSpaces,ReadFile)

    ` If ReadFile is   0 , Then it will treat the Parse as a solo parse
    ` If ReadFile is > 0 , Then it will read From the Current File
    ` If ReadFile us - 1 , Then it will reparse a previous line
    If ReadFile = - 1
        string$ = LastParse
    Else
        If ReadFile > 0
            Read String ReadFile,string$
            LastParse = string$
        Else
            LastParse = string$
        Endif
    Endif
    If RemoveSpaces = 1
        string2$ = string$ : string$ = ""
        For G = 1 To Len(string2$)
            If Mid$(string2$,G) <> " "
                string$ = string$ + Mid$(string2$,G)
            Endif
        Next G
    Endif
    For S = 1 To Len(string$) + 1
        Cur$ = Mid$(string$,S)
        If Cur$ = filter1$ Or Cur$ = filter2$ Or Cur$ = filter3$ Or S = Len(string$) + 1
            Inc CPos
            If CPos = Pos
                ExitFunction Ret$
            Endif
            Ret$ = ""
        Else
            Ret$ = Ret$ + Cur$
        Endif
    Next S
EndFunction ""

function GetString(file$,string$)
	file#=find free file()
	open to read file#,file$
		string$=GetToken(2,string$,",","=","=",0,1)
	close file file#
	WriteLog(string$)
endfunction