Mufa napisał(a):
Wiem że programista sobie taką dokumentację łatwo przyswaja, dlatego pytam Ciebie, bo dla "nie programisty" to niestety te 900 stron dokumentacji to w większości czarna magia.
Piszesz o przekonwertowaniu na ciąg, czyli zamiast Readstring (1,1) miałbym wklepać Savestring (1,1) a potem coś w stylu save to Ram:1.txt
Zauważ, że polecenie:
Kod:
liczba = ToNumber(ciag$)
konwertuje ciąg tekstowy do liczby.
Analogicznie funkcja
Kod:
ciag$ = ToString(liczba)
przekonwertuje liczbę na ciąg tekstowy.
Z kolei
Kod:
WriteString(1, ciag$)
zapisuje ciąg tekstowy ciag$ do pliku o numerze 1.
Jeszcze pozostaje otwarcie pliku z trybem do zapisu:
Kod:
OpenFile(1, "RAM:1.txt", #MODE_WRITE)
Zbierając to teraz do kupy. Najpierw trzeba wczytać liczbę z pliku. Kopiuję kod z wcześniejszego postu:
Kod:
OpenFile(1, "RAM:1.txt") ; Otwieramy plik RAM:1.txt i przypisujemy do identyfikatora 1
ciag$ = ReadString(1, 1) ; Pobieramy jednoznakowy ciąg z pliku
liczba = ToNumber(ciag$) ; Konwertujemy ciąg na liczbę
wynik = 0
wynik = Add(wynik, liczba)
CloseFile(1)
W tym momencie w zmiennej wynik jest liczba (cyfra) wczytana z pliku RAM:1.txt.
Musimy dodać jeden, przekonwertować z powrotem do ciągu, otworzyć plik do zapisu i zapisać ciąg:
Kod:
wynik = Add(wynik, 1)
ciag$ = ToString(wynik)
OpenFile(1, "RAM:1.txt", #MODE_WRITE)
WriteString(1, ciag$)
CloseFile(1)