Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2005-11-24 00:04:28 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2025-01-09 15:09:08
карма: 0

0
Ответов: 574
Рейтинг: 1
#2: 2005-11-26 18:57:33 ЛС | профиль | цитата
ПОМОГИТЕ ПОЖАЛУЙСТА СОЗДАТЬ ПОИСК СТРОКИ в таблице ПО КАТЕГОРИЯМ
(допустим сколько столбцов столько и категорий) и
Выделение найденных строк и показа сколько строк найдено!?


Меня этот вопрос тоже интересует... Ребята, а вы что думаете?

И как сделать импорт и экспорт списка строк.


Ну, друг, это элементарно! Шутка - кому как...

Add(MainForm,9102799,63,119)
{
Left=20
Top=105
Width=288
Height=237
Point(Close)
link(onCreate,5590681:doFileExists,[(114,160)(114,184)])
link(Close,16332100:GetData,[])
}
Add(StringTable,14229169,378,217)
{
Left=5
Top=60
Width=270
Height=140
FileName="table"
Columns=#9:Колонка 1|9:Колонка 2|
StrDelimiter="|"
Grid=0
}
Add(Button,10912573,238,182)
{
Left=145
Top=5
Width=130
Height=45
Caption="Добавить запись"
link(onClick,10126739:doString,[(289,188)(289,216)])
}
Add(Edit,3168673,301,147)
{
Left=5
Top=30
Width=135
Text=""
}
Add(Edit,16021449,371,147)
{
Left=5
Top=5
Width=135
Text=""
}
Add(FormatStr,10126739,308,210)
{
Mask="%1|%2"
link(onFString,14229169:doAdd,[(359,216)(359,223)])
link(Str1,3168673:Text,[(314,195)(307,195)])
link(Str2,16021449:Text,[(321,195)(377,195)])
}
Add(IndexToChanel,8439565,175,157)
{
link(onEvent2,14229169:doLoad,[(278,170)(278,244)])
}
Add(EventFromData,16332100,63,70)
{
link(onEvent,14229169:doSave,[(236,76)(236,251)])
}
Add(FileTools,5590681,133,157)
{
link(onEnd,8439565:doEvent,[(191,163)(170,163)])
link(FileName,4496638:Value,[(139,144)(146,144)])
}
Add(Memory,4496638,140,98)
{
Default=String(table)
}

На первый вопрос ответ мне всё-таки нужен... Подождём, что наши друзья скажут...

P. S. Возможно, что я пошёл сложным путём, делая этот пример - пусть поправят, если что, я всего лишь новичок пока!
карма: 0

0
Ответов: 574
Рейтинг: 1
#3: 2005-11-26 19:14:24 ЛС | профиль | цитата
А вот у меня назрел вопрос: а можно ли список файлов моей таблицы
сохранять не просто в файл, лежащий с прогой, а в папку, лежащую с
прогой? ВОт в данном примере имя файла я написал table. Если написать folder able - ичего не происходит... А как правильно сделать?
карма: 0

0
Ответов: 2125
Рейтинг: 159
#4: 2005-11-26 20:33:58 ЛС | профиль | цитата
CASPER, А ты так попробуй: folder\table. Где-то я уже видел затык с двойным слэшем.
карма: 1

0
Ответов: 2125
Рейтинг: 159
#5: 2005-11-26 20:36:47 ЛС | профиль | цитата
CASPER, А - это, вроде, символ табуляции
карма: 1

0
Ответов: 676
Рейтинг: 5
#6: 2005-11-26 20:39:51 ЛС | профиль | цитата
CASPER, сохранение работает просто надо папку вручную создать...
карма: 1

0
Ответов: 9906
Рейтинг: 351
#7: 2005-11-26 20:47:43 ЛС | профиль | цитата
tsdima, не делал Dilma перекодирование на

-=Dima=-, а че вручную, HiAsm не умеет что-ли
карма: 9

0
Ответов: 8953
Рейтинг: 824
#8: 2005-11-26 20:55:53 ЛС | профиль | цитата
Andreych, поиск по ячейкам таблицы с остановкой и выделением найденной строки:
Add(MainForm,3762668,168,42)
{
Left=170
Top=160
Width=457
Height=282
link(onCreate,2322115:doEvent1,[(215,83)(215,55)])
}
Add(StringTable,3514730,483,175)
{
Left=10
Top=40
Width=425
Height=175
Columns=#13:Категория1=80|13:Категория2=80|13:Категория3=80|13:Категория4=80|13:Категория5=80|
Grid=0
Point(Matrix)
Point(doSelect)
}
Add(Button,1719958,336,161)
{
Left=10
Top=225
Caption="Открыть"
link(onClick,14668123:doExecute,[])
}
Add(Button,16762611,336,203)
{
Left=85
Top=225
Caption="Сохранить"
link(onClick,10631237:doExecute,[])
}
Add(ODialog,14668123,385,161)
{
link(onExecute,3514730:doLoad,[(450,167)(450,202)])
}
Add(SDialog,10631237,385,203)
{
link(onExecute,3514730:doSave,[])
}
Add(Random,11979083,378,7)
{
Min=100
Max=199
link(onRandom,4241064:doRandom,[])
}
Add(FormatStr,1734059,462,98)
{
DataCount=5
Mask="%1;%2;%3;%4;%5"
link(onFString,3514730:doAdd,[(510,104)(510,152)(466,152)(466,181)])
link(Str1,11979083:Random,[(468,56)(384,56)])
link(Str2,4241064:Random,[(475,48)(433,48)])
link(Str3,2462477:Random,[(482,69)(482,69)])
link(Str4,2277052:Random,[(489,49)(531,49)])
link(Str5,3367657:Random,[(496,55)(580,55)])
}
Add(Random,3367657,574,7)
{
Min=100
Max=199
link(onRandom,1734059:doString,[(616,13)(616,90)(452,90)(452,104)])
}
Add(Random,2277052,525,7)
{
Min=100
Max=199
link(onRandom,3367657:doRandom,[])
}
Add(Random,2462477,476,7)
{
Min=100
Max=199
link(onRandom,2277052:doRandom,[])
}
Add(Random,4241064,427,7)
{
Min=100
Max=199
link(onRandom,2462477:doRandom,[])
}
Add(Hub,2322115,252,49)
{
OutCount=7
link(onEvent1,11979083:doRandomize,[(366,55)(366,20)])
link(onEvent2,4241064:doRandomize,[(418,62)(418,20)])
link(onEvent3,2462477:doRandomize,[(469,69)(469,20)])
link(onEvent4,2277052:doRandomize,[(515,76)(515,20)])
link(onEvent5,3367657:doRandomize,[(565,83)(565,20)])
link(onEvent6,9239650:doFor,[(303,90)(303,13)])
link(onEvent7,11521442:doEvent1,[(431,97)(431,328)])
}
Add(For,9239650,322,7)
{
End=99
link(onEvent,11979083:doRandom,[])
}
Add(MatrixRW,6911534,497,322)
{
link(onRead,11461258:doCompare,[])
link(Matrix,3514730:Matrix,[])
link(X,14742685:Count,[(517,309)(486,309)(486,377)(132,377)])
link(Y,14269152:Data1,[])
}
Add(Edit,7466538,560,182)
{
Left=105
Top=10
Text="149"
DataType=2
}
Add(InfoTip,6692828,238,-21)
{
Info=#28:Формирование таблицы 100 х 5|
Width=400
Height=158
}
Add(GetData,14269152,518,266)
{
link(Data,15479249:Count,[(524,259)(479,259)(479,373)(293,373)])
}
Add(Hub,11521442,441,322)
{
InCount=2
OutCount=1
link(onEvent1,6911534:doRead,[])
}
Add(If_else,11461258,553,322)
{
link(onTrue,15857144:doEvent1,[])
link(Op2,7466538:Text,[])
}
Add(Hub,15857144,609,322)
{
OutCount=3
link(onEvent1,1060781:doStop,[(651,328)(651,295)(63,295)(63,335)])
link(onEvent2,7372812:doData,[])
link(onEvent3,7137714:doNext,[(649,342)(649,384)])
}
Add(Counter,14742685,126,329)
{
Max=4
link(onNext,10415043:doEvent1,[])
}
Add(Thread,1060781,77,322)
{
Delay=0
BusyEvent=1
link(onSyncExec,14742685:doNext,[])
}
Add(Memory,10413066,238,406)
{
Default=Integer(0)
}
Add(Hub,10415043,168,329)
{
OutCount=3
link(onEvent1,15681831:doCompare,[])
link(onEvent2,10413066:doValue,[(218,342)(218,412)])
link(onEvent3,11521442:doEvent2,[(212,349)(212,391)(429,391)(429,335)])
}
Add(If_else,15681831,238,329)
{
Type=1
link(onTrue,15479249:doNext,[])
link(Op2,10413066:Value,[(251,319)(230,319)(230,445)(244,445)])
}
Add(Counter,15479249,287,329)
{
link(onNext,6235292:doCompare,[])
}
Add(If_else,6235292,336,329)
{
link(onTrue,15022912:doMessage,[])
link(Op2,3514730:Count,[(349,275)(489,275)])
}
Add(Hub,5159207,77,378)
{
OutCount=3
link(onEvent1,15479249:doReset,[(278,384)(278,349)])
link(onEvent2,14742685:doReset,[(117,391)(117,349)])
link(onEvent3,7137714:doReset,[])
}
Add(Button,11870403,21,322)
{
Left=10
Top=10
Width=85
Caption="Искать далее"
link(onClick,1060781:doStart,[])
}
Add(Message,15022912,378,329)
{
Caption="Поиск закончен"
link(onMessage,5159207:doEvent1,[(418,335)(418,370)(67,370)(67,384)])
link(Message,2475454:Value,[(384,304)(826,304)(826,428)(769,428)])
}
Add(DoData,7372812,658,329)
{
link(onEventData,3514730:doSelect,[(699,335)(699,246)(473,246)(473,216)])
link(Data,14269152:Data2,[(664,314)(531,314)])
}
Add(Memory,2475454,763,378)
{
Default=Integer(0)
}
Add(Counter,7137714,658,378)
{
link(onNext,14274961:doStrCat,[])
}
Add(StrCat,14274961,714,378)
{
Str2=" строк найдено"
link(onStrCat,2475454:doValue,[])
link(Str1,7137714:Count,[(720,368)(702,368)(702,420)(664,420)])
}
Add(Button,3668674,112,63)
{
Left=330
Top=225
Caption="Выход"
link(onClick,3762668:doClose,[])
}
Add(InfoTip,7718029,546,147)
{
Info=#8:Что ищем|
Height=74
}
Add(InfoTip,1394951,14,252)
{
Info=#35:Система поиска без применения цикла|
HAlign=0
Width=855
Height=207
}
Add(InfoTip,7852284,119,301)
{
Info=#15:Счётчик колонок|
Width=43
Height=74
}
Add(InfoTip,15564968,280,301)
{
Info=#13:Счётчик строк|
Width=50
Height=74
}
Add(InfoTip,1615481,644,364)
{
Info=#29:Счётчик числа найденных строк|
Width=176
Height=67
}
без использования циклов.
карма: 19

0
Ответов: 574
Рейтинг: 1
#9: 2005-11-27 12:08:17 ЛС | профиль | цитата
Леонид, молодец! Спасибо большое!
карма: 0

0
Ответов: 574
Рейтинг: 1
#10: 2005-11-27 12:20:51 ЛС | профиль | цитата
CASPER, сохранение работает просто надо папку вручную создать...


Врубился, Дима, вот код, если кому надо:

Add(MainForm,9102799,56,91)
{
Left=20
Top=105
Width=288
Height=237
Point(Close)
link(onCreate,5590681:doFileExists,[(107,132)(107,156)])
link(Close,16332100:GetData,[])
}
Add(StringTable,14229169,371,189)
{
Left=5
Top=60
Width=270
Height=140
FileName="folder able"
Columns=#9:Колонка 1|9:Колонка 2|
StrDelimiter="|"
Grid=0
}
Add(Button,10912573,231,154)
{
Left=145
Top=5
Width=130
Height=45
Caption="Добавить запись"
link(onClick,10126739:doString,[(282,160)(282,188)])
}
Add(Edit,3168673,350,119)
{
Left=5
Top=30
Width=135
Text=""
}
Add(Edit,16021449,308,119)
{
Left=5
Top=5
Width=135
Text=""
}
Add(FormatStr,10126739,301,182)
{
Mask="%1|%2"
link(onFString,14229169:doAdd,[(352,188)(352,195)])
link(Str1,16021449:Text,[(307,167)(314,167)])
link(Str2,3168673:Text,[(314,167)(356,167)])
}
Add(IndexToChanel,8439565,168,129)
{
link(onEvent1,5988664:doString,[(226,135)(226,97)])
link(onEvent2,14229169:doLoad,[(285,142)(285,216)])
}
Add(EventFromData,16332100,56,42)
{
link(onEvent,14229169:doSave,[(229,48)(229,223)])
}
Add(FileTools,5590681,126,129)
{
link(onEnd,8439565:doEvent,[(184,135)(163,135)])
link(FileName,4496638:Value,[(132,116)(139,116)])
}
Add(Memory,4496638,133,70)
{
Default=String(folder able)
}
Add(Dir,2975270,252,42)
{
}
Add(FormatStr,5988664,252,91)
{
Mask="%1folder"
link(onFString,2975270:doDir,[(294,97)(294,83)(242,83)(242,48)])
link(Str1,2975270:CurrentDir,[(258,76)(258,90)])
}
Add(StyleXP,11916337,56,154)
{
}
карма: 0

0
10
Сообщение
...
Прикрепленные файлы
(файлы не залиты)