Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2009-07-03 15:01:27 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 06:01:51
карма: 0

0
Ответов: 578
Рейтинг: 14
#2: 2009-07-03 15:04:46 ЛС | профиль | цитата
сохраняй и открывай в ini файл
карма: 0

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#3: 2009-07-03 15:21:19 ЛС | профиль | цитата
GanjaKyp писал(а):
сохраняй и открывай в ini файл

А тебе не кажется, что это бред

intertec.space.ru, а обязательно в текстовый, или можно в двоичный
карма: 22

0
Ответов: 578
Рейтинг: 14
#4: 2009-07-03 15:31:12 ЛС | профиль | цитата
ну, до сих пор это был для меня оптимальный вариант если есть что то проще то я тоже с удовольствием посмотрю
карма: 0

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#5: 2009-07-03 15:34:43 ЛС | профиль | цитата
GanjaKyp писал(а):
если есть что то проще то я тоже с удовольствием посмотрю

Хитер бобер

На вот тебе в бинарный файл



Add(MainForm,9736489,259,322)
{
Width=717
Height=430
}
Add(Button,2390559,259,140)
{
Left=400
Top=365
Width=65
TabOrder=-1
Caption="Открыть"
link(onClick,12260279:doEvent1,[])
}
Add(Button,6355258,259,273)
{
Left=258
Top=365
Width=65
TabOrder=-1
Caption="Сохранить"
link(onClick,6308574:doEvent1,[])
}
Add(Memo,14309302,483,196)
{
Left=25
Top=50
Width=650
}
Add(Memo,5598948,483,315)
{
Left=25
Top=155
Width=650
}
Add(Memo,13053085,483,420)
{
Left=25
Top=265
Width=650
}
Add(StreamArray,6702358,665,210)
{
Streams=[]
FileName="Probe.bin"
}
Add(DoData,10720090,483,273)
{
link(onEventData,12372708:doConvert,[])
link(Data,14309302:Text,[])
}
Add(Convertor,12372708,539,273)
{
Mode=12
link(onResult,8693394:doWork2,[])
}
Add(ArrayRW,3024960,665,259)
{
link(onRead,6971494:doConvert,[])
link(Array,6702358:Array,[])
}
Add(Hub,6308574,308,273)
{
OutCount=4
link(onEvent1,10720090:doData,[])
link(onEvent2,15546089:doData,[(361,286)(361,384)])
link(onEvent3,2111271:doData,[(349,293)(349,489)])
link(onEvent4,6702358:doSave,[(337,300)(337,519)(640,519)(640,216)])
}
Add(DoData,15546089,483,378)
{
link(onEventData,6288866:doConvert,[])
link(Data,5598948:Text,[])
}
Add(Convertor,6288866,539,378)
{
Mode=12
link(onResult,420691:doWork2,[])
}
Add(HubEx,8693394,623,266)
{
link(onEvent,3024960:doAdd,[])
}
Add(DoData,2111271,483,483)
{
link(onEventData,12921795:doConvert,[])
link(Data,13053085:Text,[])
}
Add(Convertor,12921795,539,483)
{
Mode=12
link(onResult,420691:doWork3,[(627,489)])
}
Add(HubEx,420691,623,371)
{
Angle=3
link(onEvent,8693394:doWork3,[])
}
Add(Hub,12260279,308,140)
{
OutCount=4
link(onEvent1,6702358:doLoad,[(571,146)(571,223)])
link(onEvent2,16695951:doWork1,[])
link(onEvent3,16695951:doWork2,[])
link(onEvent4,16695951:doWork3,[])
}
Add(ChanelToIndex,16695951,350,147)
{
Count=3
link(onIndex,2405694:doValue,[])
}
Add(Memory,2405694,399,147)
{
link(onData,3024960:doRead,[(548,153)(548,265)])
}
Add(IndexToChanel,423579,399,217)
{
Count=3
Point(Index)
link(onEvent1,14309302:doText,[])
link(onEvent2,5598948:doText,[(457,230)(457,342)])
link(onEvent3,13053085:doText,[(448,237)(448,447)])
link(Index,2405694:Value,[])
}
Add(Convertor,6971494,721,259)
{
Mode=11
link(onResult,423579:doEvent,[(771,265)(771,133)(387,133)(387,223)])
}
Add(Button,4156387,259,203)
{
Left=328
Top=365
Width=65
TabOrder=-1
Caption="Очичтить"
link(onClick,6845802:doEvent1,[])
}
Add(Hub,6845802,308,203)
{
OutCount=3
link(onEvent1,14309302:doClear,[])
link(onEvent2,5598948:doClear,[(382,216)(382,328)])
link(onEvent3,13053085:doClear,[(375,223)(375,433)])
}


