Чтение из файла построчно
Строки переменной длины, разделители chr(&H0D), chr(&H0A)?
Как прочитать из файла данные построчно?
Строки переменной длины, разделители chr(&H0D), chr(&H0A)?
'=================================================
'Получение данных из текстового файла
'=================================================
fname = ThisWorkbook.Path + "\kurs.txt"
Open fname For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine 'Это строка с данными
Loop
Close #1
'=================================================
'Получение данных из текстового файла
'=================================================
fname = ThisWorkbook.Path + "\kurs.txt"
Open fname For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine 'Это строка с данными
Loop
Close #1
Я на форуме выкладывал архив с примерами с экзотическими способами работы с еукстовыми файлами посмоти на форуме автор кажется syama я ей отвечал на похожий вопрос...
А как считывать строки фиксированной ширины, то есть задача такая:
строка файла имеет определенную длину и содержит разнородную информацию (напиример: адрес,ФИО,возраст). На адрес отведено 50 символов и на ФИО - 30, на возраст 2.
Требуется считать из файла эти данные.
Как это сделать?
Как считать полностью строки - это понятно.
А как считывать строки фиксированной ширины, то есть задача такая:
строка файла имеет определенную длину и содержит разнородную информацию (напиример: адрес,ФИО,возраст). На адрес отведено 50 символов и на ФИО - 30, на возраст 2.
Требуется считать из файла эти данные.
Как это сделать?
Line Input #1, TextLine 'Это строка с данными
фамилия = trim(mid(textline,1,10))'начиная с первого символа длинна 10 символов
имя = trim(mid(textline,11,10)) начиная с 11 символа длинна 10
возраст = trim(mid(textline,21,2)) начина с 21 длинна 2
это самый простой вариант
Line Input #1, TextLine 'Это строка с данными
фамилия = trim(mid(textline,1,10))'начиная с первого символа длинна 10 символов
имя = trim(mid(textline,11,10)) начиная с 11 символа длинна 10
возраст = trim(mid(textline,21,2)) начина с 21 длинна 2
это самый простой вариант
Вы найдите в форуме то что я выкладывал там есть такая вещб, что можно считывать инфу с разделителями....и не партесь если не найдете то сново выложу....
Line Input #1, TextLine 'Это строка с данными
фамилия = trim(mid(textline,1,10))'начиная с первого символа длинна 10 символов
имя = trim(mid(textline,11,10)) начиная с 11 символа длинна 10
возраст = trim(mid(textline,21,2)) начина с 21 длинна 2
это самый простой вариант
Да, так как вы сказали можно, но я полазил в ХЕЛПе и выяснил, что можно считывать строки ещё вот так
str = input(3, #1)
так мы считаем 3 символа
str = input(10, #1)
а так - следующие 10
Да, так как вы сказали можно, но я полазил в ХЕЛПе и выяснил, что можно считывать строки ещё вот так
str = input(3, #1)
так мы считаем 3 символа
str = input(10, #1)
а так - следующие 10
Это уже дело вкуса.....просто привел самый простой вариант....согласен что есть варианты и поэкзотичней....так что выбор за вами
Это уже дело вкуса.....просто привел самый простой вариант....согласен что есть варианты и поэкзотичней....так что выбор за вами
задолбали умничать вот нате качайте и не партесь!!!