Пример работает с текстовым файлом на бинарном уровне, сохраняя изменённый файл отдельно. Измени фильтр расширений файлов под себя и всё! 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,[]) }
|