Вверх ↑
Этот топик читают: Гость
Ответов: 315
Рейтинг: 1
#1: 2010-06-19 08:42:25 ЛС | профиль | цитата
Подскажите, как можно вычислить последнюю цифру с конца. Длина строки может быть разной.
карма: 0

0
Ответов: 5446
Рейтинг: 323
#2: 2010-06-19 08:47:33 ЛС | профиль | цитата
GS_Lab, взять остаток от деления на основание системы счисления
карма: 1

0
Ответов: 315
Рейтинг: 1
#3: 2010-06-19 08:52:53 ЛС | профиль | цитата
зарядил блин.... на схеме можешь показать?
карма: 0

0
Разработчик
Ответов: 26164
Рейтинг: 2127
#4: 2010-06-19 08:55:17 ЛС | профиль | цитата
На вот тебе для строки любой длины, а не для числа

code_18934.txt

(можно получить любое количество цифр с конца)

а вот для числа, но длина ограничена

code_18935.txt

а вот первый вариант, но строго для одного символа



Add(MainForm,2953706,49,168)
{
}
Add(Edit,10503764,168,112)
{
Left=55
Top=25
Width=140
Text="12345678"
}
Add(Str_Enum,8045601,168,168)
{
Delimiter=""
Direct=1
link(onEnum,13518115:doEvent1,[])
link(String,10503764:Text,[])
}
Add(Hub,13518115,217,168)
{
link(onEvent1,8045601:doStop,[(241,174)(241,155)(156,155)(156,181)])
link(onEvent2,34959:doText,[])
}
Add(Edit,34959,252,175)
{
Left=200
Top=25
Width=55
Text=""
}
Add(Button,138652,98,168)
{
Left=140
Top=50
link(onClick,8045601:doEnum,[])
}

карма: 22

1
файлы: 2code_18934.txt [716B] [128], code_18935.txt [427B] [115]
Голосовали:GS_Lab
Ответов: 315
Рейтинг: 1
#5: 2010-06-19 08:58:25 ЛС | профиль | цитата
Спасибо, nesco, вопрос решен!
карма: 0

0
Разработчик
Ответов: 26164
Рейтинг: 2127
#6: 2010-06-19 08:59:49 ЛС | профиль | цитата
iarspider писал(а):
оба кода - error

Добавлял еще один пример.

iarspider, error возникает тогда, когда пост находится в режиме редактирования автором
карма: 22

0
Ответов: 5446
Рейтинг: 323
#7: 2010-06-19 09:03:42 ЛС | профиль | цитата
nesco, эм... А чего так сложно-то в code_18934.txt? Вроде же теперь Copy поддерживает копирование задом-наперёд.
карма: 1

1
Голосовали:GS_Lab
Ответов: 315
Рейтинг: 1
#8: 2010-06-19 09:06:57 ЛС | профиль | цитата
iarspider, кстати да, еще проще..
карма: 0

0
Разработчик
Ответов: 26164
Рейтинг: 2127
#9: 2010-06-19 10:40:53 ЛС | профиль | цитата
На одну схему три варианта и все работают
------------ Дoбавленo в 10.40:
iarspider писал(а):
Вроде же теперь Copy поддерживает копирование задом-наперёд

Тут вопрос спорный. Надо точно проверить, но на мой взгляд Copy работает медленнее, чем StrEnum
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#10: 2010-06-19 11:07:37 ЛС | профиль | цитата
GS_Lab писал(а):
кстати да, еще проще
Если отбросить любовь к лишним компонентам, то там тоже просто
code_18936.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_18936.txt [422B] [115]
Разработчик
Ответов: 26164
Рейтинг: 2127
#11: 2010-06-19 11:14:17 ЛС | профиль | цитата
Tad писал(а):
Если отбросить любовь к лишним компонентам, то там тоже просто

Да что ж вы все за всех думаете. Пусть народ сам мозгами пошевелит
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#12: 2010-06-19 11:23:04 ЛС | профиль | цитата
nesco, Имея в Str_Enum свойства From и To , советовать народу If_Else и точку doStop как-то... вроде и не совет.

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1841
Рейтинг: 369
#13: 2010-06-19 11:25:16 ЛС | профиль | цитата
Вот мои 3 теста определяющие какой способ наиболее быстрый
code_18938.txt
карма: 1
0
файлы: 1code_18938.txt [3.2KB] [128]
Разработчик
Ответов: 26164
Рейтинг: 2127
#14: 2010-06-19 11:26:23 ЛС | профиль | цитата
Tad писал(а):
Хотя From и To при Reverse как-то работают нелогично

Почему
Tad писал(а):
Имея в Str_Enum свойства From и To

Ну вот выбило из головы у меня, что при Reverse они тоже работают, не могу же я помнить все на свете
карма: 22

0
Ответов: 1841
Рейтинг: 369
#15: 2010-06-19 11:27:04 ЛС | профиль | цитата
млин, пока тестил вы тут уже 3 поста оставили
карма: 1
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)