Там можно еще и зипы поставить на входе и выходе
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#6: 2009-07-03 15:35:01 ЛС | профиль | цитата
intertec.space.ru,
Народная мудрость писал(а):
Не ищи в ж... сердце
Извини, грубо, но верно. Сохраняй в три файла и ... читай с начала...
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26170
Рейтинг: 2127
#7: 2009-07-03 15:59:32 ЛС | профиль | цитата
intertec.space.ru, вот, нарезал на скору руку


Add(MainForm,9736489,63,259)
{
Width=717
Height=430
}
Add(Button,2390559,210,42)
{
Left=400
Top=365
Width=65
TabOrder=-1
Caption="Открыть"
link(onClick,12260279:doEvent1,[])
}
Add(Button,6355258,63,217)
{
Left=258
Top=365
Width=65
TabOrder=-1
Caption="Сохранить"
link(onClick,6308574:doEvent1,[])
}
Add(Memo,14309302,434,140)
{
Left=25
Top=50
Width=650
}
Add(Memo,5598948,434,294)
{
Left=25
Top=155
Width=650
}
Add(Memo,13053085,434,427)
{
Left=25
Top=265
Width=650
}
Add(DoData,10720090,434,217)
{
link(onEventData,12237112:doWork2,[])
link(Data,14309302:Text,[])
}
Add(Hub,6308574,112,217)
{
OutCount=4
link(onEvent1,1197959:doWork1,[])
link(onEvent2,1197959:doWork2,[])
link(onEvent3,1197959:doWork3,[])
link(onEvent4,2033009:doSave,[(145,244)(145,258)])
}
Add(DoData,15546089,434,357)
{
link(onEventData,16209250:doWork2,[])
link(Data,5598948:Text,[])
}
Add(DoData,2111271,434,490)
{
link(onEventData,16209250:doWork3,[(522,496)])
link(Data,13053085:Text,[])
}
Add(Hub,12260279,259,42)
{
OutCount=4
link(onEvent1,2033009:doLoad,[(710,48)(710,251)])
link(onEvent2,16695951:doWork1,[])
link(onEvent3,16695951:doWork2,[])
link(onEvent4,16695951:doWork3,[])
}
Add(ChanelToIndex,16695951,301,49)
{
Count=3
link(onIndex,2405694:doValue,[])
}
Add(Memory,2405694,350,49)
{
link(onData,5303028:doEvent1,[(598,55)(598,328)])
}
Add(Button,4156387,210,147)
{
Left=328
Top=365
Width=65
TabOrder=-1
Caption="Очичтить"
link(onClick,6845802:doEvent1,[])
}
Add(Hub,6845802,259,147)
{
OutCount=3
link(onEvent1,14309302:doClear,[])
link(onEvent2,5598948:doClear,[(333,160)(333,307)])
link(onEvent3,13053085:doClear,[(326,167)(326,440)])
}
Add(StrList,2033009,728,217)
{
FileName="Probe.txt"
Point(doAppend)
}
Add(ChanelToIndex,1197959,154,217)
{
Count=3
link(onIndex,1540497:doValue,[])
}
Add(Memory,1540497,210,217)
{
link(onData,423579:doEvent,[])
}
Add(BlockFind,11744227,728,315)
{
IncludeBlock=1
Point(doStartBlock)
Point(doEndBlock)
link(onSearch,4263438:doEvent,[(772,321)(772,89)(341,89)(341,111)])
link(Text,2033009:Text,[])
}
Add(FormatStr,4238245,672,322)
{
DataCount=1
Mask="[%1]"
Point(FString)
link(onFString,11744227:doStartBlock,[])
}
Add(FormatStr,7965633,672,364)
{
DataCount=1
Mask="[/%1]"
Point(FString)
link(onFString,11744227:doEndBlock,[(716,370)(716,335)])
}
Add(Hub,5303028,630,322)
{
OutCount=3
link(onEvent1,4238245:doString,[])
link(onEvent2,7965633:doString,[(654,335)(654,370)])
link(onEvent3,11744227:doSearch,[(660,342)(660,321)])
}
Add(IndexToChanel,423579,266,217)
{
Count=3
Point(Index)
link(onEvent1,10720090:doData,[])
link(onEvent2,15546089:doData,[(366,230)(366,363)])
link(onEvent3,2111271:doData,[(356,237)(356,496)])
}
Add(IndexToChanel,4263438,350,105)
{
Count=3
Point(Index)
link(onEvent1,14309302:doText,[(415,111)(415,167)])
link(onEvent2,5598948:doText,[(408,118)(408,321)])
link(onEvent3,13053085:doText,[(402,125)(402,454)])
link(Index,2405694:Value,[])
}
Add(FormatStr,13132916,553,217)
{
Mask="[%1]%2[/%1]"
link(onFString,2033009:doAdd,[])
link(Str1,1540497:Value,[(559,205)(387,205)(387,261)(216,261)])
}
Add(HubEx,12237112,518,210)
{
link(onEvent,13132916:doString,[])
}
Add(HubEx,16209250,518,350)
{
Angle=3
link(onEvent,12237112:doWork3,[])
}

