Вверх ↑
Ответов: 2203
Рейтинг: 675
#1: 2015-07-01 15:58:50 ЛС | профиль | цитата
Тогда еще проще: code_35943.txt
------------ Дoбавленo в 15.58:
Или поставьте DirectoryChanges и нечего лишний раз на кнопку тыкать если файл постоянно с одним и тем же названием.
Add(MainForm,15170714,140,217)
{
Width=443
Height=123
link(onCreate,15135852:doStartWatch,[])
}
Add(FileTools,16447858,511,175)
{
link(FileName,13948231:FString,[(517,163)(570,163)(570,272)(279,272)])
}
Add(StrList,3645453,385,168)
{
Point(doGetString)
Point(onGetString)
link(onGetString,12106691:doSplit,[])
}
Add(Hub,7192023,315,196)
{
link(onEvent1,3645453:doLoad,[])
link(onEvent2,13053767:doData,[(336,209)(336,216)])
}
Add(DoData,13053767,343,210)
{
Data=Integer(0)
link(onEventData,3645453:doGetString,[])
AddHint(-1,36,21,13,Data)
}
Add(MultiStrData,12106691,427,175)
{
From=2
Count=1
link(onPart1,15659192:doString,[])
}
Add(FormatStr,15659192,469,175)
{
Mask="%1\%2.txt"
Point(FString)
link(onFString,16447858:doMove,[])
link(Str1,7051484:Var3,[(475,138)])
}
Add(BitBtn,7537324,224,196)
{
Left=25
Top=25
link(onClick,16082200:doWork2,[])
}
Add(Edit,6107514,224,140)
{
Left=100
Top=25
Width=90
Text="AB1ZAE"
link(onEnter,16082200:doWork1,[(263,153)])
}
Add(GetDataEx,7051484,280,133)
{
link(Data,4679756:Text,[])
}
Add(HubEx,16082200,259,196)
{
link(onEvent,13948231:doString,[])
}
Add(FormatStr,13948231,273,196)
{
Mask="%2\%1.txt"
Point(FString)
link(onFString,7192023:doEvent1,[])
link(Str1,6107514:Text,[(279,184)(230,184)])
link(Str2,7051484:Var2,[])
}
Add(DirectoryChanges,15135852,189,231)
{
Flags=8
SubTree=1
link(onChange,16082200:doWork3,[(263,237)])
link(DirName,7051484:Var1,[(195,138)])
}
Add(VisualStrings,4679756,280,91)
{
Lines=#29:C:Users*******DesktopEC14|
Width=165
}
карма: 11

0
файлы: 1code_35943.txt [1.3KB] [381]