Вверх ↑
Ответов: 1536
Рейтинг: 176
#1: 2011-09-28 18:58:31 ЛС | профиль | цитата
Пример работает с текстовым файлом на бинарном уровне, сохраняя изменённый файл отдельно. Измени фильтр расширений файлов под себя и всё!

Add(LineBreakEx,5162647,532,231)
{
Type=3
link(_Data,10051208:Stream,[])
}
Add(DoData,2121044,420,196)
{
Data=Integer(8)
link(onEventData,3996864:doPosition,[])
}
Add(Memory,1997759,350,280)
{
@Hint=#21:То что нужно вставить|
Default=String(""""")
AddHint(-10,-36,130,13,@Hint)
}
Add(StreamConvertor,11782311,350,322)
{
Mode=7
link(onResult,8478240:doCopy,[])
link(Data,1997759:Value,[])
}
Add(StreamCopy,8478240,406,322)
{
Count=5
link(onCopy,1107729:doCopy,[])
link(Dest,7856340:getVar,[])
}
Add(LineBreakEx,7856340,406,294)
{
Type=2
}
Add(StreamCopy,13862299,259,315)
{
Count=4
link(onCopy,15753517:doEvent1,[])
link(Dest,6336548:getVar,[])
link(Source,2901884:Var1,[(272,271)])
}
Add(Button,3152175,203,315)
{
Left=275
Top=80
Width=110
Height=40
Caption="Патч"
link(onClick,13862299:doCopy,[])
}
Add(Hub,15753517,308,315)
{
link(onEvent1,2121044:doData,[(335,321)(335,202)])
link(onEvent2,11782311:doConvert,[])
}
Add(LineBreakEx,6336548,259,287)
{
Type=2
}
Add(StreamCopy,1107729,469,322)
{
link(Dest,16523226:getVar,[])
link(Source,2901884:Var2,[])
link(Count,7485691:reCalc,[(489,293)(496,293)])
}
Add(MathParse,7485691,483,231)
{
DataCount=1
MathStr="%1 - 5"
ResultType=0
Point(reCalc)
link(X1,3996864:Size,[])
}
Add(LineBreakEx,16523226,469,287)
{
Type=2
}
Add(FileStream,3996864,476,182)
{
Point(doPosition)
link(onLoad,10051208:doOpen,[])
}
Add(ODialog,11268351,385,133)
{
Filter="txt|*.txt"
FileName="Текстовый файл"
link(onExecute,2205564:doEvent1,[])
}
Add(Button,343284,336,133)
{
Left=155
Top=80
Width=110
Height=40
Caption="Открыть"
link(onClick,11268351:doExecute,[])
}
Add(FileStream,10051208,532,182)
{
Mode=1
AutoCopy=0
Point(doPosition)
Point(doCopyFromStream)
link(FileName,9491255:FString,[])
}
Add(Hub,2205564,434,133)
{
link(onEvent1,11778070:doPart,[])
link(onEvent2,3996864:doOpen,[(462,146)(462,188)])
}
Add(FilePartElm,11778070,476,133)
{
Mode=2
link(onPart,9491255:doString,[])
}
Add(FormatStr,9491255,532,133)
{
DataCount=1
Mask="%1(патч).txt"
Point(FString)
}
Add(GetDataEx,2901884,476,266)
{
link(Data,3996864:Stream,[])
}
карма: 1
Не так страшна ошибка, как опасность её не заметить.

1
файлы: 1code_25284.txt [2.8KB] [177]
Голосовали:azurin