Вверх ↑
Этот топик читают: Гость
Ответов: 28
Рейтинг: 0
#1: 2017-08-08 17:55:56 ЛС | профиль | цитата
Ищет и удаляет ".log" файлы на компьютере, и дает отчет в таблицу.
Также можно указать свою директорию.

Вот ссылка на программу: Удалил (Не стал заливать на сервер HiAsm, т.к. там не резиновое место для файлов )

Требуется компонент для проверки прав администратора у приложения: "AdminAppEx"!!! [ Ссылка: http://forum.hiasm.com/topic/65405 , также есть в архиве]
Если вы не хотите добавлять новый компонент в свой HiAsm, просто удалите в схеме компоненты рядом с главной формой

Надеюсь у всех есть кабели?

Редактировалось 10 раз(а), последний 2018-03-03 20:19:55
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 16884
Рейтинг: 1239
#2: 2017-08-08 18:57:45 ЛС | профиль | цитата
Особенно понравился "Указатель поворотов" с надписью "Кол-во:"
Про чтение атрибутов файла после его удаления никогда раньше не слышал. И что, работает?

Редактировалось 2 раз(а), последний 2017-08-08 19:11:33
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 28
Рейтинг: 0
#3: 2017-08-08 19:14:58 ЛС | профиль | цитата
Tad: Чтение атрибутов файла после его удаления


Ой, не заметил
Теперь поправил.

Редактировалось 3 раз(а), последний 2017-08-08 19:19:35
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#4: 2017-08-08 19:28:30 ЛС | профиль | цитата
А чего стоит сообщение : Очищено 21 логов!
Есть же компонент для правильного (по русски) склонения.
И что за "Очищено" если "Удалено"

Редактировалось 1 раз(а), последний 2017-08-08 19:31:06
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 28
Рейтинг: 0
#5: 2017-08-08 19:32:59 ЛС | профиль | цитата
Tad: Есть же компонент для правильного (по русски) склонения.

У меня такого нету...
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#6: 2017-08-08 19:47:20 ЛС | профиль | цитата
Есть такой у всех. Ему сто лет в обед.

Add(MainForm,2953706,63,126)
{
}
Add(Convertor,2501440,203,126)
{
Mode=16
Word_1="лог"
Word_2="лога"
Word_5="логов"
link(onResult,15146208:doText,[])
}
Add(Button,5952415,112,77)
{
Left=110
Top=75
Data=String(21)
link(onClick,8247497:doWork1,[(179,83)])
}
Add(Button,471027,112,126)
{
Left=110
Top=125
Data=String(22)
link(onClick,8247497:doWork2,[])
}
Add(Button,4365671,112,175)
{
Left=110
Top=175
Data=String(27)
link(onClick,8247497:doWork3,[(179,181)])
}
Add(HubEx,8247497,175,126)
{
link(onEvent,2501440:doConvert,[])
}
Add(Label,15146208,259,126)
{
Left=210
Top=125
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 321
Рейтинг: 10
#7: 2017-08-09 18:33:46 ЛС | профиль | цитата
Tad, это гениально, спасибо! Не сдержался))
Боже как все просто, прощайте мои тонные массивы!
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#8: 2017-08-09 19:36:52 ЛС | профиль | цитата
Master4eG, я бы начинал наверное вот так:
Add(MainForm,10371112,175,196)
{
Width=783
Height=600
Caption="LogsClean"
BorderStyle=1
Icon=[ZIP5E07000078DABD945F4C5A6718C68F69179365A64B9A2DBD5CB69BEE62CB6E966577CBD225DBC59A6E4BDA6C4BFA27716D0F559C569B0AAB96DA8AB5169DBA1527436538AB2845B4D3AA9522110A059C207F048E1C3840D55544A40875EDB7F7E410B48C60B38BBD3CCF972F27F97E79F8CEFB1E0CCB83DFBE7D18BD629FE663D8EB1886ED07C323EC3D8C794ED71BF9D87FADA989D1B1DB4AE52D598FB4A35374A3EFB70E655F6F090B7FB580F5E6DBE20F0FA85F04D2CCBF505D7AF4A7EB3F74FDDA505F53565C78083FF2F1B1CF0EEC2978E5E5820FDE79FFEAD7271FEC08A92CC1E5BD5D76ABCA6E53B95C06B7DBE471CFCC9A34DDA2BA431FBDFBD2EEBCB7F67F71FAEC786E087EFCB0C56CF09116A773DAEB3592A491A266979688E8DAA3509054DC6C293EF6E56B7BF7B24F9DC80169BAC2959D2F919EFDBEBBACA88B7D8691083FD5CEC223AB8B1BF16830E091B4D771D947077AA4E95343E7F0B4E4DC5220547C7724A41DCE1092CB01150AD8C38FFC7F2DFB664D77850D954372599AD3C5C6338E5C283F81E6879153896CFDC87A939645826664C0F17B8D41BF850AD81D4EBDB0B15A21EBDDCEF1110EB46C42013D22C6917BF4FAD50A589F433914C83A2C3E739AF41A173C7AD26B7638F4EDADB583FD5B7906AB4A1F52249A16206D13B3D6704FD29BB400054CDB88B8884592668F5BE75D303A1CBA9F1B79430A799A33C6AF580C5128E24FEB1CFED5731C807855C8390957E7F3FD49780C04619C9B9D14355F52DF1DDBEAD846CECACACA569E69818057460397E652A274C8AB46AE29780B7ECABAB060B4D9343ACDAD0149EBF6B76CB851155E8DA0CD28AD18452BE2E7730A33512EED6055998F9A2308C39C452311358E2A64DB3933ED17236BEBDBEF0756D6370745CDDCD4FF0248E03EF2E88679E5F34E83E1FE1DF5F8ED263E2FA3EBAC9D97A2B10DF4F46F145FA1150DD28AF83945C75BEA4A539C90193823972BA626647D52510DA7FCDFDDEB945E598F3FC9C893DA689B14DDC2B606EE355E7171E1E785DF7ED2D152AB1A51669D024F2F3FB691A4F3809830A01891D2B21D058D4C98DC23490ED43F4E6E66CFC36C5C5A34313179AD3237E7E11F82783C8E987AF6146D26D093C728B196BAAE076A982C2416AB059C1D398944224B9E6810061C668A9974D08E9C64227B1E68E067C6B6B0823D23E2A97EACCFCD5954FD924C2651BA18148A010A3861C7804D72794708143D86D160D44744080B6875DE346F3183FC7A0D705C3DB5DACEE617F998AF6BDAC253AD1EA5D0D62F34FDDE02A7D26238D8FF5228018E8049F03DF04568252C9BF352DE05CE07EF01576731C2C83CF02E84C12D63FF00656655F6]
Position=1
}
Add(Thread,1887740,315,259)
{
Delay=0
FastStop=0
link(onExec,13665930:doEvent1,[])
}
Add(FileSearch,8015768,399,266)
{
Ext="*.log"
Format="Y-M-D h:m:s"
Point(DateCreate)
link(onSearch,2855732:doAdd,[])
link(onEndSearch,14257947:In,[])
link(Dir,254964:Text,[])
}
Add(Edit,254964,406,196)
{
Left=100
Top=10
Width=605
Font=[MS Sans Serif,8,1,0,1]
Layout="Dir"
WidthScale=100
Text="C:\"
}
Add(Button,1820405,224,196)
{
Left=10
Top=10
Width=80
Font=[MS Sans Serif,8,1,0,1]
Layout="Dir"
Caption="Каталог"
link(onClick,10034238:doBrowse,[])
}
Add(Browse,10034238,273,196)
{
Title="Выберите директорию"
NewDirButton=1
DefaultFolder="С:\"
Point(doDefaultFolder)
link(onBrowse,254964:doText,[])
}
Add(FormatStr,7786253,399,336)
{
DataCount=1
Mask="Найдено лог-файлов : %1"
link(onFString,6536582:doText,[])
link(Str1,8015768:Count,[])
}
Add(Button,3557728,224,259)
{
Left=715
Top=10
Font=[MS Sans Serif,8,1,0,1]
Layout="Count"
Caption="Старт"
Point(doEnabled)
link(onClick,8596977:doEvent1,[])
}
Add(Hub,8596977,273,259)
{
link(onEvent1,1887740:doStart,[])
link(onEvent2,15661450:doWork1,[(299,272)(299,254)(163,254)(163,265)])
}
Add(ChanelToIndex,15661450,175,259)
{
link(onIndex,3557728:doEnabled,[])
}
Add(LineBreak,16459328,91,266)
{
Caption="End"
link(Out,6432964:doEvent1,[])
Primary=[14257947,350,7]
}
Add(Hub,13665930,364,259)
{
link(onEvent1,10655768:doClear,[(469,265)(469,202)])
link(onEvent2,8015768:doSearch,[])
}
Add(Hub,6432964,147,266)
{
link(onEvent1,15661450:doWork2,[])
link(onEvent2,7786253:doString,[(170,279)(170,342)])
}
Add(Label,6536582,455,336)
{
Left=5
Top=490
Width=59
Height=17
Font=[MS Sans Serif,10,1,255,1]
Layout="Count"
Caption=""
}
Add(MTStrTbl,6277299,553,196)
{
Left=10
Top=40
Width=755
Height=435
Name="t1"
Columns=#21:Путь к лог-файлам=500|17:Дата создания=135|15:Размер(байт)=95|
CheckBoxes=0
}
Add(MST_Clear,10655768,504,196)
{
MSTControl="t1"
}
Add(MST_RowAction,14012408,553,266)
{
MSTControl="t1"
link(onChange,2664445:doCheckBox,[])
}
Add(MT_AddData,2855732,504,266)
{
Count=3
InputMT=0
link(onAdd,14012408:doRowAction,[])
link(Data2,8015768:DateCreate,[(517,254)(496,254)(496,306)(419,306)])
link(Data3,8015768:Size,[(524,254)(541,254)(541,311)(412,311)])
}
Add(MST_CheckBoxes,2664445,595,266)
{
MSTControl="t1"
link(IndexRow,6277299:Index,[(601,247)(566,247)])
link(Mode,1335060:Value,[])
}
Add(Memory,1335060,602,196)
{
Default=Integer(1)
}

