Вот у меня ситуация: начинаю считывать данные в файле, ну и допустим при соответствии какому-либо критерию некоторая строка корректируется. В крайнем случае номер этой строки должен "запомниться", чтобы потом при режиме записи ее откорретировать...

open "filename.txt" for random access read write as #1
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)
Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 4