ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Еще раз текстовый файл
5 сообщений из 5, страница 1 из 1
Еще раз текстовый файл
    #32555648
Фотография KV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KV
Участник
Как в текстовом файле удалить первые четыре строки или пропустить, а то импорт не проходит. Пытался 4 раза написать Line Input, а после этого импортировать, тогда не все записи возвращает, пропускает произвольно какие-нибудь.
...
Рейтинг: 0 / 0
10.06.2004, 10:28
| Ответить | Цитировать | Написать  
Еще раз текстовый файл
    #32555807
Фотография KV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KV
Участник
Модераторам.
Будьте добры переместите в форум по VB
...
Рейтинг: 0 / 0
10.06.2004, 11:27
| Ответить | Цитировать | Написать  
Еще раз текстовый файл
    #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, 14:44
| Ответить | Цитировать | Написать  
Еще раз текстовый файл
    #32556702
Фотография KV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KV
Участник
Как же мне все таки пропустить строки которые не подходят под объявленные в Type? Пробовал при помощи Get с использованием LOF и FileLen - не получилось желаемого результата. Подскажите плиз, работа стоит...
...
Рейтинг: 0 / 0
10.06.2004, 17:06
| Ответить | Цитировать | Написать  
Еще раз текстовый файл
    #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
10.06.2004, 18:41
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Еще раз текстовый файл
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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