|
Действия ...
|
28.10.2003, 14:50
|
|||
|---|---|---|---|
|
|||
Как убрать лишние пробелы в середине строки? |
|||
|
|
|
28.10.2003, 14:51
|
|||
|---|---|---|---|
|
|||
Как убрать лишние пробелы в середине строки? |
|||
|
|
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
28.10.2003, 14:44
|
|||
|---|---|---|---|
|
|||
Как убрать лишние пробелы в середине строки? |
|||
|
#18+
Наименование товара состоит зи нескольких слов. Например: Аллохол таб. №10 - т.е. количество пробелов после каждого слова не фиксировано. А нужно сделать так, чтобы после каждого слова в наименовании стояло по 1 пробелу. Подскажите какие-нибудь варианты!!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
28.10.2003, 14:49
|
|||
|---|---|---|---|
Как убрать лишние пробелы в середине строки? |
|||
|
#18+
слово=Replace(слово, " ", " ", 1, -1, vbTextCompare) При необходимости повторить N раз ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
28.10.2003, 14:50
|
|||
|---|---|---|---|
Как убрать лишние пробелы в середине строки? |
|||
|
#18+
StringReplace тебе в помощь 2 пробела меняешь на одын Сделать можно всё!!! Только бы знать как... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
28.10.2003, 14:51
|
|||
|---|---|---|---|
Как убрать лишние пробелы в середине строки? |
|||
|
#18+
Апаздал... (с) ЛП Аха в цикле пока длина текста не перестанет меняться Сделать можно всё!!! Только бы знать как... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
28.10.2003, 14:51
|
|||
|---|---|---|---|
Как убрать лишние пробелы в середине строки? |
|||
|
#18+
Точнее так (модераторы, подправьте, плиз) Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
28.10.2003, 15:10
|
|||
|---|---|---|---|
|
|||
Как убрать лишние пробелы в середине строки? |
|||
|
#18+
Вот готовая функция из Гетца, я проверял, работает: 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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=45&tablet=1&tid=1678615]: |
0ms |
get settings: |
9ms |
get forum list: |
11ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
54ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
29ms |
get tp. blocked users: |
1ms |
| others: | 211ms |
| total: | 329ms |
| 0 / 0 |