карма: 22

0
Гость
Ответов: 17029
Рейтинг: 0
#8: 2009-07-03 16:03:47 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 06:01:51
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#9: 2009-07-03 16:06:10 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 06:01:52
карма: 0

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#10: 2009-07-03 16:14:25 ЛС | профиль | цитата
На еще вариант, на чтении стримов, без StrList'a


Add(MainForm,9736489,63,252)
{
Width=717
Height=430
}
Add(Button,2390559,210,42)
{
Left=400
Top=365
Width=65
TabOrder=-1
Caption="Открыть"
link(onClick,12260279:doEvent1,[])
}
Add(Button,6355258,63,210)
{
Left=258
Top=365
Width=65
TabOrder=-1
Caption="Сохранить"
link(onClick,6308574:doEvent1,[])
}
Add(Memo,14309302,434,140)
{
Left=25
Top=50
Width=650
}
Add(Memo,5598948,434,294)
{
Left=25
Top=155
Width=650
}
Add(Memo,13053085,434,427)
{
Left=25
Top=265
Width=650
}
Add(DoData,10720090,434,217)
{
link(onEventData,12237112:doWork2,[])
link(Data,14309302:Text,[])
}
Add(Hub,6308574,112,210)
{
OutCount=5
link(onEvent1,12263523:doOpen,[(152,216)(152,209)])
link(onEvent2,1197959:doWork1,[])
link(onEvent3,1197959:doWork2,[])
link(onEvent4,1197959:doWork3,[])
link(onEvent5,12263523:doClose,[(654,244)(654,216)])
}
Add(DoData,15546089,434,357)
{
link(onEventData,16209250:doWork2,[])
link(Data,5598948:Text,[])
}
Add(DoData,2111271,434,490)
{
link(onEventData,16209250:doWork3,[(522,496)])
link(Data,13053085:Text,[])
}
Add(Hub,12260279,259,42)
{
OutCount=5
link(onEvent2,16695951:doWork1,[])
link(onEvent3,16695951:doWork2,[])
link(onEvent4,16695951:doWork3,[])
}
Add(ChanelToIndex,16695951,301,49)
{
Count=3
link(onIndex,2405694:doValue,[])
}
Add(Memory,2405694,350,49)
{
link(onData,3823081:doEvent1,[(475,55)(475,118)])
}
Add(Button,4156387,210,147)
{
Left=328
Top=365
Width=65
TabOrder=-1
Caption="Очичтить"
link(onClick,6845802:doEvent1,[])
}
Add(Hub,6845802,259,147)
{
OutCount=3
link(onEvent1,14309302:doClear,[])
link(onEvent2,5598948:doClear,[(333,160)(333,307)])
link(onEvent3,13053085:doClear,[(326,167)(326,440)])
}
Add(ChanelToIndex,1197959,154,217)
{
Count=3
link(onIndex,1540497:doValue,[])
}
Add(Memory,1540497,210,217)
{
link(onData,423579:doEvent,[])
}
Add(BlockFind,11744227,728,105)
{
IncludeBlock=1
Point(doStartBlock)
Point(doEndBlock)
link(onSearch,4263438:doEvent,[(773,111)(773,88)(338,88)(338,111)])
}
Add(FormatStr,4238245,679,112)
{
DataCount=1
Mask="[%1]"
Point(FString)
link(onFString,11744227:doStartBlock,[])
link(Str1,7368432:Var3,[(685,93)])
}
Add(FormatStr,7965633,665,154)
{
DataCount=1
Mask="[/%1]"
Point(FString)
link(onFString,11744227:doEndBlock,[(716,160)(716,125)])
link(Str1,7368432:Var2,[])
}
Add(Hub,5303028,630,112)
{
OutCount=3
link(onEvent1,4238245:doString,[])
link(onEvent2,7965633:doString,[(654,125)(654,160)])
link(onEvent3,11744227:doSearch,[(660,132)(660,111)])
}
Add(IndexToChanel,423579,266,217)
{
Count=3
Point(Index)
link(onEvent1,10720090:doData,[])
link(onEvent2,15546089:doData,[(366,230)(366,363)])
link(onEvent3,2111271:doData,[(356,237)(356,496)])
}
Add(IndexToChanel,4263438,350,105)
{
Count=3
Point(Index)
link(onEvent1,14309302:doText,[(415,111)(415,167)])
link(onEvent2,5598948:doText,[(408,118)(408,321)])
link(onEvent3,13053085:doText,[(402,125)(402,454)])
link(Index,7135355:Var2,[])
}
Add(FormatStr,13132916,553,217)
{
Mask="[%1]%2[/%1]"
link(onFString,3811349:doConvert,[])
link(Str1,1540497:Value,[(559,205)(387,205)(387,261)(216,261)])
}
Add(HubEx,12237112,518,210)
{
link(onEvent,13132916:doString,[])
}
Add(HubEx,16209250,518,350)
{
Angle=3
link(onEvent,12237112:doWork3,[])
}
Add(FileStream,12263523,665,203)
{
FileName="Probe.txt"
Mode=1
Point(doCopyFromStream)
}
Add(Convertor,3811349,609,217)
{
Mode=12
link(onResult,12263523:doCopyFromStream,[])
}
Add(FileStream,5352795,525,112)
{
FileName="Probe.txt"
Point(doCopyFromStream)
link(onLoad,16740639:doConvert,[])
}
Add(Convertor,16740639,574,112)
{
Mode=11
link(onResult,5303028:doEvent1,[])
}
Add(Hub,3823081,483,112)
{
link(onEvent1,5352795:doOpen,[])
link(onEvent2,5352795:doClose,[])
}
Add(GetDataEx,7135355,343,84)
{
link(Data,2405694:Value,[])
}
Add(GetDataEx,7368432,658,84)
{
Angle=3
link(Data,7135355:Var3,[])
}

карма: 22

0
Ответов: 16884
Рейтинг: 1239
#11: 2009-07-03 16:14:51 ЛС | профиль | цитата
bzq-79-183-49-225.red.bez это я.
------------ Дoбавленo в 16.21:
nesco, может ты мне объяснишь - зачем (допустим в Memo1 и Memo2 по тому Война и мир, ну и в Memo3 что нибудь поменьше) сохранять их в кучу, а потом считывать их каждое в свое окно
Не понимаю я таких задач.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 578
Рейтинг: 14
#12: 2009-07-03 16:25:33 ЛС | профиль | цитата
так, просто для сравнения)
code_13982.txt
------------ Дoбавленo в 16.27:
п.с помогите мне здесь
карма: 0

0
файлы: 1code_13982.txt [1.4KB] [237]
Разработчик
Ответов: 26170
Рейтинг: 2127
#13: 2009-07-03 16:49:24 ЛС | профиль | цитата
Tad писал(а):
Не понимаю я таких задач

А зачем их понимать, оно тебе надо А код твой, кстати, не читается
------------ Дoбавленo в 16.51:
GanjaKyp, а ты это дело пробовал, ведь перевод каретки и возврат строки напрямую в ini, при типе ключа String, писать нельзя
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#14: 2009-07-03 17:25:28 ЛС | профиль | цитата
intertec.space.ru, хотелось бы знать в чем громоздкость ?

