Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Слипшийся текст  [new]
nataxa23
Member

Откуда:
Сообщений: 193
Нужно в запросе выполнить функцию, которая разделяет слипшийся текст.
В нете есть код, но он работает в Excel, в Access он не работает должным образом. Текст в ячейке становится разряженный пробелами. Не понимаю, почему условие с оператором Like в коде срабатывает косячно?
Помогите разобраться?

___________________________________
Использую Microsoft Office 2010, Windows 64 бит.

Спасибо каждому, кто мне когда-либо здесь помог и продолжает помогать.

К сообщению приложен файл (СлипшийсяТекст.rar - 44Kb) cкачать
12 фев 20, 19:08    [22078712]     Ответить | Цитировать Сообщить модератору
 Re: Слипшийся текст  [new]
Akina
Member

Откуда: Зеленоград, Москва, Россия
Сообщений: 20002
Мда-с...

Option Compare кривой.
12 фев 20, 20:49    [22078790]     Ответить | Цитировать Сообщить модератору
 Re: Слипшийся текст  [new]
nataxa23
Member

Откуда:
Сообщений: 193
Akina
Мда-с...

Option Compare кривой.

Ага...
Option Compare Binary
Уже разобралась, спс
12 фев 20, 22:11    [22078826]     Ответить | Цитировать Сообщить модератору
 Re: Слипшийся текст  [new]
ПЕНСИОНЕРКА
Member

Откуда: Владимирская обл
Сообщений: 4628
nataxa23
Akina
Мда-с...

Option Compare кривой.

Ага...
Option Compare Binary
Уже разобралась, спс

не сталкивалась с подобным
Option Compare Binary
Option Explicit

Function CutWords(Txt As Variant) As Variant
  Dim Out$
  Dim i As Integer
  
  If Len(Txt) = 0 Then Exit Function
  For i = 1 To Len(Txt)
  ''слова слиплись ИвановИванПетрович
  ''разделение слова между малой и большой буквами
    If Mid(Txt, i, 1) Like "[a-za-яё]" And Mid(Txt, i + 1, 1) Like "[A-ZA-ЯЁ]" Then
      Out = Out & Mid(Txt, i, 1) & " "
    Else
      Out = Out & Mid(Txt, i, 1)
    End If
  Next i
  CutWords = Out
End Function
13 фев 20, 08:20    [22078953]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить