powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / ZEN. Как удалить пробелы?
8 сообщений из 8, страница 1 из 1
ZEN. Как удалить пробелы?
    #35016572
Фотография Аленочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем привет!

Кто-нибудь знает как в методе ZEN получить значение поля Name, очищенное от пробелов в начале и в конце строки? Может есть какие-нибудь стандартные функции ??

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Method CheckValue() As %Integer [ZenMethod]
{
  ///Проверка поля Name на пустое значение
  If %page.%GetValueById("Name")="" 
  { &js<alert('Нельзя добавить пустое значение!');>
	 Quit  1 
	  }
}



-----------------------------------------------
А мы тут плюшками балуемся...

Аленочка тм
...
Рейтинг: 0 / 0
ZEN. Как удалить пробелы?
    #35016625
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот наши "стандартные" функции
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Lt(Str)  ; Убрать левые пробелы
 Q $E(Str,$F(Str_".",$E($TR(Str_"."," ")))- 1 ,$L(Str))
Rt(Str)  ; Убрать правые пробелы
 N s,l
 S l=$L(Str),s=$J("",l)
 Q $E(Str, 0 ,$F(Str_s,s)-l- 1 )
At(S)  ; Убрать пробелы
 Q $$Rt($$Lt(S))
----------
Cache for Windows NT (Intel) 5.0.20 (Build 6305) Fri Sep 16 2005 11:54:10 EDT
...
Рейтинг: 0 / 0
ZEN. Как удалить пробелы?
    #35016630
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Только ZEN тут конечно ни при чем...
----------
Cache for Windows NT (Intel) 5.0.20 (Build 6305) Fri Sep 16 2005 11:54:10 EDT
...
Рейтинг: 0 / 0
ZEN. Как удалить пробелы?
    #35016642
logist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Аленочка привет.

> Кто-нибудь знает как в методе ZEN получить значение поля Name, очищенное
> от пробелов в начале и в конце строки? Может есть какие-нибудь
> стандартные функции ??
Нужно использовать функцию $zstrip

DIMAS>s str=" hello spases ! "

DIMAS>s srrip=$zstrip(str,"<>W")

DIMAS>w

srrip="hello spases !"
str=" hello spases ! "

> If %page.%GetValueById("Name")=""
If $zstrip(%page.%GetValueById("Name"),"<>W")=""

Любви.
logist (Сергей Шутов)
ООО Димас, Хабаровск
Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
ZEN. Как удалить пробелы?
    #35017158
Ptn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
krvsaВот наши "стандартные" функции
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Lt(Str)  ; Убрать левые пробелы
 Q $E(Str,$F(Str_".",$E($TR(Str_"."," ")))- 1 ,$L(Str))
Rt(Str)  ; Убрать правые пробелы
 N s,l
 S l=$L(Str),s=$J("",l)
 Q $E(Str, 0 ,$F(Str_s,s)-l- 1 )
At(S)  ; Убрать пробелы
 Q $$Rt($$Lt(S))
----------
Cache for Windows NT (Intel) 5.0.20 (Build 6305) Fri Sep 16 2005 11:54:10 EDT

А чем $ZSTRIP не угодил ? $ZSTRIP(Str,"<","W") , $ZSTRIP(Str,">","W"), $ZSTRIP(Str,"<>","W")

Из самописного нас пожалуй только функция "сжать" пробелы - оставляет между словами ровно по одному пробелу
...
Рейтинг: 0 / 0
ZEN. Как удалить пробелы?
    #35017162
Ptn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
... аргументы чуток попутал
...
Рейтинг: 0 / 0
ZEN. Как удалить пробелы?
    #35017553
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
PtnА чем $ZSTRIP не угодил?
Культур-мультур нам не хватает... Просто наши функции еще с MSM идут... А коней на переправе не меняют... (с)
...
Рейтинг: 0 / 0
ZEN. Как удалить пробелы?
    #35019304
Фотография Аленочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем спасибо ..
$zstrip - вот что было нужно!!



-----------------------------------------------
А мы тут плюшками балуемся...

Аленочка тм
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / ZEN. Как удалить пробелы?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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