Войти
NeoBooker.ru
Добро пожаловать к нам в гости!
Наш сайт посвящён программе NeoBook, с помощью которой вы легко сможете создавать собственные мультимедиа-приложения без необходимости изучать сложные языки программирования! Зарегистрируйтесь, чтобы стать членом нашего сообщества.
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: Peter, DEMBEL, YURIY  
Разделитель чисел
PeterДата: Вс, 09 Октября 2011, 19:44 | Сообщение # 31
Админ NeoBook
Quote (mishem)
Peter, похоже я не дождался автора сабжа.

Quote (Сергей)
автор уже решил сабж

Да и фиг с ним!
:D
Quote (mishem)
Выкладываю все три примера.

Ага, посмотрел...

Потому выкладываю и свой код (хватит в шпионов играть):
:D
Code
StrLen "[TextEntry1]" "[Len]"
IfEx "([Len] = 4) AND ([Len2] < [Len])"
   StrIns "[DecimalSymbol]" "[TextEntry1]" "2" "[TextEntry1]"
  Else
   If "[Len]" ">" "4"
     StrParse "[TextEntry1]" "[DecimalSymbol]" "[Temp]" "[n]"
     StrLen "[Temp[n]]" "[Len1]"
     If "[Len1]" ">" "3"
       StrIns "[DecimalSymbol]" "[TextEntry1]" "[Len]" "[TextEntry1]"
     EndIf
   EndIf
EndIf
ClearVariables "[Len],[Len1],[n]"
DeleteArray "[Temp]" "All"
StrLen "[TextEntry1]" "[Len2]"

Все это для одного единственного TextEntry1, так-что надо просто скопипастить для его события TextChange.
Quote (mishem)
Не с делением на 1000?

Нет я писАл с лету не учитывая "математику", а просто для символов.
Хотя, через деление может даже оно и лучше...

Но, все наши с тобой коды (и мой и твои, сейчас обнаружил) имеют неучтенные баги, и их надо дорабатывать.
Да пусть это делают кому нужно!
А то ваще:
Quote (Гарик)
Или ты думаешь, что только в твоей NB есть объект TextEntry для ввода данных
Вот я у себя лично искал и не нашёл и пришлось прибегнуть к методу Кадони и Элвиса

Уже TextEntry найти не могут, блин!
Это до чего ж надо допиться-то?!
:)
mishem, похоже на то, что "покруче" тебя люди имеются...
:D


- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение
Quote (mishem)
Peter, похоже я не дождался автора сабжа.

Quote (Сергей)
автор уже решил сабж

Да и фиг с ним!
:D
Quote (mishem)
Выкладываю все три примера.

Ага, посмотрел...

Потому выкладываю и свой код (хватит в шпионов играть):
:D
Code
StrLen "[TextEntry1]" "[Len]"
IfEx "([Len] = 4) AND ([Len2] < [Len])"
   StrIns "[DecimalSymbol]" "[TextEntry1]" "2" "[TextEntry1]"
  Else
   If "[Len]" ">" "4"
     StrParse "[TextEntry1]" "[DecimalSymbol]" "[Temp]" "[n]"
     StrLen "[Temp[n]]" "[Len1]"
     If "[Len1]" ">" "3"
       StrIns "[DecimalSymbol]" "[TextEntry1]" "[Len]" "[TextEntry1]"
     EndIf
   EndIf
EndIf
ClearVariables "[Len],[Len1],[n]"
DeleteArray "[Temp]" "All"
StrLen "[TextEntry1]" "[Len2]"

Все это для одного единственного TextEntry1, так-что надо просто скопипастить для его события TextChange.
Quote (mishem)
Не с делением на 1000?

Нет я писАл с лету не учитывая "математику", а просто для символов.
Хотя, через деление может даже оно и лучше...

Но, все наши с тобой коды (и мой и твои, сейчас обнаружил) имеют неучтенные баги, и их надо дорабатывать.
Да пусть это делают кому нужно!
А то ваще:
Quote (Гарик)
Или ты думаешь, что только в твоей NB есть объект TextEntry для ввода данных
Вот я у себя лично искал и не нашёл и пришлось прибегнуть к методу Кадони и Элвиса

Уже TextEntry найти не могут, блин!
Это до чего ж надо допиться-то?!
:)
mishem, похоже на то, что "покруче" тебя люди имеются...
:D

Автор - Peter
Дата добавления - 09 Октября 2011 в 19:44
mishemДата: Вс, 09 Октября 2011, 19:53 | Сообщение # 32
Эксперт форума
Quote (Peter)
Да пусть это делают кому нужно!

Эт точно. Я просто взялся из за того, что Гарик не смог сразу в нужную сторону пойти, а что уж о молодежи говорить. ;)

Quote (Peter)
mishem, похоже на то, что "покруче" тебя люди имеются...

Ну не знаю. Объекты в НБ я в любом состоянии нахожу. :D


Не хочешь читать хелп?

Если хелп и форум не помогли, тогда все ответы здесь



Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.
 
Сообщение
Quote (Peter)
Да пусть это делают кому нужно!

Эт точно. Я просто взялся из за того, что Гарик не смог сразу в нужную сторону пойти, а что уж о молодежи говорить. ;)

Quote (Peter)
mishem, похоже на то, что "покруче" тебя люди имеются...

Ну не знаю. Объекты в НБ я в любом состоянии нахожу. :D

Автор - mishem
Дата добавления - 09 Октября 2011 в 19:53
PeterДата: Вс, 09 Октября 2011, 19:58 | Сообщение # 33
Админ NeoBook
Quote (mishem)
Объекты в НБ я в любом состоянии нахожу.

Ты-то находишь, я и не сомневался.
Я (хоть и не "боец") тоже найду, если до компа дойти сил ватит!
А вот другие...
:D


- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение
Quote (mishem)
Объекты в НБ я в любом состоянии нахожу.

Ты-то находишь, я и не сомневался.
Я (хоть и не "боец") тоже найду, если до компа дойти сил ватит!
А вот другие...
:D

Автор - Peter
Дата добавления - 09 Октября 2011 в 19:58
mishemДата: Вс, 09 Октября 2011, 20:04 | Сообщение # 34
Эксперт форума
Quote (Peter)
имеют неучтенные баги

Я вроде свои проверял, но мож что и не доглядел. Делал с учетом что расстановка запятых ассоциируется с целыми числами, а не с дробными, типа 0,12. И если впереди находится 0, то 1 000 не может ни как начаться с 0. И не учитывал отрецательные числа.
По этому конечно совсем уж без труда не получиться скопипастить. :D


Не хочешь читать хелп?

Если хелп и форум не помогли, тогда все ответы здесь



Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.
 
Сообщение
Quote (Peter)
имеют неучтенные баги

Я вроде свои проверял, но мож что и не доглядел. Делал с учетом что расстановка запятых ассоциируется с целыми числами, а не с дробными, типа 0,12. И если впереди находится 0, то 1 000 не может ни как начаться с 0. И не учитывал отрецательные числа.
По этому конечно совсем уж без труда не получиться скопипастить. :D

Автор - mishem
Дата добавления - 09 Октября 2011 в 20:04
ГарикДата: Вс, 09 Октября 2011, 20:07 | Сообщение # 35
Quote (Peter)
Уже TextEntry найти не могут, блин!

Так у меня его и нет, он ведь только у mishemа
Я всегда скромно (Кадони, Элвис), что в дeлфях, что в NB.
:D
Это до чего ж надо допиться-то?!
Это точно, только я последний раз был "Дрова" где-то лет 5 назад, с тех пор только пиво
Так что скорей всего эта цитата относится к кому-то другому (не будем показывать пальцем)
:D
 
Сообщение
Quote (Peter)
Уже TextEntry найти не могут, блин!

Так у меня его и нет, он ведь только у mishemа
Я всегда скромно (Кадони, Элвис), что в дeлфях, что в NB.
:D
Это до чего ж надо допиться-то?!
Это точно, только я последний раз был "Дрова" где-то лет 5 назад, с тех пор только пиво
Так что скорей всего эта цитата относится к кому-то другому (не будем показывать пальцем)
:D

Автор - Гарик
Дата добавления - 09 Октября 2011 в 20:07
PeterДата: Вс, 09 Октября 2011, 20:08 | Сообщение # 36
Админ NeoBook
Quote (mishem)
Я вроде свои проверял

Я тоже, но потом попробовал поставить курсор в середину строчки и начать удаление...
;)
Удаляется -то все без "шума и пыли согласно установленного плану", но вот форматирование нарушается.
У тебя похожий баг, хотя и не такой же как мой.

Да и фиг с ними!
:D


- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение
Quote (mishem)
Я вроде свои проверял

Я тоже, но потом попробовал поставить курсор в середину строчки и начать удаление...
;)
Удаляется -то все без "шума и пыли согласно установленного плану", но вот форматирование нарушается.
У тебя похожий баг, хотя и не такой же как мой.

Да и фиг с ними!
:D

Автор - Peter
Дата добавления - 09 Октября 2011 в 20:08
ГарикДата: Вс, 09 Октября 2011, 20:11 | Сообщение # 37
 
Сообщение

Автор - Гарик
Дата добавления - 09 Октября 2011 в 20:11
mishemДата: Вс, 09 Октября 2011, 20:15 | Сообщение # 38
Эксперт форума
Quote (Гарик)
с тех пор только пиво

Что то я помню кто то говорил что с литра пива, мордой в клаве. Или это не ты?

Добавлено (09 Октябрь 2011, 20:15)
---------------------------------------------
У юмора и глупости небольшая грань. ;)
Не переживай, у меня все прекрасно с юмором.


Не хочешь читать хелп?

Если хелп и форум не помогли, тогда все ответы здесь



Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.
 
Сообщение
Quote (Гарик)
с тех пор только пиво

Что то я помню кто то говорил что с литра пива, мордой в клаве. Или это не ты?

Добавлено (09 Октябрь 2011, 20:15)
---------------------------------------------
У юмора и глупости небольшая грань. ;)
Не переживай, у меня все прекрасно с юмором.


Автор - mishem
Дата добавления - 09 Октября 2011 в 20:15
ГарикДата: Вс, 09 Октября 2011, 20:22 | Сообщение # 39
не помню где, но там помойму было сравнение дозняков .
Утебя там лошадиный какой-то вроде
:D

P.S флудеры

Добавлено (09 Октябрь 2011, 20:22)
---------------------------------------------

Quote (mishem)
У юмора и глупости небольшая грань.

Значит всё-таки торкнуло.
:D
 
Сообщениене помню где, но там помойму было сравнение дозняков .
Утебя там лошадиный какой-то вроде
:D

P.S флудеры

Добавлено (09 Октябрь 2011, 20:22)
---------------------------------------------

Quote (mishem)
У юмора и глупости небольшая грань.

Значит всё-таки торкнуло.
:D

Автор - Гарик
Дата добавления - 09 Октября 2011 в 20:22
PeterДата: Вс, 09 Октября 2011, 20:26 | Сообщение # 40
Админ NeoBook
Quote (Гарик)
Утебя там лошадиный какой-то вроде

Да, но зато он TetEntry находит без проблем!
:D
Quote (mishem)
У юмора и глупости небольшая грань.

В точку! thumbs_up


- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение
Quote (Гарик)
Утебя там лошадиный какой-то вроде

Да, но зато он TetEntry находит без проблем!
:D
Quote (mishem)
У юмора и глупости небольшая грань.

В точку! thumbs_up

Автор - Peter
Дата добавления - 09 Октября 2011 в 20:26
mishemДата: Вс, 09 Октября 2011, 20:34 | Сообщение # 41
Эксперт форума
Quote (Peter)
в середину строчки и начать удаление...

Сначала удалял, не понял, все работает. Оказалось что нужно пробел поставить. :D
Ладно, думаю что к этому вопросу все равно когда то придется вернуться. :D

Quote (Гарик)
Значит всё-таки торкнуло.

Если б торкнуло, то я б ответил еще в самом начале.
Юмор про TetEntry не увидел, .....
Об этом было написано для тех, кто просто скопипастил и не смог бы понять что и как.
В дальнейшем выложил пример.

Да и вообще в 11 сообщении увидел, и не только я сплошную глупость.
Меня то почему должно это торкать? :D


Не хочешь читать хелп?

Если хелп и форум не помогли, тогда все ответы здесь



Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.
 
Сообщение
Quote (Peter)
в середину строчки и начать удаление...

Сначала удалял, не понял, все работает. Оказалось что нужно пробел поставить. :D
Ладно, думаю что к этому вопросу все равно когда то придется вернуться. :D

Quote (Гарик)
Значит всё-таки торкнуло.

Если б торкнуло, то я б ответил еще в самом начале.
Юмор про TetEntry не увидел, .....
Об этом было написано для тех, кто просто скопипастил и не смог бы понять что и как.
В дальнейшем выложил пример.

Да и вообще в 11 сообщении увидел, и не только я сплошную глупость.
Меня то почему должно это торкать? :D

Автор - mishem
Дата добавления - 09 Октября 2011 в 20:34
ГарикДата: Вс, 09 Октября 2011, 20:36 | Сообщение # 42
Quote (Peter)
Да, но зато он TetEntry находит без проблем!

Это кто сказал mishem.Хм...что-то я сильно сомневаюсь
После таких дозняков не то что TetEntry не отстрелишь, но и монитор с обоями перепутаешь
:D
Quote (Peter)
В точку!

Во. адвокатура подключилась.
Двое против одного >(

Врагу не сдаётся наш гордый Варяг....................
:D
 
Сообщение
Quote (Peter)
Да, но зато он TetEntry находит без проблем!

Это кто сказал mishem.Хм...что-то я сильно сомневаюсь
После таких дозняков не то что TetEntry не отстрелишь, но и монитор с обоями перепутаешь
:D
Quote (Peter)
В точку!

Во. адвокатура подключилась.
Двое против одного >(

Врагу не сдаётся наш гордый Варяг....................
:D

Автор - Гарик
Дата добавления - 09 Октября 2011 в 20:36
СергейДата: Вс, 09 Октября 2011, 20:51 | Сообщение # 43
Необукер
Прикрепления: DONIC.rar (2.6 Kb)
 
Сообщение

Автор - Сергей
Дата добавления - 09 Октября 2011 в 20:51
mishemДата: Вс, 09 Октября 2011, 20:59 | Сообщение # 44
Эксперт форума

Добавлено (09 Октябрь 2011, 20:59)
---------------------------------------------

Quote (Сергей)
Пытался учесть многие факторы типа 098,

Quote (mishem)
Делал с учетом что расстановка запятых ассоциируется с целыми числами, а не с дробными, типа 0,12. И если впереди находится 0, то 1 000 не может ни как начаться с 0.

то есть это уже будет не верно.
Да и много там заморочек. Кстати если пробел, то можно это считать как опечатка и соединять цифры. Все это надо ли бо учитывать, ли бо делать именно под нужды автора. Так как вариантов куча... :)


Не хочешь читать хелп?

Если хелп и форум не помогли, тогда все ответы здесь



Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.
 
Сообщение

Добавлено (09 Октябрь 2011, 20:59)
---------------------------------------------

Quote (Сергей)
Пытался учесть многие факторы типа 098,

Quote (mishem)
Делал с учетом что расстановка запятых ассоциируется с целыми числами, а не с дробными, типа 0,12. И если впереди находится 0, то 1 000 не может ни как начаться с 0.

то есть это уже будет не верно.
Да и много там заморочек. Кстати если пробел, то можно это считать как опечатка и соединять цифры. Все это надо ли бо учитывать, ли бо делать именно под нужды автора. Так как вариантов куча... :)

Автор - mishem
Дата добавления - 09 Октября 2011 в 20:59
ГарикДата: Вс, 09 Октября 2011, 21:03 | Сообщение # 45
 
Сообщение

Автор - Гарик
Дата добавления - 09 Октября 2011 в 21:03
СергейДата: Вс, 09 Октября 2011, 21:07 | Сообщение # 46
Необукер
 
Сообщение

Автор - Сергей
Дата добавления - 09 Октября 2011 в 21:07
SScrewДата: Чт, 13 Октября 2011, 16:59 | Сообщение # 47
Любопытный
Мой вариант был такой же как у Гарика, до тех вариантов что тут выложили, вряд ли догадался бы так быстро :)
P.S.
Всем спасибо за помощь и сорри то не ответил - на работе завал. Тема в будущем, думаю будет полезна многим. :)
 
СообщениеМой вариант был такой же как у Гарика, до тех вариантов что тут выложили, вряд ли догадался бы так быстро :)
P.S.
Всем спасибо за помощь и сорри то не ответил - на работе завал. Тема в будущем, думаю будет полезна многим. :)

Автор - SScrew
Дата добавления - 13 Октября 2011 в 16:59
mishemДата: Чт, 13 Октября 2011, 19:45 | Сообщение # 48
Эксперт форума
SScrew, имей ввиду что
Quote (mishem)
конечно совсем уж без труда не получиться скопипастить.

нужно будет доработать под свои нужды.


Не хочешь читать хелп?

Если хелп и форум не помогли, тогда все ответы здесь



Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.
 
СообщениеSScrew, имей ввиду что
Quote (mishem)
конечно совсем уж без труда не получиться скопипастить.

нужно будет доработать под свои нужды.

Автор - mishem
Дата добавления - 13 Октября 2011 в 19:45
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск: