neunte Zeile bitte im Text ändern ?

[funkheld]

Hallo, guten Tag.

wie kann man bitte die 10. Zeile ändern bzw die 10. Zeile neu setzen?

Danke.
gruss

--------------------
[compilation]
arch=strict
modules=a8_hardware,a8_os,a8_kernel,default_panic,stdlib
encoding=atascii
screen_encoding=atasciiscr

[allocation]
; OS turned on
zp_bytes=$80-$FF
segment_default_start=$2000
; BASIC turned off
segment_default_end=$BFFF

[define]
ATARI_8=1
WIDESCREEN=1
KEYBOARD=1
JOYSTICKS=2
HAS_BITMAP_MODE=1

[output]
;TODO
style=single
format=$FF,$FF,$E0,$02,$E1,$02,startaddr,startaddr,endaddr,allocated
extension=xex

[NicTheQuick]

Du öffnest die Datei, öffnest dann eine zweite leere Datei zum Schreiben und liest aus der ersten Zeilenweise mit ReadString(). Jede Zeile, die du gelesen hast, schreibst du wieder in die zweite Datei mit WriteString(). Pro Zeile zählst du mit einer Variable mit, damit du weißt in welcher Zeile du dich gerade befindest. Ist diese Variable = 10, dann bist du in der zehnten Zeile. An diesem Punkt schreibst du etwas anderes in die Zieldatei und nicht das, was du gerade gelesen hast.

[ccode_new]

Hallo!

neunte Zeile bitte im Text ändern ?

<>

wie kann man bitte die 10. Zeile ändern bzw die 10. Zeile neu setzen?

Was möchtest du genau neu setzen ?
Den Schlüssel, den Wert, oder beides ?

Beispiel:

Code: Alles auswählen

Global wert.s = "0" 

;Öffnet eine Preference-Datei
OpenPreferences(GetCurrentDirectory() +"test.pref")

;Gruppen untersuchen
ExaminePreferenceGroups()

;Für jede Gruppe
While NextPreferenceGroup()
  ;Schlüssel der aktuellen Gruppe untersuchen
  ExaminePreferenceKeys()
  ;alten Wert auslesen
  wert = ReadPreferenceString("segment_default_start", "0")
  If wert <> "0"
    ;Neuen Wert schreiben
    WritePreferenceString("segment_default_start", "$2001")
    If FlushPreferenceBuffers() = 0
      MessageRequester("Fehler", "Die Datei konnte nicht geändert werden.")
    EndIf
    Break
  EndIf
Wend

; Anzeigen des alten Werts
MessageRequester("test.pref",wert)

; Schließt die Preference-Datei
ClosePreferences() 

[Nino]

neunte Zeile bitte im Text ändern ?

Das geht ganz ähnlich wie (2019) 3. Zeile in einer Textdatei ändern.

[juergenkulow]

Hallo funkheld,

Code: Alles auswählen

;Ändert den Wert von [allocation] segment_default_start
Datei.s=OpenFileRequester("funkheld.txt","funkheld.txt", "Alle (*.*)|*.*",0)
Wert.s=InputRequester("funkheld","[allocation]segment_default_start","$3000")
OpenPreferences(Datei) 
PreferenceGroup("allocation")
WritePreferenceString("segment_default_start",Wert)
ClosePreferences()

Die Werte für Datei, Wert, PerferenceGroup, WritePreferenceString, könnte man sich auch mit Parameter$ = ProgramParameter([Index]) besorgen. Wenn Du das Programm so gebrauchen kannst, kannst Du es ja hier posten.