Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Еще раз текстовый файл / 5 сообщений из 5, страница 1 из 1
10.06.2004, 10:28
    #32555648
KV
KV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Еще раз текстовый файл
Как в текстовом файле удалить первые четыре строки или пропустить, а то импорт не проходит. Пытался 4 раза написать Line Input, а после этого импортировать, тогда не все записи возвращает, пропускает произвольно какие-нибудь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.06.2004, 11:27
    #32555807
KV
KV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Еще раз текстовый файл
Модераторам.
Будьте добры переместите в форум по VB
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.06.2004, 14:44
    #32556315
KV
KV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Еще раз текстовый файл
Читаю из файла:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
Open nf For Input As #Nomer
Do While Not EOF(Nomer)
  With Zagruz
    Input #Nomer, .P1, .P2, .P3, .P4, .P5, .P6, .P7, .P8, .P9, .P10, _
    .P11, .P12, .P13, .P14, .P15, .P16, .P17, .P18
    rst.AddNew
        rst!P1 = Dos2Win(.P1)
        rst!P2 = Dos2Win(.P2)
        rst!P3 = Dos2Win(.P3)
        rst!P4 = Dos2Win(.P4)
        rst!P5 = Dos2Win(.P5)
        rst!P6 = Dos2Win(.P6)
        rst!P7 = Dos2Win(.P7)
        rst!P8 = Dos2Win(.P8)
        rst!P9 = Dos2Win(.P9)
        rst!P10 = Dos2Win(.P10)
        rst!P11 = Dos2Win(.P11)
        rst!P12 = Dos2Win(.P12)
        rst!P13 = Dos2Win(.P13)
        rst!P14 = Dos2Win(.P14)
        rst!P15 = Dos2Win(.P15)
        rst!P16 = Dos2Win(.P16)
        rst!P17 = Dos2Win(.P17)
        rst!P18 = Dos2Win(.P18)
    rst.Update
  End With
Loop
Close #Nomer
rst.Close
Set rst = Nothing

В файле присутствует шапка первые N строк, как их удалить или пропустить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.06.2004, 17:06
    #32556702
KV
KV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Еще раз текстовый файл
Как же мне все таки пропустить строки которые не подходят под объявленные в Type? Пробовал при помощи Get с использованием LOF и FileLen - не получилось желаемого результата. Подскажите плиз, работа стоит...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.06.2004, 18:41
    #32556993
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Еще раз текстовый файл
вот так сработало
c:\1.txt
1
2
3
4
5
6
7
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Sub Test()
Dim Offset As Long, i As Long, Buffer As String
    Offset =  3 
    Open "c:\1.txt" For Input As # 1 
        For i =  1  To Offset
            Line Input # 1 , Buffer
        Next i
        Line Input # 1 , Buffer
        Debug.Print Buffer
    Close # 1 
End Sub

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Еще раз текстовый файл / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]