powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Visual Basic 6
11 сообщений из 11, страница 1 из 1
Visual Basic 6
    #35799466
Jogador
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Пожалуйста,подскажите,как в VB считать данные из DATовского файла,если они разделены табуляцией?
(Программированием каким либо не занимался лет 15,так что почти ноль,срочно понадобилось написать маленькую программку)
...
Рейтинг: 0 / 0
Visual Basic 6
    #35799740
Grayscale
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Так чтоб не вникать не получится... А так
Код: plaintext
instr(source,chr( 8 )) 
функция возвращает номер позиции таба в тексте,
Код: plaintext
left(source,instr(source,chr( 8 ))- 1  )
возвращает часть до первого таба в строке,
Код: plaintext
mid(source,instr(source,chr( 8 ))+ 1 ))
часть справа от первого таба в строке.
...
Рейтинг: 0 / 0
Visual Basic 6
    #35799753
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как вариант, FileSystemObject, TextStream, Split. Но есть еще ряд других, как более простых, так и более изощренных подходов.
...
Рейтинг: 0 / 0
Visual Basic 6
    #35799760
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ADODB + Jet Provider для text
...
Рейтинг: 0 / 0
Visual Basic 6
    #35800011
Grayscale
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
*chr(15)
...
Рейтинг: 0 / 0
Visual Basic 6
    #35800205
Фотография by-pass
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
чтобы открыть файл, используйте
Open "file.dat" For Input As #fn
...
для разделения данных можно функцию Split()
...
Рейтинг: 0 / 0
Visual Basic 6
    #35800771
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Jogadorсрочно понадобилосьесли это разовая работа
то я бы предложил сделать так

создайте текстовый файлик "head.txt",
в котором вы укажите имена полей через табулятор

после последнего поля нажмите клавишу Enter чтобы запись имела конец строки, а не конец файла
сохраните этот файлик, а затем командой copy head.txt + ВашФайл.DAT объедините их

Открывайте excel-ем получившийся файл head.txt
...
Рейтинг: 0 / 0
Visual Basic 6
    #35800833
Jogador
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо большое,помогли! А какой вы посоветуете более полный учебник по VB, я столько лит-ры проштудировал,но про это не нашел? В частности,хотел бы увидеть описание всех функций и операторов с примерами.
...
Рейтинг: 0 / 0
Visual Basic 6
    #35800850
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
JogadorСпасибо большое,помогли! А какой вы посоветуете более полный учебник по VB, я столько лит-ры проштудировал,но про это не нашел? В частности,хотел бы увидеть описание всех функций и операторов с примерами.

MSDN - там есть все. Правда на английском...
...
Рейтинг: 0 / 0
Visual Basic 6
    #35800854
Jogador
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не, на русском
...
Рейтинг: 0 / 0
Visual Basic 6
    #35804136
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
JogadorНе, на русском

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


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