Режимы доступа к текстовому файлу

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Calvin
Постоялец
Постоялец
 
Сообщения: 409
Зарегистрирован: 21.01.2003 (Вт) 12:13
Откуда: Sebastopol

Режимы доступа к текстовому файлу

Сообщение Calvin » 02.10.2003 (Чт) 12:06

Здраствуйте уважаемые, можно ли открыть текстовый файл для чтения и записи одновременно? Вроде бы эта тема уже заезжена на форуме, но что-то в этом роде я не нашел ничего.
Вот у меня ситуация: начинаю считывать данные в файле, ну и допустим при соответствии какому-либо критерию некоторая строка корректируется. В крайнем случае номер этой строки должен "запомниться", чтобы потом при режиме записи ее откорретировать... :roll:
-Whose the motocycle, is this? -It`s a chopper, baby! -Whose chopper is this? -Zed`s! -Who is Zed? -Zed`s dead, baby, Zed`s dead! :-D

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 02.10.2003 (Чт) 12:14

Код: Выделить всё
open "filename.txt" for random access read write as #1

Calvin
Постоялец
Постоялец
 
Сообщения: 409
Зарегистрирован: 21.01.2003 (Вт) 12:13
Откуда: Sebastopol

Сообщение Calvin » 02.10.2003 (Чт) 12:45

а можно поподробнее с кодом после открытия файла? Дело в том. что при методе Input прога выдает ошибку "Bad file mode". Пусть в какой-либо строке мы найдем слово "север" заменим на "юг" (ну как заменить переменную - это не проблема (реплэйсом), а как прочесть и перезаписать при таком режиме доступа?
-Whose the motocycle, is this? -It`s a chopper, baby! -Whose chopper is this? -Zed`s! -Who is Zed? -Zed`s dead, baby, Zed`s dead! :-D

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 02.10.2003 (Чт) 14:52

Вообще предлагаю сделать так: используем FSO:

Код: Выделить всё
dim fso as new filesystemobject
dim st as string
st = fso.getfile("c:\1.txt").openastextstream(forreading).readall
'Здесь в переменную st мы считали весь текстовый файл. Дальше можешь заменять в нем что надо, делать с этой строкой что заблагорассудится :) Затем:
fso.getfile("c:\1.txt").openastextstream(forwriting).write(st)


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 3

    TopList