PureBoard

Verfasst: **11.08.2022 20:59**

Hallo.
Ich habe mir ein Schreibprogramm überlegt, bin aber nicht ganz so zufrieden damit. Hat einer Vorschläge, was ich verbessern kann oder gar anders?

Code: Alles auswählen

Repeat
  raus = 0
  situationenwahl$ = InputRequester("Entscheidung","Eingabe:","")
  Situation = Val(situationenwahl$)
  Select Situation
    Case 1
      ghostwriter$ = InputRequester("Schreiber","Eingabe:","")
      CreateFile(1,"Text1.txt")
      Repeat
        readtext$ = ReadString(1)
        writetext = WriteStringN(1,ghostwriter$)
      Until Eof(1)
      CloseFile(1)
    Case 2 To 99
      ghostwriter$ = InputRequester("Schreiber","Eingabe:","")
      OpenFile(1,"Text1.txt")
      Repeat
        readtext$ = ReadString(1)
        writetext = WriteStringN(1,ghostwriter$)
      Until Eof(1)
      CloseFile(1)
    Case 100
      raus = 1
  EndSelect
Until raus = 1

Verfasst: **11.08.2022 21:22**

Ich verstehe nicht, was das Programm machen soll.

Am wenigsten Sinn macht für mich das ReadString(1), wenn du vorher die Datei mit CreateFile() gerade angelegt hast. Dann steht eh nichts drin, was ausgelesen werden kann. Und ein Eof(1) ist da auch nicht von Nöten.

Verfasst: **11.08.2022 21:45**

Das Programm erstellt einfach eine Textdatei. In diese Datei wird durch die Repeat-Schleife etwas reingeschrieben.

Verfasst: **11.08.2022 23:30**

Wolfvater Loki hat geschrieben: 11.08.2022 21:45Das Programm erstellt einfach eine Textdatei. In diese Datei wird durch die Repeat-Schleife etwas reingeschrieben.

Schau Dir die von Dir verwendeten Befehle nochmal genauer in der PB-Hilfe an.

Mit WriteStringN() schreibst Du Daten in eine Datei.
Mit ReadString() liest Du Daten aus einer Datei.

PureBoard

Verbesserungsvorschläge für ein Schreibprogramm

Verbesserungsvorschläge für ein Schreibprogramm

Re: Verbesserungsvorschläge für ein Schreibprogramm

Re: Verbesserungsvorschläge für ein Schreibprogramm

Re: Verbesserungsvorschläge für ein Schreibprogramm