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

[Ципихович Эндрю]

здравствуйте может тут кто знает http://www.cyberforum.ru/vba/thread1161815.html
Спасибо

[AndVGri]

Доброе время суток.
Скорее всего проблему через ADO не решить. Если даже закавычить текст или задать свой TextDelimiter=' ограничитель текста, то в этом случае сохраняются только пробелы слева, справа в любом случае обрезаются.
Так что либо использовать Split, либо перед работой заменить, если возможно, ;, на, например, -;. А после получения значения, отбрасывать последний символ.

[Ципихович Эндрю]

перед работой заменить, если возможно - да возможно, как скажете
если возможно, ;, на, например, -;. - чуток не понятно
вместо ниже написанного
1 ;Chairs ;$40.00 ;
как писать?
1 -;Chairs -;$40.00 -;
попробовал, получил
[]
[Chairs -]
[$40.00 -]
хрен редьки не слаще

[AndVGri]

Эндрю
Оба варианта в примере, на мой взгляд, без учёта последующего использования, со Split проще. Я же подразумевал, что для чтения текста со значения поля текущей записи будет использоваться
Left$(rs("ID").Value, Len(rs("ID").Value) - 1)

[Ципихович Эндрю]

спасибо!, получилось, а теперь я скажу зачем это затевалось, конечная цель
в текстовом файле, откуда считываем - 100 000 срок
надо одним махом, то есть за пару секунд узнать есть ли в этом файле где нибудь в данных пробел и вывести эти данные
для этой экономии времени я и затевал ADO_и_SQL
это возможно? как?

[AndVGri]

есть ли в этом файле где нибудь в данных пробел и вывести эти данные

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

[Ципихович Эндрю]

спасибо, чуть изменил

On Error Resume Next
    Debug.Print "[" & Join(Split(rs(0).Value, ";"), "][") & "]"
    MsgBox$ Err.Number & " " & Err.Description
    If Err.Number = 3021 Then Beep
    rs.Close: cn.Close
End Sub

стало веселей, сорри, чуть занят, ещё не всё опробовал что надо
если что спрошу

[AndVGri]

Сообщение от Ципихович Эндрю

On Error Resume Next

Думаю, не стоит. Ошибка ведь скорее всего связана, что нет записей с пробелами. Это можно проверить через rs.RecordCount, если 0, то нет таких записей.

[Ципихович Эндрю]

я правильно понял
'% %', что это речь идёт о пробеле, в коде экранирование идёт, да?
а это два пробела '% %'", а как будет два пробела и более?
если текст в текстовом файле, такой
взмигиваем, взмигивают, 2, ют
то есть 4 слова
....1....................2........3 ...4
можно узнать ошибки такие:
если в слове 1 изменить количество букв слова 3 заменить на слово 4 будет ли оно равно слову 2??
где Вы об этом черпаете инфу, дайте пжл ссылку, но только если русский ресурс

[AndVGri]

Ципихович Эндрю, с праздиком!
Задача же шла о

узнать есть ли в этом файле где нибудь в данных пробел и вывести эти данные

По этому в schema.ini был установлен фиктивный разделитель полей таблицы |, то есть данные считывались как строка.
В ней фильтром Like отбирались строки, содержащие пробел (обычный Like, разница лишь в том, что для текстовых файлов драйвер баз данных Access вместо * - как любой последовательности символов использует %).
Можно сделать более жёсткий вариант фильтра, чтобы, например это текст, не попадали в фильтр (не выбирались бы сроки, содержащие пробел между словами), то есть искать пробелы только перед ; или только после ;.

rs.Open "Select F1 From [text1.txt] Where (F1 Like '% ;%') Or (F1 Like '%; %')", cn, adOpenStatic, adLockReadOnly

а как будет два пробела и более?

В этом случае ADO SQL для текстовых файлов на драйвере Access вам не помогут, насколько знаком, регулярные выражения поддерживаются в более серьёзных базах данных, например Oracle. Тогда только построчное чтение и регулярные выражения. Pattern будет что-то

RegExp.Global = True 'поиск всех вхождений
RegExp.Pattern = "; +| +;"

Тогда по коллекции вхождений по Length - 1 можно подсчитать число пробелов в перед/после каждого ;

если в слове 1 изменить количество букв слова 3 заменить на слово 4 будет ли оно равно слову 2??

Честно говоря, не понял эту фразу.