Показать полную графическую версию : Turbo Basic
У меня есть файл, в нем 10 строчек (приустим) я хочу поменять в єтом файле только вторую строчку, а все остальное оставить такими как есть. Как єто сделать с помощю Turbo Basic??? (если на Pascal лекче можете осоветовать ) *
hasherfrog
06-07-2004, 15:11
На "псевдоязыке" это так:
1. Открыть файл R, в котором надо сделать изменения, на чтение
2. Открыть временный файл T, на запись
3. i = 0;
4. Пока не конец файла R
5. Считать строку S из файла (ReadLn в pascal), увеличить i на 1
6. Если i = 2 (т.е. это вторая строка), вывести в T её замену,
иначе вывести в Т считанную S (WriteLn в pascal)
7. Повторить с 4-го пункта
8. Закрыть T и R
9. Удалить R
10. Переименовать T в R.
Спасибо, но я бы хотел знать, как в Basic считать строку s из какогото файла а потом ее куда-то записать.
hasherfrog
07-07-2004, 09:42
Open FileName For Input As #Handle
Input #Handle TextStringFromFile$
Open FileName For Output As #Handle
Write #Handle TextStringFromFile$
Я с детства ненавижу работу с файлами в бейсике. Когда-то давным-давно, в конце 80-х, я на областной олимпиаде по информатике конкретно попал... Для решения одной задачи надо было написать что-то про ввод/ывод данных. Поскольку в те времена не было одинаковых компьютерных классов и каждая школа извращалась как могла, выбор языка программирования для решение задачи оставляли за участниками. Т.е. на чём хочешь - на том и пиши, мы (члены комиссии) - разберёмся. Ну, умные люди написали на бейсиках, паскалях. Кто-то продвинутый - на С. А я... правильно смеётесь, на ассемблере. Кто-то, может, помнит про "Микрошу" (там z80-основа, емнип). Ну вот я и пыхтел почти всё время, отведённое на решение задач... Мда...
Спасибо, теперь "НЕМА ПИТАНЬ"
Добавлено:
Если не трудно выслать написать полностью пример (может я не так понимаю, но оно не срабатует у меня)
Зарание спасибо
hasherfrog
07-07-2004, 15:06
paladinzluka
Ну свой код приведите. В данном случае мне легче исправить, чем с нуля писать. Почему - см. оффтоп в предыдущем посте. :( Это на всю жизнь :(
Вот так я пишу:
open 1.txt for input as #1
a$="VASY"
****** - оператор, который должен меня перекинуть на втроую строчку
write #1 a$
close 1
Так нас учили еще в школе, но я и тогда немог понять эту схему (потому что мне казалось, что Basic не может разделить txt файл на строчки, а теперь, когда надо показать знания TBasic я не могу ничего сделать с вводом/вывдом)
Или я "д****" и нас не так учили!!!
Короче, надо срочно помощь по этому тупому TBasicy!!!
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.