astron Пользователь сайта Рейтинг 2 21 окт 2014 #1 Нужно добавить текст в существующий файл в указанную позицию не затирая существующие данные. У меня получается добавить только в конец файла🙁. fs = openFile "c:/myFile.txt" mode:"a+" seek fs 10 -- указываю позицию в которую нужно писать print "new text" to:fs close fs
I igorznag Мастер Рейтинг 103 21 окт 2014 #2 fs = openFile "c:/myFile.txt" mode:"r+" seek fs #eof; maxlen=filepos fs; seek fs 10 res = readChars fs maxlen errorAtEOF:false seek fs 10; format "new text" to:fs format res to:fs; close fs
astron
fs = openFile "c:/myFile.txt" mode:"a+"
seek fs 10 -- указываю позицию в которую нужно писать
print "new text" to:fs
close fs
igorznag
astron