Перейти к содержимому

Фотография

Чтение данных из файла


  • Авторизуйтесь для ответа в теме
В теме одно сообщение

#1 QA*

QA*

    Активный участник

  • Members
  • PipPip
  • 104 сообщений
  • Город:Москва

Отправлено 17 апреля 2009 - 10:10

Емеется следующий код:
[codebox]Dim stxt As String
Dim stxt As Integer
Open "file.txt" for Input As #1
For i=1 To 5

...
'пытаемся считать строку с текстового файла
Input #1,stxt
...

Next i[/codebox]

где файл file.txt содержит следующий текст:
<TForm><Окошко><Window,Caption=Главное окно программы><Begin>
<ListBox><Листбокс><ListBox,ObjectIndex=1>
<Header><Елемент какой то><Header,ObjectIndex=1>
<PushButton><Кнопка><PushButton,ObjectIndex=1>
<TForm><Window,Caption=Главное окно программы><End>

С помощью функции Input пытаюсь считать в переменную stxt целую строчку из текстового файл. Все хорошо, если бы не запятые: при каждом обращении Imput в stxt заносится текст, разделенный либо запятой, либо концом строки. Кака сделать так, чтобы запятые игнорировались?
  • 0

#2 berzinc

berzinc

    Активный участник

  • Members
  • PipPip
  • 110 сообщений
  • ФИО:Berzins Lauris
  • Город:Riga, Latvia

Отправлено 17 апреля 2009 - 10:17

Емеется следующий код:

Dim stxt As StringDim stxt As IntegerOpen "file.txt" for Input As #1For i=1 To 5  ... 'пытаемся считать строку с текстового файла  Input #1,stxt   ...Next i



Line Input #1,stxt
  • 0


Количество пользователей, читающих эту тему: 1

0 пользователей, 1 гостей, 0 анонимных