Вверх ↑
Ответов: 52
Рейтинг: 2
#1: 2010-10-23 13:18:36 ЛС | профиль | цитата
iarspider, спасибо, работает
------------ Дoбавленo в 13.18:
теперь еще вопрос: как достать определенную строку из текстового файла - знаю, и вот она в потоке, но в новый файл ее записать не могу (файл создан)
Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,21,105)
{
}
Add(HTTP_Get,9390102,231,14)
{
URL="http://www.yandex.ru"
FileName="e:\test.txt"
Wait=0
link(onDownload,305732:doMessage,[(345,27)(345,111)])
}
Add(Button,5839074,119,175)
{
Left=150
Top=125
link(onClick,9390102:doDownload,[(191,181)(191,20)])
}
Add(Message,305732,427,105)
{
Message="Закачан"
link(onMessage,10375819:doEvent1,[(548,111)(548,356)])
}
Add(Message,1803431,847,315)
{
link(onMessage,2953706:doClose,[(891,321)(891,227)(9,227)(9,132)])
link(Message,8391742:Text,[(853,303)(531,303)(531,498)(209,498)])
}
Add(SearchInFile,2973154,616,77)
{
FileName="e:\test.txt"
Text="/*jeanny-ignore*/"
Point(onEnd)
link(onSearch,8391742:doAdd,[(660,83)(660,265)(191,265)(191,447)])
link(onEnd,14127670:doEvent1,[(740,90)(740,419)])
}
Add(StrList,8391742,203,441)
{
}
Add(DataToFile,3539782,742,455)
{
link(Stream,1057073:Stream,[(748,443)(741,443)])
}
Add(FileStream,1057073,735,399)
{
FileName="e:\test1.txt"
Mode=1
}
Add(Hub,10375819,637,350)
{
link(onEvent1,2973154:doSearch,[(663,356)(663,220)(604,220)(604,83)])
link(onEvent2,1057073:doOpen,[(693,363)(693,405)])
}
Add(Hub,14127670,833,413)
{
link(onEvent1,3539782:doPut,[(859,419)(859,440)(730,440)(730,461)])
link(onEvent2,1803431:doMessage,[(859,426)(859,374)(835,374)(835,321)])


карма: 0

0