PureBoard

Code: Alles auswählen

ax.i
NM.i
 OpenConsole()
    Print("Geben Sie ax ein und druecken Sie Return: ")
 ax = ValF(Input())
    Print("Geben Sie NM ein und druecken Sie Return: ")
 NM = ValF(Input())
   If CreateFile(0,"c:/PB/test.txt")       
   
   
  WriteStringN(0,"ax="+StrF(ax))
  WriteStringN(0,"NM="+StrF(nm))

    CloseFile(0)                      
  Else
    MessageRequester("Information","Konnte Datei nicht erstellen!")
  EndIf
  
 Debug"lese jetzt"
  nm=1000;habe ich eingefügt, um zu prüfen ob der gelesene Wert verarbeitet wird
  
 If ReadFile(0,"c:\PB\test.txt")
        While Eof(0) = 0          
          Debug ReadString(0)     
        
    Wend


Debug ax
Debug nm
  If ax=100 ;habe ich eingefügt um zu prüfen ob Variablen -Werte verarbeitet werden
    Debug "ax=100";
  Else
    Debug "ax<>100";habe ich eingefügt um zu prüfen ob Variablen -Werte verarbeitet werden
  EndIf  
 
  CloseFile(0)
    Else
    MessageRequester("Information","Konnte Datei nicht öffnen!")
  EndIf

Code: Alles auswählen

Procedure Laden(FileName$, Map Flux.d())
  file = ReadFile(-1, FileName$)
  if IsFile(file)
    While EoF(file) = 0
      line$ = ReadString(file) ; ZEile für Zeile
      Flux(Trim(StringField(line$, 1, "="))) = ValD(Trim(StringField(line$, 1, "="))) ;:
      ; StringField unterteilt einen String in Teile, welche im Ausgangsstring durch ein Trennzeichen getrennt sind und gibt das N-te Stück aus.
      ; StringField("hallo welt !", 3, " ") ist z.B. "!"
      ; Trim entfernt noch paar Leerzeichen am Anfang und Ende, braucht man bei ValD eig auch nicht.
    Wend
    CloseFile(file)
    ProcedureReturn #True
  EndIf
  ProcedureReturn #False
EndProcedure
Procedure Speichern(FileName$, Map Flux.d())
  file = CreateFile(-1, FileName$)
  If IsFile(file)
    ForEach Flux()
      WriteStringN(file,MapKey(Flux()) +" = "+StrD(Flux()))
    Next
    CloseFile(file)
    ProcedureReturn #True
  EndIf
  ProcedureReturn #False
EndProcedure
Procedure GetVar(Name$, Map Flux.d())
  ProcedureReturn Flux(Name$)
EndProcedure
Procedure SetVar(Name$, Val.d, Map Flux.d())
  Flux(Name$) = Val
  ProcedureReturn #True
EndProcedure

NewMap Float.d()
Laden( "c:/PB/test.txt", Float())

Print("Geben Sie ax ein und druecken Sie Return: ")
SetVar("ax", ValD(Input()), Float())

Print("Geben Sie NM ein und druecken Sie Return: ")
SetVar("NM", ValD(Input()) Float())

Speichern("c:/PB/test.txt", Float())