Спасибо огромное! Реально работает!
Tad
Поверьте Tad, это так. Обычно 400 писем с одним и тем же названием и в каждом письме файл, так же с одним названием.
К сожалению, по наверное понятным причинам, выложить даже скриншот не могу. Естественно в каталоге такое разместить нельзя.
А вот оутлук вполне себе все письма отображает.
Забыл добавить, я поэтому их и переименовываю, потому что в каталоге на диске их не возможно хранить...
------------ Дoбавленo в 14.51:
Не могу понять с помощью какого компонента можно сделать так чтобы для переименования файла не надо было каждый раз запускать программу.
Просто переименование происходит по нажатию кнопки...
Я ввожу имя файла но ничего не происходит....
Запутался совсем в точкахнаправленияхтипах.
Ткните носом пожалуйста.
#pas
Add(MainForm,15170714,154,357)
{
Width=443
Height=123
}
Add(FileTools,16447858,595,434)
{
link(FileName,14866261:Value,[(601,397)(650,397)(650,524)(342,524)])
}
Add(StrList,3645453,462,427)
{
Point(doGetString)
Point(onGetString)
link(onGetString,12106691:doSplit,[])
}
Add(Hub,7192023,392,455)
{
link(onEvent1,3645453:doLoad,[])
link(onEvent2,13053767:doData,[(413,468)(413,475)])
}
Add(InfoTip,2916621,140,336)
{
Info=#37:а? аВб?аБб?аАаНаНаОаЙ аПаАаПаКаЕ аИб?|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|
Frame=2
Width=232
Height=200
Margin=4
}
Add(InfoTip,11903989,378,336)
{
Info=#56:а?аАаГб?б?аЖаАаЕаМ txt б?аАаЙаЛ аИ аПаОаЛб?б?аАаЕаМ аПаЕ|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|
Frame=2
Width=120
Height=200
Margin=4
}
Add(InfoTip,5027282,504,336)
{
Info=#41:а аАаЗаБаИаВаАаЕаМ б?б?б?аОаКб? аИ аПаОаЛ|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|
Frame=2
Width=155
Height=200
Margin=4
}
Add(FileSearch,6387157,294,455)
{
Ext="*.txt"
Dir="C:Users*******DesktopEC14"
SubDir=1
Include=2
link(onSearch,14866261:doValue,[])
}
Add(DoData,13053767,420,469)
{
Data=Integer(0)
link(onEventData,3645453:doGetString,[])
AddHint(-1,36,21,13,Data)
}
Add(MultiStrData,12106691,511,434)
{
From=2
Count=1
link(onPart1,15659192:doString,[])
}
Add(Memory,7097269,252,455)
{
link(onData,6387157:doSearch,[])
}
Add(Memory,14866261,336,455)
{
link(onData,7192023:doEvent1,[])
}
Add(FormatStr,15659192,553,434)
{
Mask="%1\%2.txt"
Point(FString)
link(onFString,16447858:doMove,[])
link(Str1,7097269:Value,[(559,398)(101,398)(101,524)(258,524)])
}
Add(BitBtn,7537324,154,455)
{
Left=25
Top=25
link(onClick,6107514:doText,[])
}
Add(Edit,6107514,203,455)
{
Left=100
Top=25
Text="AB1ZAE"
link(onEnter,7097269:doValue,[(243,468)(243,461)])
}
Поиск
Друзья
Администрация