Удаление пробелов в строке

[aimk0]

Добрый день!
Есть таблица(Access), нужно удалить пробелы в строках(между словами в строке, перед и после строки).
Для удаления между словами пробовал использовать replace

SELECT REPLACE(naim, ' ', '') FROM table1

Функция Replace не поддерживается...
Есть еще какие-нибудь способы удаления пробелов?

[Stilet]

А функция trim()?

[D-mon]

Сообщение от Stilet

А функция trim()?

LTrim и RTrim, и Trim - удаляют пробелы слева, сврава и слева/права соответвсвенно... А если надо удалить в середине строки

[D-mon]

Сообщение от aimk0

Добрый день!
Есть таблица(Access), нужно удалить пробелы в строках(между словами в строке, перед и после строки).
Для удаления между словами пробовал использовать replace

SELECT REPLACE(naim, ' ', '') FROM table1

Функция Replace не поддерживается...
Есть еще какие-нибудь способы удаления пробелов?

http://www.techonthenet.com/access/f...ng/replace.php

[rdama]

AnsiReplaceStr(Исходная строка,что меняем, на что меняем)
Но это уже не в запросе.

[Sparkman]

1) Alt+F11;
2) слева щелкаем правой кнопкой мыши на имени БД;
3) выбираем Insert -> Module;
4) в появившемся модуле пишем

Public Function Replace97(strExpression As String, _
                     strFind As String, _
                     strReplace As String, _
                     Optional lngStart As Long = 1, _
                     Optional lngCount As Long = -1, _
                     Optional vbcCompare As VbCompareMethod = -1) As String
'strExpression - исходная строка в которой выполняется поиск
'strFind - искомая подстрока
'strReplace - новое значение
'lngStart - Необязательный. стартовая позиция, по умолчанию с 1-й
'lngCount - Необязательный. Количество замен, по умолчанию без ограничения
'vbcCompare - Необязательный. Указывает способ сравнения строк. см. Hepl по InStr()
    
    
    Dim intPos As Integer, lngFCount As Long
    Dim strFinishExpression As String
    
   strExpression = Mid$(strExpression, lngStart)
    If (vbcCompare = -1) Then
       intPos = InStr(lngStart, strExpression, strFind)
    Else
       intPos = InStr(lngStart, strExpression, strFind, vbcCompare)
    End If
    
    While (lngCount <> 0) And (intPos > 0) And (lngCount <> lngFCount)
       strFinishExpression = strFinishExpression & Left$(strExpression, intPos - 1) & strReplace
       strExpression = Mid$(strExpression, intPos + Len(strFind))
       lngFCount = lngFCount + 1
       If (vbcCompare = -1) Then
           intPos = InStr(lngStart, strExpression, strFind)
       Else
           intPos = InStr(lngStart, strExpression, strFind, vbcCompare)
       End If
   Wend
   Replace97 = strFinishExpression & strExpression
End Function

5) используем в запросе Replace97(strExpression As String, _
strFind As String, _
strReplace As String, _
Optional lngStart As Long = 1, _
Optional lngCount As Long = -1, _
Optional vbcCompare As VbCompareMethod = -1).

пс: функцию дернул отсюда
пс2: в офисе 2007 функция replace уже есть.

[aimk0]

Всем спасибо!
Пока сделал через AnsiReplaceStr, все работает, только в uses надо было еще добавить StrUtils.
Можно еще использовать StringReplace - заменяет одну или несколько подстрок в заданной строке, результат такой же.

[rdama]

Да забыл про StrUtils.
Кстати Sparkman, а как твой вариант будет жить с отключенными макросами?