|
а записывается правильно первая строка, а вторая т.е. YEKR% становится равна 0, помогите плиз
|
ставлю сто рублей что ты считываешь где-то в коде только первую строку, а вторую нет.
И вообще читать таким образом строки не православно(прости меня автомат). Две строки - две переменных ещё можно записать. Но когда в тексте тысяча строк, то тысячу переменных заводить будет черезжопно). Я бы порекомендовал пользоваться массивами для таких дел:
Dim txt$(1000) ;Создаем массив с тысячей слотов под текст
Read=ReadFile("input.txt");открываем файл для прочтения
Repeat
i=i+1 ;добавляем +1 к счетчику чтобы заносить потом значение в массив.
txt$(i)=ReadLine(Read) ;говоря дословно: в массив txt$ на позицию i записать одну строку из "input.txt"
Until Eof(Read) ;Повторять пока не достигнем последней строки. Если нужно прочитать только несколько строк, то реализуется
;все так-же, вот только через цикл For...Next
Output=WriteFile("Output.txt")
For N=1 to i ; запускаем цикл который запишет все значения массива
WriteLine(Output,txt$(i))
Next
Вот такая вот программка может записать из одного файла в другой тысячу строк. Оптимизируй под себя, и юзай на здоровье.