HiAsm
HiAsm
Вверх ↑
ФорумыСхемыЧистильщик логов на компьютере (*.log)
Этот топик читают: Гость
Ответов: 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
Ответов: 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
ФорумыСхемыЧистильщик логов на компьютере (*.log)
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика