Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#16: 2011-07-22 22:43:22 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 16:05:11
карма: 0

0
Ответов: 3851
Рейтинг: 159
#17: 2011-07-22 22:55:16 ЛС | профиль | цитата

nesco прав - если начинается с "+7", а дальше 10 цифр, то это номер (РФ) ИМХО. То есть маска = "+7##########". простой анализ на отсутствие в реальных списках строк (хотя бы одной), удовлетворяющих маске, укажет на правильность пути (а на правдивость его укажет провайдер :-)
карма: 0
начавший
0
Ответов: 8930
Рейтинг: 823
#18: 2011-07-22 23:11:14 ЛС | профиль | цитата
г. -=Alex=-, ну тогда ещё вариант (вариантов может быть много ) code_24696.txt
карма: 19

0
файлы: 1code_24696.txt [3.2KB] [284]
Гость
Ответов: 17029
Рейтинг: 0
#19: 2011-07-22 23:17:51 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 16:05:12
карма: 0

0
Ответов: 1058
Рейтинг: 76
#20: 2011-07-22 23:21:01 ЛС | профиль | цитата
г. -=Alex=- писал(а):
очистку списк от повторных вариантов

Присмотритесь к елементу ArrayFilterRepeats
карма: 0

0
Ответов: 3851
Рейтинг: 159
#21: 2011-07-22 23:23:01 ЛС | профиль | цитата
г. -=Alex=- писал(а):
от повторных вариантов
классический вариант от Dilma - использовать ChangeMon в ArrayEnumArray-переборе после сортировки
карма: 0
начавший
0
Гость
Ответов: 17029
Рейтинг: 0
#22: 2011-07-22 23:23:32 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 16:05:12
карма: 0

0
Ответов: 1058
Рейтинг: 76
#23: 2011-07-22 23:26:36 ЛС | профиль | цитата
Типа так?


Add(MainForm,3462516,378,91)
{
Width=438
Height=279
BorderStyle=1
}
Add(Position,15941541,441,168)
{
Target="+"
link(onSearch,12722431:doCompare,[])
link(Str,14241677:Var2,[])
}
Add(If_else,12722431,490,168)
{
Type=2
Op2=Integer(0)
link(onTrue,3366092:doCopy,[])
}
Add(Button,11020374,315,168)
{
Left=10
Top=215
Width=105
Caption="Старт"
link(onClick,6011093:doEvent1,[])
}
Add(StrList,10579880,441,91)
{
FileName="License.txt"
Strings=#81:Алексей Варкаксин, 21.10.1976, Нвосибирск ул трудовая 47 кв xx, тел: +7913765xxxx|82:Алексей Варкаксин, 21.10.1976, тел: +7915769xxxx, Нвосибирск ул трудовая 47 кв xx|81:Алексей Варкаксин, 21.10.1976, Нвосибирск ул трудовая 47 кв xx, тел: +7913765xxxx|82:Алексей Варкаксин, 21.10.1976, тел: +7915769xxxx, Нвосибирск ул трудовая 47 кв xx|81:Алексей Варкаксин, 21.10.1976, Нвосибирск ул трудовая 47 кв xx, тел: +7913765xxxx|82:Алексей Варкаксин, 21.10.1976, тел: +7915769xxxx, Нвосибирск ул трудовая 47 кв xx|
}
Add(Copy,3366092,539,168)
{
Count=11
link(onCopy,7113896:doEvent1,[])
link(Str,14241677:Var3,[(545,152)])
link(Position,15941541:Position,[(552,153)(579,153)(579,212)(447,212)])
}
Add(GetDataEx,14241677,441,147)
{
link(Data,10579880:Text,[])
}
Add(Hub,7113896,588,168)
{
link(onEvent1,10337265:doAdd,[])
link(onEvent2,94360:doWork3,[(612,181)(612,218)(417,218)])
}
Add(HubEx,94360,413,168)
{
link(onEvent,15941541:doSearch,[])
}
Add(ArrayFilterRepeats,10239790,658,238)
{
link(onFilter,16256775:doAdd,[])
link(Array,10337265:Array,[])
}
Add(Hub,1184839,630,231)
{
link(onEvent1,16256775:doClear,[(707,237)(707,251)])
link(onEvent2,10239790:doFilter,[])
}
Add(Memo,16256775,721,238)
{
Left=235
Top=10
Width=185
Height=190
}
Add(Hub,6011093,378,168)
{
link(onEvent1,94360:doWork2,[])
link(onEvent2,1184839:doEvent1,[(404,181)(404,237)])
}
Add(Memo,10337265,644,168)
{
Left=10
Top=10
Width=175
Height=185
}




карма: 0

0
Разработчик
Ответов: 26164
Рейтинг: 2127
#24: 2011-07-22 23:30:04 ЛС | профиль | цитата
Нафиг там ничего не надо, отсев можно делать и на этапе добавления, это самый правильный путь

code_24698.txt
карма: 22

0
файлы: 1code_24698.txt [2KB] [394]
Ответов: 16884
Рейтинг: 1239
#25: 2011-07-23 01:04:07 ЛС | профиль | цитата
Tad писал(а):
nesco, чтобы дозвониться ко мне, нужно набрать 10 цифр для обыкновенного телефона или 12 цифр для мобильника.
А в Америку - 13.
Привязываться к "А у нас 11" нельзя - программка универсальной не получится.
А если дозвон по местному номеру где нет +7 да и цифр <11 ?
А если номер с добавочными цифрами ?
------------ Дoбавленo в 01.04:
Вот номер по которому звоню в Украину : 012380435522222 (15 знаков) и после соединения нужно ещё набрать 321 (уже 18 знаков)
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26164
Рейтинг: 2127
#26: 2011-07-23 01:16:02 ЛС | профиль | цитата
Tad, в задании ясно написано
г. -=Alex=- писал(а):
тлефоны все формата +79237852125

все, дальше замяли. Я выполнил условие задачи, выполнил. Какие ко мне претензии Надо универсальную, пусть сам думает.
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#27: 2011-07-23 01:28:08 ЛС | профиль | цитата
Тогда можно и так:
code_24700.txt
"И дым пожиже и труба пониже"(с)
ListBox-ы поставил для наглядности. В окончательном варианте заменить на StrList
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_24700.txt [1.2KB] [245]
Разработчик
Ответов: 26164
Рейтинг: 2127
#28: 2011-07-23 02:51:01 ЛС | профиль | цитата
Tad писал(а):
Тогда можно и так

Запятой в конце может и не быть, тогда номер потеряется
карма: 22

0
Ответов: 5446
Рейтинг: 323
#29: 2011-07-23 02:57:14 ЛС | профиль | цитата

(коды не смотрел - нету HiAsm под рукой) Если нет гарантии, что номер - это ровно 11 цифр, но при этом не-цифр в нём нет, то надо просто читать до первой не-цифры, и всё.

карма: 1

0
Ответов: 16884
Рейтинг: 1239
#30: 2011-07-23 11:50:16 ЛС | профиль | цитата
третий Закон Чизхолма писал(а):

3.Любые предложения люди понимают иначе, чем тот, кто их вносит.
Следствие:
◦Даже если ваше объяснение настолько ясно, что исключает всякое ложное толкование, все равно найдется человек, который поймет вас неправильно.
н а ш е л с я !!!
nesco писал(а):
Запятой в конце может и не быть, тогда номер потеряется
nesco, я смеялся. Потом понял, что писалось в 3 часа ночи.
А если внимательней посмотреть ?
critic.png



карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)