code_13983.txt

P.S.nesco, удали то сообщение, где код не читается . Я там оказался в гостях.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_13983.txt [912B] [199]
Ответов: 578
Рейтинг: 14
#15: 2009-07-03 17:48:59 ЛС | профиль | цитата
nesco, половину этой фразы не понял но если вот так тогда много строчные сохраняет

Add(MainForm,7204101,238,84)
{
Width=717
Height=430
}
Add(Button,6355258,63,203)
{
Left=228
Top=10
Width=65
Caption="Сохранить"
link(onClick,6538490:doEvent1,[])
}
Add(Memo,14309302,371,196)
{
Left=25
Top=50
Width=650
}
Add(Memo,5598948,371,315)
{
Left=25
Top=155
Width=650
}
Add(Memo,13053085,378,427)
{
Left=25
Top=265
Width=650
}
Add(Button,2390559,63,413)
{
Left=340
Top=10
Caption="Открыть"
link(onClick,2131700:doEvent1,[])
}
Add(Ini,2606765,238,196)
{
FileName="probe.bin"
Section="1"
Key="1"
Type=1
link(onResult,2651912:doReplace,[])
}
Add(Ini,13104567,245,315)
{
FileName="probe.bin"
Section="1"
Key="2"
Type=1
link(onResult,4681495:doReplace,[])
}
Add(Ini,2136764,252,427)
{
FileName="probe.bin"
Section="1"
Key="3"
Type=1
link(onResult,16674690:doReplace,[])
}
Add(Hub,6538490,112,203)
{
OutCount=3
link(onEvent1,14874916:doReplace,[])
link(onEvent2,1026620:doReplace,[(164,216)(164,328)])
link(onEvent3,8702538:doReplace,[(164,223)(164,440)])
}
Add(Hub,2131700,112,413)
{
OutCount=3
link(onEvent1,2606765:doRead,[(182,419)(182,202)])
link(onEvent2,13104567:doRead,[(186,426)(186,321)])
link(onEvent3,2136764:doRead,[])
}
Add(Replace,14874916,196,203)
{
SubStr="
"
DestStr="%"
link(onReplace,2606765:doWrite,[])
link(Str,14309302:Text,[(202,191)(290,191)(290,253)(377,253)])
}
Add(Replace,2651912,294,196)
{
SubStr="%"
DestStr="
"
link(onReplace,14309302:doAdd,[])
}
Add(Replace,1026620,203,322)
{
SubStr="
"
DestStr="%"
link(onReplace,13104567:doWrite,[])
link(Str,5598948:Text,[(209,310)(296,310)(296,372)(377,372)])
}
Add(Replace,4681495,301,315)
{
SubStr="%"
DestStr="
"
link(onReplace,5598948:doAdd,[])
}
Add(Replace,16674690,301,427)
{
SubStr="%"
DestStr="
"
link(onReplace,13053085:doAdd,[])
}
Add(Replace,8702538,203,434)
{
SubStr="
"
DestStr="%"
link(onReplace,2136764:doWrite,[])
link(Str,13053085:Text,[(209,415)(286,415)(286,484)(384,484)])
}


карма: 0

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