option = OpenFile("playersetup.dat")

Repeat
ReadLine(option)
Until Eof(option)

Variable=readline(datei$)

option = OpenFile("playersetup.dat")

name$=ReadLine(option)
Closefile(option)

file=OpenFile("filename.txt")
nickname$=ReadLine$(file)
clan$=ReadLine$(file)
...
CloseFile file

Global nickname$,clan$

option = OpenFile("playersetup.dat")

While Not Eof(option)
   info$=ReadLine(option)
   test$(info$)
Wend

Print nickname$
Print clan$

CloseFile(option)

WaitKey()
End

Function test$(txt$)
txt$ = Trim(txt$)

dummy$ = Left(txt$,Instr(txt$,"=")-1)

Select dummy$
   Case "nickname"
   nickname$ = Right(txt$,Len(txt$)-Len(dummy$)-1)
   Case "clan"
   clan$ = Right(txt$,Len(txt$)-Len(dummy$)-1)
End Select

End Function

Global datei$ = "playersetup.dat"

nickname$ = SelectInfo$("nickname")
clan$ = SelectInfo$("clan")

Print "Nickname: " + nickname$
Print "Clan: " + clan$

WaitKey()
End

Function SelectInfo$(txt$)
Local s_info$,ok = 0

txt$ = Trim(txt$)

option = OpenFile(datei$)

While Not Eof(option)
info$=ReadLine(option)
If Instr(info$,txt$)
s_info$ = info$
ok = 1
Exit
EndIf
Wend

CloseFile(option)

If ok = 1
dummy$ = Left(s_info$,Instr(s_info$,"=")-1)
Return Right(s_info$,Len(s_info$)-Len(dummy$)-1)
Else
Return ""
EndIf

End Function

x=readLine(datei$)
if left(x,9)="nickname=" then nickname=right(x,len(x)-9)

;-----------------------------------------
;SPLITTS A STRING LIKE YOU WANT
;-----------------------------------------
Function stringSplitt$(strg$,char$,selection%)

 Local newstrg$=""
 Local count%=0

 If Instr(strg$,char$)>0 Then

  For i%=1 To Len(strg$)
 
   If Mid(strg$,i%,1)=char$ Then count%=count%+1:i=i+1

   If count%=selection% Then newstrg$=newstrg$+Mid(strg,i%,1)
   If count%>selection% Then Exit

  Next

 Else
  newstrg$=strg$
 EndIf

 Return newstrg$

End Function

Type TVar
 Field Name$
 Field Wert$
End Type

Global VAR.TVAR


Load_VAR "VAR.TXT"

Z=MilliSecs()
For M=1 To 1000
Print Get_Var(100)
Next
Print MilliSecs()-Z

WaitKey


Function Load_VAR(Dateiname$)
 FileNr=ReadFile(Dateiname$)
 If FileNr=0 Then Return

 While Not(Eof(FileNr))
  Zeile$=ReadLine$(FileNr)
  Pos=Instr(Zeile$,"=")
  If Pos>1 Then
   Varname$=Left$(Zeile$,Pos-1)
   Varwert$=Mid$(Zeile$,Pos+1)
   New_VAR Varname$,Varwert$
  EndIf
 Wend

 CloseFile FileNr
 Return True
End Function

Function Save_VAR(Dateiname$)
 FileNr=WriteFile(Dateiname$)

 If FileNr=0 Then Return False 
 For Var=Each TVar
  WriteLine FileNr,Var\Name$+"="+Var\Wert$
 Next
 CloseFile FileNr
 Return True 

End Function

Function New_VAR(Varname$,Varwert$)
 Var=New TVAR
 Var\Name$=Lower$(Varname$)
 Var\Wert$=Varwert$
End Function

Function Delete_VAR(Varname$)
 Varname$=Lower$(Varname$)
 For Var=Each TVar
  If VAR\Name$=Varname$ Then
   Delete Var
   Return True
  EndIf
 Next
 Return False
End Function

Function Get_VAR$(Varname$)
 Varname$=Lower$(Varname$)
 For Var=Each TVar
  If VAR\Name$=Varname$ Then
   Return Var\Wert$
  EndIf
 Next
End Function

Function Set_VAR(Varname$,Varwert$)
 Varname$=Lower$(Varname$)
 For Var=Each TVar
  If VAR\Name$=Varname$ Then
   Var\Wert$=Varwert$
   Return True
  EndIf
 Next
 Return False
End Function

Function Lower$(S$)
 Slen=Len(S)
 If Slen>0 Then
  For P=1 To Slen
   ASCII=Asc(Mid$(S$,P,1))
   If Ascii>64 And Ascii<92 Then
     Ascii=Ascii+32
    ElseIf Ascii=220 Then ;ü
     Ascii=252     
    ElseIf Ascii=196 Then ;ä
     Ascii=228 
    ElseIf Ascii=214 Then ;ö
     Ascii=246
   End If
   R$=R$+Chr$(ASCII)
  Next
  Return R$
 End If
End Function