powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как убрать лишние пробелы в середине строки?
6 сообщений из 6, страница 1 из 1
Как убрать лишние пробелы в середине строки?
    #32307551
alisa_l
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Наименование товара состоит зи нескольких слов.
Например: Аллохол таб. №10 - т.е. количество пробелов после каждого слова не фиксировано. А нужно сделать так, чтобы после каждого слова в наименовании стояло по 1 пробелу.
Подскажите какие-нибудь варианты!!!
...
Рейтинг: 0 / 0
Как убрать лишние пробелы в середине строки?
    #32307562
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
слово=Replace(слово, " ", " ", 1, -1, vbTextCompare)

При необходимости повторить N раз
...
Рейтинг: 0 / 0
Как убрать лишние пробелы в середине строки?
    #32307566
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
StringReplace тебе в помощь 2 пробела меняешь на одын

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
Как убрать лишние пробелы в середине строки?
    #32307569
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Апаздал... (с) ЛП

Аха в цикле пока длина текста не перестанет меняться

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
Как убрать лишние пробелы в середине строки?
    #32307571
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Точнее так (модераторы, подправьте, плиз)

Код: plaintext
строка=Replace(строка,  "  " ,  " " ,  1 , - 1 , vbTextCompare)
...
Рейтинг: 0 / 0
Как убрать лишние пробелы в середине строки?
    #32307609
Michael Vasilev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот готовая функция из Гетца, я проверял, работает:

Public Function dhTrimAll(ByVal strText As String) As String
Dim strTemp As String
Dim strOut As String
Dim lngI As Long
Dim strCh As String * 1

strTemp = Trim$(strText)
For lngI = 1 To Len(strTemp)
strCh = Mid$(strTemp, lngI, 1)
If Not (strCh = " " And Right$(strOut, 1) = " ") Then
strOut = strOut & strCh
End If
Next lngI
dhTrimAll = strOut
End Function
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как убрать лишние пробелы в середине строки?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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