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

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

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

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

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

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


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