Леонид писал(а): Слабо на HiAsm автоматизировать? А мнэ нэ нада. И ваапче не панятна чаво чел хочет иметь в итоге. code_36769.txt
------------ Дoбавленo в 21.19:
Чуть поправленно Add(MainForm,2953706,91,70) { Width=329 Height=359 Caption="Монитор файла" } Add(Label,11328403,42,70) { Left=10 Top=10 Width=123 Height=17 Caption="Файл для мониторинга" } Add(Edit,11625570,259,70) { Left=10 Top=30 Width=265 Text="" link(onChange,382029:doPart,[]) } Add(Button,13538030,147,70) { Left=275 Top=30 Width=25 Caption="..." link(onClick,10347987:doExecute,[]) } Add(Button,15538241,63,196) { Left=10 Top=60 Caption="Старт" link(onClick,16037744:doFileExists,[]) } Add(Button,10555842,63,245) { Left=75 Top=60 Caption="Стоп" link(onClick,8042041:doEvent1,[]) } Add(LED,11710939,329,245) { Left=145 Top=60 Width=20 Height=20 } Add(ODialog,10347987,203,70) { FileName="" link(onExecute,11625570:doText,[]) } Add(FilePartElm,382029,308,70) { Mode=0 Point(Part) } Add(DirectoryChanges,15216587,308,182) { Flags=24 SubTree=1 link(onChange,15978243:doCompare,[]) link(onError,6508863:doMessage,[]) link(DirName,382029:Part,[]) } Add(FileTools,16037744,126,175) { link(onEnd,1603600:doEvent,[]) link(FileName,5560111:Var1,[(132,144)]) } Add(IndexToChanel,1603600,168,175) { link(onEvent1,7326853:doMessage,[]) link(onEvent2,20257:doEvent1,[]) } Add(Hub,20257,259,182) { link(onEvent1,15216587:doStartWatch,[]) link(onEvent2,11710939:doOn,[(284,195)(284,265)]) } Add(Hub,8042041,259,245) { link(onEvent1,15216587:doStopWatch,[(296,251)(296,195)]) link(onEvent2,11710939:doOff,[]) } Add(Message,7326853,210,175) { Message="Фай не существует!" Icon=4 } Add(If_else,15978243,413,182) { link(onTrue,14272783:doTimer,[]) link(Op1,15216587:NewFileName,[(419,173)(405,173)(405,229)(321,229)]) link(Op2,5734279:Var2,[]) } Add(GetDataEx,5560111,259,139) { link(Data,11625570:Text,[]) } Add(Timer,14272783,462,182) { Interval=10 Enable=1 AutoStop=1 link(onTimer,15524377:doLoad,[]) } Add(GetDataEx,5734279,420,139) { Angle=3 link(Data,5560111:Var3,[]) } Add(Message,6508863,350,189) { Icon=3 } Add(Edit,5936825,707,168) { Left=180 Top=60 Text="5" DataType=2 } Add(ArrayEnum,5744431,560,245) { link(onItem,5824489:doCopy,[]) link(Array,15524377:Array,[]) } Add(Copy,5824489,602,245) { Position=1 Count=5 link(onCopy,1244188:doCompare,[]) } Add(StrMask,1244188,651,245) { Mask="* #*" link(onTrue,15320957:doCompare,[]) } Add(Hub,12394452,525,224) { link(onEvent1,14436119:doClear,[(830,230)(830,265)]) link(onEvent2,5744431:doEnum,[(550,237)(550,251)]) } Add(If_else,15320957,700,252) { Type=4 link(onTrue,139615:doTrim,[]) link(Op1,5744431:Index,[(706,243)(692,243)(692,285)(573,285)]) link(Op2,5936825:Text,[]) } Add(StrList,15524377,546,154) { FileName="C:\A_WinGamesHiAsm\hiasm_4,04b185\Gitarist_Test.txt" link(onChange,12394452:doEvent1,[(585,160)(585,216)(515,216)(515,230)]) link(FileName,5734279:Var3,[(559,144)]) } Add(StringTable,14436119,847,252) { Left=8 Top=93 Width=295 Height=220 Columns=#8:Table=40|10:ToolRef=40|7:Tool=40|7:Size=40|10:Exp Ord=60|14:Plated Hits=60|16:Unplated Hits=60|13:Total Hits=60| Grid=0 } Add(Trim,139615,749,252) { Char=" " Mode=7 link(onTrim,16262397:doReplace,[]) link(Text,5744431:Item,[(755,243)(741,243)(741,292)(566,292)]) } Add(Replace,16262397,791,252) { SubStr=" " DestStr=";" link(onReplace,14436119:doAdd,[]) }
|