Не всегда все логи нужно удалять. Здесь можно удалять с воронами. Если ворона снята, то файл остаётся. Но это уже совсем другая история(с)

Редактировалось 1 раз(а), последний 2017-08-09 19:40:58
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1
Рейтинг: 0
#9: 2018-03-27 02:18:27 ЛС | профиль | цитата
MrGeRoI писал(а):
Tad: Есть же компонент для правильного (по русски) склонения.

У меня такого нету...


Используй хотя бы convertor (int2str)
карма: 0

0
Ответов: 32
Рейтинг: -2
#10: 2018-03-27 17:58:23 ЛС | профиль | цитата
Вот чистильщик

Add(MainForm,6471000,42,56)
{
Width=451
Height=539
Caption="ЛогаМастер"
}
Add(FileSearch,11550507,182,70)
{
Ext="log"
link(onSearch,10112109:doAdd,[(226,76)(226,86)(107,86)(107,97)])
}
Add(Button,4182667,196,147)
{
Top=432
Width=443
Height=40
Align=4
Caption="Папка"
link(onClick,1289219:doBrowse,[])
}
Add(Button,11859648,35,174)
{
Top=472
Width=443
Height=40
Align=4
Caption="Удалить эту дрянь !"
link(onClick,7526900:doEnum,[(89,180)(89,181)])
}
Add(Memo,10112109,119,91)
{
Width=443
Height=432
Align=5
ScrollBars=3
}
Add(Browse,1289219,238,147)
{
Title="Select Папка"
NewStyle=0
link(onBrowse,11550507:doSearch,[(282,153)(282,115)(170,115)(170,76)])
}
Add(ArrayEnum,7526900,112,175)
{
link(onItem,11689919:doDelete,[(177,181)(177,244)])
link(Array,10112109:Array,[(118,149)(139,149)])
}
Add(FileTools,11689919,210,224)
{
link(FileName,7526900:Item,[(216,216)(118,216)])
}


карма: -2
cschanell
0
10
Сообщение
...
Прикрепленные файлы
(файлы не залиты)