1544 / 441 / 45
Регистрация: 10.04.2009
Сообщений: 7,604
1

Точное считывание с текстового файла

29.04.2014, 19:18. Показов 2882. Ответов 2
Метки нет (Все метки)

здравствуйте, на j:\ лежат файлы
С_помощью_ADO_и_SQL_опрашивать_текстовые_файлы.txt
ID;Name;Price;
1 ;Chairs ;$40.00 ;
2;Table;$75.00;
3;Fork;$1.50;
4;Lamp;$15.00;
5;Rug;$35.00;
Schema.ini
[С_помощью_ADO_и_SQL_опрашивать_текстовые_файлы.txt]
Format=Delimited(;) - здесь в скобках точка с запятой, на форуме отображает по другому, сорри
ColNameHeader=True
n=ColumnNametype [Text]
CharacterSet=ANSI
в ворде пользуюсь кодом
Visual Basic
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
31
32
33
34
35
36
37
38
39
40
41
42
Option Explicit
 
Public Sub test()
 
'Connection - соединение с базой данных
'Command - команда DML
'Recordset - набор записей
'Stream - поток двоичных или текстовых данных
'Record -Запись
'нужно подключить библиотеку Microsoft ActiveX Data Object 2.x Library
 
    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    '"х:\" -  директория, где хранится файл
    'в каталоге, например "х:\" - директории, где хранится файл должен быть файл с именем Schema.ini, его задача дать нужную информацию программе
    'каждая запись Schema.ini указывает на один из пяти характеристик таблицы:
    'первая запись в Schema.ini - имя исходного текстового файла в квадратных скобках - [С_помощью_ADO_и_SQL_опрашивать_текстовые_файлы.txt]
    'вторая запись в Schema.ini - формат файла, поля в файле разделены Format=Delimited(;)
    'третья запись в Schema.ini - имена полей, ширина и типы, ColNameHeader = True - включить имена полей в первой строке таблицы
    'четвёртая запись в Schema.ini - набор символов
    'пятаая запись в С_помощью_ADO_и_SQL_опрашивать_текстовые_файлы#txt Schema.ini - преобразования данных специального типа
    'апостроф ' в Schema.ini как и в VBA, VB является началом коммента
 
    'HDR = YES указывает, что первая строка содержит columnnames, а не данные, HDR = NO; свидетельствует об обратном
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=j:\;Extended Properties=""text;HDR=YES;FMT=Delimited"""
    'открыть соединение с базой данных
    cn.Open
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    'имя файла к которому идёт обращение "С_помощью_ADO_и_SQL_опрашивать_текстовые_файлы"
    rs.Open "select * from [С_помощью_ADO_и_SQL_опрашивать_текстовые_файлы#txt]", cn
    'пример обращений к столбцам выборки, можно менять сам запрос и тем самым получать столбец, строку
    Debug.Print "[" & rs.Fields("ID").Value & "]"
    Debug.Print "[" & rs.Fields("Name").Value & "]"
    Debug.Print "[" & rs.Fields("Price").Value & "]"
 
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
 
End Sub
в интермедии получаю
[1]
[Chairs]
[40.00]
как добиться более верного ответа
[1 ]
[Chairs ]
[40.00 ]
??, спасибо
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.04.2014, 19:18
Ответы с готовыми решениями:

Считывание текстового файла
Коллеги! Уперся в стену непонимания. Есть файл с данными, такого вида: 2015.11.02...

Считывание текстового файла
Здравствуйте, уважаемые форумчане. Была задачка - написать программу, которая выводит на экран...

Считывание из текстового файла
void __fastcall TForm1::N7Click(TObject *Sender) { string number, name, name2, name3, date, rol,...

Считывание из текстового файла
Всем привет. У меня есть текстовый файл в котором, к примеру записана информация:"Фамилия Имя"....

2
Заблокирован
30.04.2014, 07:38 2
Цитата Сообщение от Ципихович Эндрю Посмотреть сообщение
здесь в скобках точка с запятой
Расширенный режим - Дополнительные опции - Отключить смайлы в тексте (галочку поставить)
0
1544 / 441 / 45
Регистрация: 10.04.2009
Сообщений: 7,604
30.04.2014, 07:56  [ТС] 3
буду знать, спасибо
апну тему, по существу у кого есть?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.04.2014, 07:56
Помогаю со студенческими работами здесь

Считывание из текстового файла
Как в матлабе считать данные с текстового файла? Точнее правильно считать, например, двойной...

Считывание текстового файла
Помогите, пожалуйста, разобраться. При считывании текстового файла, последние несколько символов...

Считывание из текстового файла
Вообщем есть текстовый файл следующего содержания 2.10 3.08 4.16 5.17 3.08 5.66 9.55 6.91 4.54...

Считывание из текстового файла
Нужно модифицировать программу. Чтобы пользователь вводил текст НЕ в диалоговом окне, а текст был...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru