аЯрЁБс>ўџ ўџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ + ,ўџџџƒ !ўџџџ#$%&'()*-.0/SY23>56789:;<=ўџџџ?IABCDEFGHўџџџRKLMNOPQ1ўџџџTUVWXZy[\v^_`jbcdefghiўџџџktmnopqrs]uўџџџwxz‚{|}~Root Entryџџџџџџџџ РFГGЋёЖЪДDƒ–§ЪРjWorkbook=џџџџџџџџ†_VBA_PROJECT_CUR";'PRœy–§Ъ'Oz–§ЪVBAџџџџџџџџPRœy–§Ъ№)z–§Ъ  !"ўџџџ$%&'()*+,-./0123456789:;<ўџџџ>?@ABCDEFGHIJKLўџџџNOўџџџQRSTUўџџџWўџџџYZ[ўџџџ]ўџџџ_`aўџџџcўџџџefghiўџџџklmnopqrstuvwxyz{|}~€ щЭЩР‡сАСт\pR. Boom BАaР=гК ThisWorkbookœЏМ=<[J #<X@"Зк1ШџnArial1ШџnArial1ШџnArial1ШџnArial1 џnArial7"Ќ "\ #,##0_-;"Ќ "\ #,##0\-A"Ќ "\ #,##0_-;[Red]"Ќ "\ #,##0\-C"Ќ "\ #,##0.00_-;"Ќ "\ #,##0.00\-M$"Ќ "\ #,##0.00_-;[Red]"Ќ "\ #,##0.00\-q*6_-"Ќ "\ * #,##0_-;_-"Ќ "\ * #,##0\-;_-"Ќ "\ * "-"_-;_-@_-,)'_-* #,##0_-;_-* #,##0\-;_-* "-"_-;_-@_-,>_-"Ќ "\ * #,##0.00_-;_-"Ќ "\ * #,##0.00\-;_-"Ќ "\ * "-"??_-;_-@_-4+/_-* #,##0.00_-;_-* #,##0.00\-;_-* "-"??_-;_-@_-Є[$-413]dddd\ d\ mmmm\ yyyyЅd/mm/yy\ h:mm;@Іd/mm/yyyy\ h:mm;@рѕџ Р рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР р Р р+ѕџ јР р)ѕџ јР р ѕџ јР р,ѕџ јР р*ѕџ јР “€џ“€џ“€џ“€џ“€џ“€џ`…#Sheet1ŒЎСС"Оќџcc щЭЩР л  dќЉёвMbP?_*+‚€%џСƒ„Ё"џр?р?\-U} !} л$} m.} ;} лJ>Ж@  я7КBlad1 №tдџџџџ{у‹ѓы—џџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџThisWorkbook џџџџ#CBlad1 џџџџ=аfrmClean џџџџЄmdlProcesџџџџџџџџџџџџ"Іџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020819-0000-0000-C000-000000000046}џџџџш `џџџџџџџџџџџџџџџџ@џџџџџџџџ”iƒџџџџџџџџ џџџџџџ€Of &џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ”€ўџџџџџџџШџџ џџџџџџџџ%џџџџџџџџ`џџџџџџџџџџџџ џџџџџџџџ`џџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаИщ‘M пўЪ "   0 @P€ џџџџ"X`hx€ џџџџџџџџ€–ЩpЖDummyA@ A@rJ1 "A@r MSOFF $A@rяОR8Мoџџ(–`ЩЖDummyA@(oџџџџџџVБAttribute VB_Name = "ThisWorkbook" ŒBasŒ0{00020P819-0C$0046} |GlobalаSpac’False dCreatablPredeclaIdБTru BExposeTemplateDeriv’Bustomi6zD2P€€ Sub …‘_Bef oreCl€8(Cancel As Boolean) On Error Re„su€ГNextƒ DeleteTheMenu "D0ummy€›Unload frmC%ƒ Settings Abo"u.EndS  [Open(1ž'Mak'ˆ№ФдџџџџЫ‹ѓmџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџ8€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪџџџџџџџџxџџџџЇАAttribute VB_Name = "Bla d1" рBasp0{0002`0820- C$0046} |GlobalТSpac’False ШCreatablPredeclaIdЊTru BExposeTemplateDeriv$’BustomizD2rU€€€€~| џџџџџџџџџџџџџџџџџџџџџџџџRџџџџџџџџџџџџx proces siEC€ LTriTm(N#)Ћ"”8P@А€Ћenter a@Mory to search in firs t.?’x2.РeColрJ= R€GB(92, c‡Є Kž’<> " ‹ЌvфaN sIsD0§Ю)PСђRЁ-^…DПYou€ЁЮd‰†Ѓ@ ."DљУЗѕDcorr IРU/•(RU 'aР]d-mm-y hhИ:mm"аp*ve blank QApтfil‹]аa allЩ[ѓхф/= ceuYџџDQС9ЁmљЕqХoo d92_E‘gЅ~џo%Тt_%‚aЏ!™?.cАy?.0, !.n#Q Š 6_Af€dDЄŠvExtsЁDVarianntуTВ‹•SШ‹iсLo|= Lwрj!˜|6DcC- i@Hpqo UBopund(ТфqsIB= s& ђ(ЂiБo", NQeiCLeft(1Т, L zЂ) ˜- 2д0In  (1,гр*.*YPvbA^pЅ)ј > ƒ{4paгПgЄ р ’T@ЗSЂUser€m_Initi€zeU#0Readlc!Wiиth EКš2ѓёЗ€ WT}K QQ СPџ$! џџџџџџџџџџџџ”)ƒџџџџџџџџ џџџџ„% ^hџџџџЖ*.eЖ*.* f+bDd‹LбdџџаЖ*. f$b f+bkџџЈ f$bЌ$мЖ.eЖ*.* f+bdџџhЖ*. f$b f+bkџџ@џ fўШdџџ(ЮЌсbЖ*.*Ќ+bkџџј b'hzџџшЃ„рЮЌсbАЖЌ+b b'h ŠœІ  Š!ŽаЖError from ListExts: Š! ŠB@Œkџџ`iџџX–И]ђђ0ђH]ђ`џ fўЌ ’‘’& f$’'˜УL ˜$š'” ”$œ'–l – ”œg tЌ 't ˜ –A@žkџџАџ fўШoџџ˜–x]ђиђ№]ђђ ђ8ђP !F!:Ќ $DЖ$†'Єр9Begin search string !Ќ!:Ќ $DЖ$†'Ір9End search string !Ў!:'Јр$Replacement stringЌ   Є l†'f fЌ›GšАj ІЖœ f   І l† І Ќ 'Ђ Ђ ІЌ ›GšАjАWХW     f Ђ f Ќ $њ ЈЌЌ l$†'Њdџџш     f Є$њ ЈЌЌ l$†'ЊkџџЈ Њ'œzџџ˜ЃА  'œiџџ€–h]ђшр)Get the number of the next free text file А'ДрWrite the entire file to sText ˜ ДЋЬ Дв ВжWџџшiџџр–]ђ`]ђx А'Д ˜ ДЋЬ Д$Ж Д$ Ш'”Wџџ ”'šiџџ€џџџџxџџџџЖAttribute VB_Name = "mdlProces" Option @Base 08Explicit Dim iCleanedFiles As Long8Sub –s() ^vAllDirTVarian8t, @Ext 'Dih, i№Fold%x ˆƒw8'Creaюlist of Bfto p‚xs;ƒ‹g=|![= †L€b(frm‚.TextBox€1.Value„w„M= UBound(") + 1Н7v‚q*Ž(6Š(€If Not ‚(0)й" Thќenƒ&…TƒЅU†>яЗ4„Q iХ Ш)‚*С ‚:У 2BMsg@@ "Done!" & Chˆr(1)& _G CСС"I fE ›A  &CeinФwТ@e€and‚changeC KtСthem†.Й"Else1AРYhing ˆd€o", , "€рificaСХХ€#ФIfB E€НсAПFunc‚ЯA‹vsAС­SРнng)„К'Do soРсbasic ”ensAрche ck"С>return a€rray with cƒСрРSrmatt€= Цs.УOn Error GoTТoTra№рд|џџџџш$‹ѓ eџџˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSPџџџџSџџџџSџџџџSџџџџ<џџ<џџ<џџ<џџџџџџTMš0{F7864CA7-C715-41D2-B6FB-2F164E3C966C}{F112D5B0-4711-4829-99ED-2187013D72DD}џџџџи ,Xџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ”`„.џџџџџџџџџџ8  <˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџ” Jиџџџџџџџџџџџџџџџџџџџџџџџџџџџџ” Lџџџџџџџџџџџџџџџџџџџџџџџџџџџџ” PXџџџџџџџџџџџџџџџџџџџџџџџџџџџџ” RРџџџџџџџџџџџџџџџџ˜џџџџџџџџ”)ƒџџџџџџџџИџџџџ„ease% V(џџџџџџџџџџџџџџџџџџџџџџџџ”)ƒџџџџџџџџ џџџџ„% ^hџџџџџџџџџџџџџџџџџџџџџџџџџџџџ” `№џџџџџџџџџџџџџџџџџџџџџџџџџџџџ ”`„bџџџџџџџџ џџ`„dџџџџџџџџџџ`„fџџџџџџџџџџ nџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ”€ўџ`џџXџџ0џџџџџџџџ%ўџџџџџџџџџˆџџ`џџџџџџџџ %џџџџџџџџџџџџРX˜и(№hџџџџџџџџXџџџџџџџџ( џџџџџџџџ0џџџџџџџџ№џџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџИщ‘M пўЪZ"€" 8Hhp€ˆ€ џџџџ"€ ,˜Ш6ш 08&@bhарш№6HX`h p€€ џџџџ"ˆ  € џџџџ"ЈАР€ џџџџ"Ш€ џџџџа€ џџџџ" ир€ џџџџ" (Hhp ЈШИш Ј ИРШа€ џџџџ"ир08€ џџџџ"@€H€P€X`x АР.р € џџџџ"(0 @JP ЈџџџџИ–]ђ@ЖSelect A Folderб2$0'.cta . 4œesЖNo Folder SelectedA@6ardџџ . џџ!8(:kџџxoџџp–Xр%If Root dir is valid start processingя џџ!8!:$>ЖœplaЖ,Please enter a directory to search in first.A@6џџ џџ!8B@@џџ|џџШkџџР џџ!8!:$> B$~ЌœџџІЖ-The entered directory does not seem to exist.Ќ $DЖPlease try againA@6џџџџџџ џџ!8B@@џџ|џџkџџ џџ!F!:$>ЖœЖ+Please enter some text to search for first.A@6 џџ!FB@@|џџ kџџ˜A@H џџA@roџџx–˜ џџA@roџџX–иЖDummyA@Noџџ8–oџџ(–X џџ!8!:$> џџ!8(:oџџј–Р џџ!X!:ЖœЖ џџ!X(:Ќ\Ќ\Ќ\$@ џџ!X(Zdџџ џџ!X!:Ж œ џџ!X!:$\œЖ џџ!X(:Ќ\Ќ\Ќ\$@ џџ!X(ZmІЖYou did not enter a date.Ќ $DЖ8Please correct a correct date in format dd-mm-yyyy hh:mmЌ $DЖ,or leave blank for no date filtering at all.A@6З' џџ!XB@@kџџ@kџџ8kџџ0oџџ(–( џџ!X!:Ж œЖ џџ!X(:ЌЌЌ$@ џџ!X(ZkџџШoџџР–h]ђЈ]ђР]ђи џџ!j!:$h'bџ fўЌ b‘’ d f$bЖ, 'dџ fўШ d dЌ $м'dЌ dЖ*.* l†Ќ ›GЖ*.*'dj d џџ!j(:oџџи–№ЖDummyA@p !Xѕ5:Ж ›GЌ\Ќ\Ќ\$@9ZcGЌЌЌ$@9ZjqџџXoџџPџџџџHџџџџvЕAttribute VB_Name = "frmClean"  јBas|0{F7864CA7-C715-41D2-B6FB-2F164E3C966C}{F112D5B0-4711-4829-99ED-2187013D72DD} dGlobaBlŠSpacoFalse ŠCre atablPr@edeclaI"dгTru BEx0pose0TemplateDeriv–Custаomiz‹DP Sub CommandButton1_Clic@k() Dim sDir As S€Уngƒ ‚ = BrowseFolder(Caption:="Select( A ƒ "&Ifƒ%= vbNul‚l( Thenƒ*8MsgBox ("No„ Ced;€aE‚ZAСMe .Text€ 1.pValuA['E€nd If С€Sub V> 2K>'@+Root d@?is valid start‚ƒ„…†‡ˆ‰Š‹ŒŽ‘ўџџџ“”•–—˜™š›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌўџџџЎЏАБВГДЕЖЗИЙКЛМНОПРСТУўџџџХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэўџџџя№ёђѓєѕўџџџїјљњћўџџџ§ўўџџџpC‚re !&m%У= Replaceж(т`# @$"Т$рKbСaCompar‡ea WC<> "nVQт= S`‹tF ,­Т v F i`ќ0 Wс[сLen(Cfi))p > 2LfСFf‚tf, 2) см*.-Eг1"sšїeСx*с`#3A_iыT­Š @&Є„iџь!хU$WJ ё!ю(=џ(С1(i), ї"ІŸ! Цm5 и[5§‹$*„xщa г/,чџš(Њ<#“M 2N`C iУ›ReŸVBPgч“sh*.хyхOPТдxitІ %RpSrrёH:У§Я Ф!ƒDŸQ P*‡€Nќ=.RaipŒ‘Number,Ii№KEfrom[~‘+:€f˜k&qS.РDescriЂ‘Д _`Q' сR ` 's(Оv“s ’TV„9ЁsSёЧa, s‚сџУБ(ZƒпQр‡хш@s"= “ €:ГƒQ = GetЁ .(ЂЉѓ =SoќurБ`ЁHРt @TџЛŠ‘ —ћ†’Ё1 Writeq " џ•— й'-1аA%c‹ Љtytё/рS_zЃУК€І2СL‡вЎ сsBeg'џА №PsњR{ЏУ’Wv}І3SЁ,3–‚3V"") 'р“search Оsb фяeЋ4я'сAЯ sQ = Х= 5C '№БpmentZГA{Iђn(1–Ар ?ЯƒБ€$Є~ Ў4Œsc|apd›q&Б Ёzziі2 Gуiь э€ЙХС‚s ) -EК%џЁъrFџёƒ/ЂwТsиMid(ља ёА - iССQ€sћ"? BpяЕ™яfrc.р+, Ђ 0)яп0ы› е‚B+#?їА‡гEМ]rЄ]œц ЃГйSf:і>#Hк3NМewЛ3BЕ8;19n“ ЂN 8IntegeVrЁ@p'№M АР nBaaсв‘@fre <р( € џџџџH` x$ˆА<а2PX`€hpx€ џџџџB €€ˆ€ џџџџ€ 0Р€ џџџџ€ $Ш№   € џџџџB  €( €0 € џџџџ8 @ P h p x џџџџˆ ЭџџxЭџџp]ђ–]ђXђpђˆta]ђ ђИђаNo FрCreate list of files to processџџЌ't !8!:$~'v v‘Ќ 'zis val !j!:$h'bяЌ$bЖœ v b$€'xa x‘Ќ '|џџ xA@‚PXІЖDone!Ќ $DЖI found  |Ж files in  zЖ folders and Ќ $DЖchanged  tЖ of them.A@6sedџџ@Ж Nothing to doаЖ NotificationA@6џџџџџџkџџoџџ–шрUDo some basic extension checking and return an array with clean formatted extensions.Щ„]ђH]ђ` dЖ Жаа l$†'d dЖœ dЖ,а l$ˆ'bџ fўЌ b‘’ f$bЌ œ f$bЌ$мЖ*.œ f$bЌ$мЖ.œЖ* f$b f+bdџџ˜Ж*. f$b f+bkџџpkџџh f$bЌe f$bЌ$мЖ.œЖ* f$b f+b f$bЌ$м__SRP_2 џџџџM†__SRP_3џџџџџџџџџџџџPXmdlReadWriteINI  џџџџ4{__SRP_4џџџџVhrU€€€ џџџџџџџџ$`§џџџџџџџџџџџ(Љ`§џџџџџџџџџџџa0(б`§џџџџџџџџџџџy/(љ`§џџџџџџџџџџџ‘0,!`§џџџџџџџџџџџБЩ00(I`§џџџџџџџџџџџБ0nrU€€€€~| џџџџџџџџџџџџa__SRP_5џџџџџџџџџџџџXЬmdlAPIFolderBrowse&џџџџџџџџџџџџ@ѕ__SRP_6 џџџџ\\__SRP_7џџџџџџџџџџџџ^ћrU€€€ џџџџџџџџ(`§џџџџџџџџџџџщ0(Љ`§џџџџџџџџџџџщ0(б`§џџџџџџџџџџџ0n %`„fџџџџџџџџџџT +ШџџџџrU€€€€~| џџџџџџџџџџџџkPathFromIDListAџ@џџџџrU€€€ џџџџџџџџ,™ pџџџџџџџџџџџџ)A, ,pџџџџџџџџџџџџa4џџџџ(`§џџџџџџџџџџџ‰А‘ С nџMErU€€€€~| џџџџџџџџџџџџџџџџџџџџWrU€€€ џџџџџџџџ(`§џџџџџџџџџџџЁ0(Љ`§џџџџџџџџџџџС0,б`§џџџџџџџџџџџйё//,љ`§џџџџџџџџџџџ !//,mdlListfilesџџџџJ™__SRP_8џџџџb|__SRP_9џџџџџџџџdEfrmAboutџџџџџџџџџџџџjш џџ ,Зœџџџџ &bЗ'&З'0џ 2ўЌ ,‘’џџ 2$,'4џџ 4$8'.џџ .Зœџџџџ 0Зœ 0 .$:'0dџџ .'0kџџ * .$:'*kџџшџ 2ўШ 0',ЙџџШkџџРkџџИ *'~iџџЈ–Xр4Get all subdirs for sDir and return them in an array]ђИ]ђађш]ђ]ђ8эЖScripting.FileSystemObject$B.<э . <%D!F.> >!HЌ œЗ'&Ќ'fЮ >!HЌ с@hџ Єў >“ Є!J f+@ fЌ 'fџ ЄўШ @'8dџџXЗ'8kџџHiџџ@–p]ђ№ђ L‘'PЮ L‘ N‘ Ќ с@L8џ fўЌ N‘’ f$N P f Ќ +Lџ fўШ L':iџџ˜–@рCFetch all filenames that need to be processed and store in an array]ђР]ђиђ№]ђ]ђ@ђX]ђp]ђˆ !X!:'Z ZЖ œ ZX'XdџџРЖ1-1-1950X'Xkџџ эЖScripting.FileSystemObject$B.<ЮЌтVИЌ'Ђџ fўЌ *‘’э f$* <%D.Tџ Єў T!\“ Є! <%` R$^œ Є!b XœЮ Ђт@Vи f$* Ф!Ц Є! Ђ+V ЂЌ 'Ђkџџˆkџџ€џ ЄўШџ fўШ V'€iџџP–р]ђ`Ќ$bЖ*.*œЗ'^dџџЗ'^џ fўЌ b‘’ f$b f$bЌ $Ь d›GЗ'^jџ f№МдАџџџџыG‹ѓTџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџв6 џџџџ< џџ<џџџџџџџџџџ€ pи`џџџџџџџџџџџџ@џџџџџџ##„iƒКџџџџџџџџџџџџџџ€џџџ`„Мџџџџџџџџџџ ЕІ `„Оџџџџџџџџџџџџџџ`„Рџџџџџџџџџџџџџџ`„fџџџџџџџџџџџџџџ`„Ђџџџџџџџџџџџџџџ NИ`џџџџџџџџџџџџџџџџџџ„iƒКџџџџџџџџџџџџџџ€Subd`„МџџџџџџџџџџЖ`„ОџџџџџџџџџџcG`„РџџџџџџџџџџTime „аџџџџџџџџ˜ %`„fџџџџџџџџџџT +Шџџџџ`џџџџџџџџџџџџј џџџџ Œiƒжџџџџџџџџџџџџџџ€`„иџџџџџџџџџџиџџџџџџџџИƒИџџџџџџpџџџџџџџџџџџџџџ%џџџџ€џџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0Ищ‘M $*\Rffff*0f4d91e919пўЪP€€€ џџџџ" € &€@€H€X€ џџџџ.h ˜ЈАР Ш ишј$04@xˆЈИиш8Hh px €˜€ џџџџ"  € 6Ј€р€ш€ј€€ џџџџ. @ P`hp€$ˆА Иа и№"ј" $H"p ˜И Ра€ џџџџB и€рш№   (08@џџџџPЭџџxЭџџp–р Load User Preferences frmClean]ђ`]ђxђ]ђЈђРџџЖTEMP$Т Ф!ЦЖ GrepRepl.ini'М М$Шœ ' А'О М ОЋЬ ѕ О$Ъb О РЇv b РЌ$мъЖRoot:KT Р РЌ $Ь$>58(:џџџџЖSubdiKTџџ РЌ$ЬЖY›GЗ5Ю(:cGЗ5Ю(:jЖTimeLKT Р РЌ $Ь5X(:ЖFileTKT Р РЌ $Ь5j(:ЖStartKTџџ Р РЌ $Ь5F(:ЖEndStKT Р РЌ $Ь5Ќ(:ЖReplaKT Р РЌ $Ь5Ў(:nџџЙџџˆqџџ€ ОVkџџhoџџ`–ир0 Save User Preferences from frmClean to INI file]ђ8]ђPђh]ђ€]ђ Ќ'fЖTEMP$Т Ф!ЦЖ GrepRepl.ini'М М$Шœ МA@дkџџ˜ А'О М ОЋЬ ѕ ОвЖRoot: 58!:$>ж5Юœ ОвЖ Subdirs:Yжdџџ( ОвЖ Subdirs:Nжkџџ ОвЖ TimeLimit:5X!:ж ОвЖ FileTypes:5j!:ж ОвЖ StartString:5F!:ж ОвЖ EndString:5Ќ!:ж ОвЖReplace:5Ў!:жqџџ@ ОVoџџ(–И]ђЩ ж$к'и Š!ŽъЌRTЗ'ШSџџиЗ'ШnџџШЩРiџџИџџџџАџџџџ*ДAttribute VB_Name = "mdlReadWriteINI" Option Base 08Explicit Sub hPrefs(sDum€my As SО@ng) ' Load User Perences frmClean%Dim< s#KDFi leNumInteger, sPLine,i &i2Qƒˆ8= Environ("TEMP") &( Apuaƒ.PathSeparator€ "GrepRepl.iŒni€–uIf R`Exist€‡g)p Thete=р FreeG POpen‰„F€6I€nput Ac›цsИЉckƒиo†#„*%With Гƒ0Do WhT Not EOFў(Фl… С‚XC …^GХ Select CŒLeftт(h, 5аС  Р"Root:„PEЩ.TextBo€x1.ValuAЋLTrim(RiDgh†LenC)м -РР­dХl“РqЪ1)AШY"‚q€ .CheckЪ#dTr€%ElЪFaЯJУ?Tim4eLр?2Ц?W>10ЋZ>yT 6_ \ Start_ x3_ 12КEndтS_ ox4_ Н!~’aПx5_ 8 @ Ѓh+FLoop'ЁЁ{'Clo OУk€ЁIf с@^%Ж"†ТЌWЖSave QЖomŠ to љХ fРˆуИЄŒЈБxИctlCon0trolG bЛLoєngCi`sРгСiŸКиŸКŸК‹КKilўlЗcE0Ё…­О1ОШOutBОs K:TК PrintF, љCЊ "рдCЅLЈˆ'АN7K|jQ ЎТSrs:ўYX0ЁO!o eтNind *O‘~у@’Qimiрa  E tP> ЁTypeќs:!uDM,…ћA 1KSв‹š4JŸ–?€GvђDceкДCS$Ї>m>бS„ubЁ=Func›С$ˆA‹сBž‡™a5Booл—iTemp‘д•уOn ErBr0ˆResuЂN x“ѓ= GetНЅ(Йє%щ€P.@8berу1тoIsџ<… ' АСu<ћ&киvТ‰уЖ GoTo!­e ўШkџџЈiџџ џџџџ˜џџџџmЖAttribute VB_Name = "mdlListfiles" ' Perhaps read this out from4e userform Option Base 0Explicit Dim blSubdirs As €Boolean0Func?}AllD"(sRoot,+SЌng) VarianR 'Looku@p all *ectories and pЉth€em into array 6 On Error Resuё€Nex+ƒX€F<,# Tem p• 2 LastСLevelˆ 4i Long, 0iRec…sP8ath ƒ… dTimelimitсDateƒ ƒˆ= C(frmCМ.Tі2T! ER5eся[ …}2Я7eEрIюfїЄџVpѕ5 –џ"†H ‰&ЫРЈ~p'i iЈГ !# Ю A%Иƒ &К)MпР˜Й`"Йs„Ф@Ы sСЙretu\rnСЮ!КыЙ С’fФsoЁ ObjРРуaСoFldтЭ,L fБ #TS Шs>(тmЌІГЁе>SeOРр`Њ`уteƒ ( "Scri@сng.F€ˆSyste:mc"S!c= @.€Foldedr(A). Ÿуs'e €i.C`ƒt о>!…*ЈSЖСiр4РёAaцЗdi- 1CЈ3qIEachаI!,жumExt‡b5ЄŸ'Fet$+Ё™Ѕn0Іsр;at neeаЄo be procesжs№1>sр›e№šи=џг QР21г4gБ)wля=ВAsЃ B SВЄйВ ЇadModоd@•1Ч•‘s˜IџЃж`>——sа=І<> ""Œr–…œuф# 3о"1-95ў0•HсEkџLQTџLџLзS Ѓ.d0~iqƒ„HџП-іŽ„ 1FeRР*€XRћ. as@.и1ыJђWO TѕJq IsАЎidР+(d ensЃРЫAа(f.a)‚A9s)ЯŠ f.Gс С?p ifi0,>ќ= fЏЅ‚@lADўi@Pб‰$u˜†ŸAp & Apжa1д‚XSeparaџа4А# c№4дАџџџџb"‹ѓ0vџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(6 џџџџ<џџ< џџ<џџџџџџј%џџџџ+~X`џџџџџџџџџџџџX џџџџ))Œiƒ(џџџџџџџџџџџџџџ€`„*џџџџџџџџ џџј`„,џџџџџџџџ џџ`„.џџџџџџџџ џџ`„0џџџџџџџџ џџ`„fџџџџџџџџџџ`„2џџџџџџџџџџј`„4џџџџџџџџџџ`„6џџџџџџџџџџШ8 +8p`џџџџџџџџџџџџ˜ џџџџŒiƒ.џџџџџџџџџџџџџџ€р`„<џџџџџџџџ џџ9ю`„>џџџџџџџџ џџ9`„Єџџџџџџџџ џџ9і „@џџџџџџџџ0`„fџџџџџџџџџџP +:@`џџџџџџџџџџџџА џџџџ ŒiƒLџџџџџџџџ џџа€iƒNџџџџџџџџ џџџџџџ€`„fџџџџџџџџџџ`„Pџџџџџџџџџџ  +€р`џџџџџџџџџџџџ€ џџџџ##Œiƒ*џџџџџџџџ џџ €iƒRџџџџџџџџ џџџџџџ€`„<џџџџџџџџ џџ`„Tџџџџџџџџ џџ`„Єџџџџџџџџ џџј „Vџџџџџџџџ8 `„fџџџџџџџџџџ`„Ђџџџџџџџџџџ`„Xџџџџџџџџџџ`„Zџџџџџџџџџџ Р+^џџџџ`џџџџџџџџџџџџ  џџџџ Œiƒdџџџџџџџџџџ@€iƒbџџџџџџџџ џџџџџџ€`„fџџџџџџџџџџт€&џџџџџџ џџ@џџџџџџџџџџџџрp@xџџџџџџџџџџџџXƒ$џџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџџџџџрџџџџxџџџџџџџџџџџџџџџџџџџџШџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  Ищ‘M $*\Rffff*0h4d91e919пўЪ€ .€0€8€ џџџџ€@€ џџџџB H€ 8P€ џџџџˆ€ џџџџ€€А€Р€Ш€ џџџџаш€ џџџџ№  0 H X`hpˆ˜ Ј ИШрш№ј ( 08@HP€ џџџџB X€ :`€ €Ј€И€Р€ џџџџ*Шј€ џџџџ (0P ` x ˆ˜ ЈАИ€ џџџџ€ џџџџB Р€Ш и$ш ( HX`€ џџџџB h€ Jp€ џџџџ€Р€Ш€и€р€№€ј€ џџџџ (8@X*`€ џџџџ ЈРр ј((8`p x €  Ј€ џџџџB А€И€ џџџџРирш№ 4 @PXџџџџhр( Perhaps read this out from the userformЭџџHЭџџ@]ђx–р1Lookup all directories and put them into an arrayЩp]ђxђђЈђРЎ@ђ]ђиђ№ђ]ђ]ђ  !X!:X'6ђ№З'&ЮЌс*P (Ќ+*џџ !Юœџџџџ ($8',џџ * ,$:'*џџr@JZџEљ!? ]щFD я“ ­‚h‚xspС6“ј, vq™FЦуaС8V<ƒSPвЃЩ"ј*.*=5wP чЮЋ4чJ Пп,d(2и)1 С RightУP , Lenж) d- = вБ# їЏ ЁыБ ™Uq\ !`§џџџџџџџџџџџ9Q0/nшф„џџџџя‹ѓГqџџˆЖџџџџџџџџџџџџЩЖ JгAОэљzщšЇ!вPTe!ЎF† k2і—Zэ]:tўW„ФH’еshvІъWpИВ2ђ@­ЇЬ9г^џџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSPџџџџSџџџџSџџџџSџџџџ<џџ<џџ<џџ<џџџџџџš0{5450D221-2165-46AE-860B-6B32F6975AED}{FE743A5D-8457-48C4-9215-D5736876A6EA}и ,@`џџџџџџџџџџџџџџџџџџџџЄџџ” fџџџџ`џџџџџџџџџџџџџџџџџџџџЈџџ”`„hџџџџџџџџ џџom€ўџШџџРџџ˜џџџџџџџџ%ўџџџџџџџџџ№џџШџџџџџџџџ %@џџџџџџџџџџџџ№џџџџ8џџџџџџџџџџџџџџџџџџџџeџџџџŒiƒўџџџџџџџџџџџџџџџџџ ƒўџџџџџџџ˜џџџџџџџџџџџџџџ%‚ $џџџџўџџџШџџўџџџџџџџџџџџ%џџџџHџџџџџџџџ˜џџџџџџџџ@џџџџџџџџШџџџџџџџџџџџџ pTЌЄџџџџџџџџџџџџџџџџџџџџџџјИщ‘M пўЪ€ џџџџ" € џџџџ€ џџџџ" €(0,8h(pˆ˜ €Ј,А р№ј€ џџџџџџџџ@– $A@roџџ`–@]ђ€ЩjHэЖInternetExplorer.Application$B.h hѕ5nbFA@„FЙРЗ9pqџџHэА.h|џџ8Ѓj0ЖUnexpected Error, I'm quitting.A@6P hB@r4џџџџэА.hoџџрџџџџиЖhttp://excelpages.serve-it.nlC@lџџџџџџџџ0џџџџOВAttribute VB_Name = "frmAbout"  јBas|0{5450D221-2165-46AE-860B-6B32F6975AED}{FE743A5D-8457-48C4-9215-D5736876A6EA} dGlobaBlŠSpacoFalse ŠCre atablPr@edeclaI"dгTru BEx0pose0TemplateDeriv–Customiz‹D P Sub CommandButton1_Click() Unload AИ End  ‰"Label3‹Dim objIE As O bject+On Error G oTo e_h€AlerSet)„= ‚Reƒ("Internet@Glorer.App@,ationТ"D-WithƒCA2.NavigС<"http://excelpages.serveР-it.nl€{ СDo Whi€p.Busy: DoEvents: LoopˆViќsiƒzƒqJС!ƒ Щ3NothingaExitTJA:CMsgBox €("Unexp€OzN, I'm  quitt€.>y[.Q€У’ˆpф„џџџџ—o‹ѓИЙџџˆЖџџџџџџџџџџџџ~/љ)*оrCЇЦЭон]їРЛЧKКљх&v3§ж(ўџтЫвIБдЉ6l МH›Ин;CЉ'LЧQ9{џџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџmdlMenuMakerџџџџџџџџџџџџaЭfrmHelpџџџџџџџџџџџџ’Ј_VBA_PROJECTџџџџџџџџџџџџl™dirџџџџџџџџџџџџ­ЈџџџџџџџџџџPSPџџџџSџџџџSџџџџSџџџџ<џџ<џџ<џџ<џџџџџџš0{F7001C8F-BBC0-4BC7-BAF9-E5267633FDD6}{FFFE0E28-CBE2-49D2-B11F-D4A9366C080D}€ , `џџџџџџџџџџџџџџџџџџџџШџџ”€ўџpџџhџџ@џџџџџџџџ%ўџџџџџџџџџ˜џџpџџџџџџџџ % кџџџџџџџџџџџџџџџџџџџџџџџџeџџџџœiƒўџџџџџџџџџџџџџџџџџ џџџџƒўџџџџџџџ0џџџџџџџџџџџџџџ%‚ Ќџџџџўџџџ`џџўџџџџџџџџџџџ% џџџџџџџџџџџџ€џџџџџџџџ@џџџџџџџџ џџџџџџџџpџџџџџџџџџџџџ8xЬШџџџџџџџџџџџџџџџџџџџџџџhИщ‘M пўЪ" € џџџџ" € џџџџ(џџџџ8– џџA@roџџ`– oџџPџџџџHџџџџ/БAttribute VB_Name = "frm€Help" №Basx0{F7001C8F-BBC0-4BC7-BAF9-E5267633FDD6}{FFFE0E28-CBE2-49D2-B11F-D4A9366C080D} dGlobal!‰SpacoFalse ŠCreatablPre declaIdвTru BExpose0TemplateDeriv–Custohmiz‹DP Sub CommandButton1_Click () Un@load M€LE„nd ‰@Label5‡  €`€xЄЕ€0* pH‚dф GrepnRep€lace8DExcel applicatio@n to gL 0and T string wiDth@pzxcelЈ ap iatio nt gŠr'p'ndl7A s3Šr5n+ w ook_Open›с MakeTheMenuдBlad1Р&CommandButton1_ClickфСsDirЩо BrowseFolderCaptionx vbNullStringЎТMsgBox—RTextBox1ІSValueфKCommandButton2_ClickєљLTrimєbSetFocusёЦ vbDirectorygкChrK~TextBox3ЈSProcessЌHCommandButton3_ClickFACommandButton4_ClickVy WritePrefsl  Label10_Click8 TextBox1_BeforeUpdateў~ ReturnBooleanщeTextBox2_BeforeUpdateWTextBox2ЇS ForeColorIsDate2ЂTextBox2_Enterу~TextBox6_AfterUpdateћvExtsАЂsExtsэi`ListExts$lTextBox6ЋS vbTextCompare QUserForm_Initialize5c ReadPrefsБЮ mdlProcesЁ iCleanedFilesфБvAllDirsh0 vAllFilesС.iFoldsZ№iFilesMN ListAllDirsuГ ListAllFiles0н CleanFilesu0ErrTrapРЛReplacefSplit)ErroŠRaiseєNumberЃ- DescriptionО vFilesLusTextsClean’ІsFile8aGetTextі CleanSourcek5 WriteText№т sDirtytextUQi2”]sBegxгsEndЭфsRepв( sCleantextЇTextBox4ЉSTextBox5ЊSEscape(sNewtextЌЎ nSourceFile šLOFcЏmdlReadWriteINIѓ†sDummyїW sUserPrefsŠ;FileNumи#sLineuEnviron, ApplicationЅ* PathSeparator5 FileExistsЌEOFє‰Right  CheckBox1‹Уctl€ControlˆВKillЬ PathFileNamexiTemp]hGetAttrЛ™mdlAPIFolderBrowse7BIF_RETURNONLYFSDIRS-МBIF_DONTGOBELOWDOMAINЩbBIF_RETURNFSANCESTORS˜VBIF_BROWSEFORCOMPUTERvпBIF_BROWSEFORPRINTERВCBIF_BROWSEINCLUDEFILESo}MAX_PATHЇ( BrowseInfoЗYhOwnerEmpidlRootdpszDisplayNamehrlpszINSTRUCTIONSћДulFlagsэСlpfnВЖlParam…7iImageUрSHFILEOPSTRUCTOhwnd/СwFuncUWpFrom'мpTo‰ХfFlagsЛ fAnyOperationsAbortedм„ hNameMappingsј[lpszProgressTitleN$SHGetPathFromIDListA‹’pidlЎЇ pszBuffer„ shell32.dll+ˆSHBrowseForFolderAќД lpBrowseInfo№r FolderNameЄIDІ]ResЮ vbNullCharкY mdlListfiles_„ blSubdirsŒsRootdirЇ‹arrDirs84 arrDirsTempЭ]№lдАџџџџu-‹ѓAџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ€<џџˆ< џџ<џџџџџџџџџџ0 v@џџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ x€џџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ (РџџџџџџџџџџџџџџџџРџџџџџџџџ--„iƒКџџџџџџџџџџџџџџ€`„|џџџџџџџџ џџ „~џџџџџџџџ%`„fџџџџџџџџџџ`„‚џџџџџџџџџџ`„„џџџџџџџџџџ „†џџџџџџџџx% „Šџџџџџџџџ˜% „ŒџџџџџџџџИ% 8џџџџџџџџџџџџџџџџџџџџџџџџ„iƒКџџџџџџџџџџџџџџ€`„|џџџџџџџџ џџ Єxџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ ЈИџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ Њџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџџџ8џџџџџџџџ@€ИxРџџџџџџџџаџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ јИщ‘M пўЪI€€ џџџџ" € џџџџ"(0@€ џџџџ" H€ JP€ . € (а€ (ј€  ( 0@€P€`€x€ џџџџ4Шаш€ џџџџ( 0D@ˆ € џџџџЈШ аDр(0@€ џџџџHhpD€Шаш №€ џџџџ" €* .P €€ џџџџ"˜  А"И Ра"и р№€ џџџџџџџџЭџџx–ЖDummyA@oџџX–@ЖDummyA@(oџџ8–€рD Credits go to Andrew for this routine. It has been slighty modifiedџџр( to give a different layout in the menu.$ р! Check out Andrew's utilities at:р! http://blog.livedoor.jp/andrewe/рЩаЗ Ф(z:'ЖDummyA@]ђрђј]ђђ0ђH2ў]ђ`ђ€ђ $,э ”бlЖWorksheet Menu Bar$Ž!%’.| |ѕЖGrep && Replace92ЖGrep & Replace9–qџџјэ ˜бl |!%’.† †ѕЖGo!92 œ9šр"5<- will force the caption text to show on your buttonЌ;9žЖLetsgo9 qџџXэ ˜бl |!%’.Š ŠѕЖHelp92 œ9šр"5<- will force the caption text to show on your buttonЌ;9žЖShowHelp9 qџџИэ ˜бl |!%’.Œ ŒѕЖAbout92 œ9šр"5<- will force the caption text to show on your buttonЌ;9žЖ ShowAbout9 qџџЗ Ф(zoџџј–Р]ђ Щрџ |ўЖWorksheet Menu Bar$Ž!“ |!2ЖGrep && Replace›G |B@Ђjџ |ўШoџџh–8 B@ІoџџH–x $B@Іoџџ(–И ЌB@Іoџџџџџџџџџџ–ГAttribute VB_Name = "mdlMenuMaker" Option Explicit Sub Test() Del@eteThen @"DummyrEиnd T b2dК`#(sT As$ SВngy' Credits go to Andrew for this routine. It has been slighty modif(iedb'gi ve a € ferent lay! in€'e m€‹.CheckF ƒ:'s 6lities at:…http:/€/blog.l€/door.jp/Вa‚Ue/„O€Д„rr_Resu€Ч˜NexЙВApРBaЦ.ScrdU$pdngкFa8lseƒ Ц!Di€m myBarЃ€Object,!AmItemACo mm&РContXrol@iСLong, RowђN[s ƒŠ €myCBtn1‹РButton:23A”С3SetФ3= .s("€Workshe€E& @3").4s.Add(Typ@e:=msoDPopup•WitŽhУУ1.CaУСШGrep && ReplaceЇ@КAB TaAc"C УCC0ƒH=џУл)ƒN *‚У!‰*„o!‰'StylСјР=E'<- wHill!gceb]c t PAcshowц рar `† 8h’F!Id Q59Ј0OnAcЂ‡ &LeАtsgoЄ{!2ргтT!ono!2(h!pHelpŸ! Ÿ! ЛŸ!›!S€)шл!3п!Ы!uUC3г!Ab@—џ!џ!ŸCŸCс!  "ZŸTќru ŸhЭŠ •ЧаЁ‹C%—АF ГEacФƒ8 InџŽfXЧ0IfыE}—Š  уnФЃуТУ ˆPrilvaрј` #m%эfrmClean.џa,h)цHтOgA1,8с- arrDirsTemp2е№arrLastDirLevelЋЋiRecpsPath„№ dTimelimitkЁ GetSubdirswУ MergeArraysEєfsoъoFldss( arrTSdirs—— CreateObjectјŠ GetFoldernц SubFoldersx=Count0vPath2arr1|Darr2}DiLastm&arrExtsWJoFld%гsFiles*1dModdate ЌsModdateaІFileswX IsValidExt3‡GetExtensionName ьDateLastModifiedЊќsExtOц Label3_Clickœ<objIEЕ error_handler•4Navigateщ~BusynVisibleЖгQuit9Ў mdlMenuMaker=Test4ЋTest2їcScreenUpdating! myBarьc myMenuItemCICommandBarControlPХRowNo MenuRowNoœQmyCBtn1ј‡CommandBarButton9гmyCBtn2љ‡myCBtn3њ‡ CommandBars ControlsЬKAddїrmsoControlPopupl)Tag&иmsoControlButtonnѕStyleХpmsoButtonCaptionЈБFaceIdЪiOnAction„ DeleteИxLetsgožЄShowѕ ShowAbout!ёShowHelpРмfrmHelp9’WorkbookkUserFormNFrame1ЙCommandButton1|дLabel5‘,Label6’,Frame2ЙLabel10@LabelЬayџ фњ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applicationsю*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\MSOffice_2003\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\STDOLE2.TLB#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\office11\mso.dll#Microsoft Office 11.0 Object Libraryо*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{3B6D5166-6080-4AFD-8345-FC78B332BBD3}#2.0#0#C:\DOCUME~1\Rembo.VI\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Дд*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\WINDOWS\system32\scrrun.dll#Microsoft Scripting Runtime  рџџpExcel application to grep and replace string with stringџџџџИщ‘M џџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџ‹ѓ ThisWorkbook0R4d91e8ddџџThisWorkbookџџы—щџџ Blad10S4d91e8ddџџ+ Blad1џџm%џџfrmClean0T4d91e8ddџџ!frmCleanџџ e0*џџmdlProces0e4d91e919џџrmdlProcesџџ9ЄHŒџџmdlReadWriteINI0f4d91e919џџИmdlReadWriteINIџџT`Mџџ$mdlAPIFolderBrowse0g4d91e919џџм$mdlAPIFolderBrowseџџНнx^џџmdlListfiles0h4d91e919џџ$mdlListfilesџџ0v(frmAbout0m4d91e94dџџ%frmAboutџџГqЈ•џџmdlMenuMaker0Z4d91e8ddџџtmdlMenuMakerџџAР3џџfrmHelp0d4d91e8ffџџ­frmHelpџџИЙиuџџџџџџјџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџРџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџиџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЕэХпCOЕiИЄŸЙОџџџџ „ў0ВJБЊ%IпЭџџџџ$6ІУ9эOЖ•xлЗeНџџџџб 4жЏDЏЊСД/‰5џџџџ‡S&œА{pN‹І#riџџџџе>ръњDšю|-U’ŒџџџџGnТЛ№иEDŸъёTSдcџџџџdvtєEuN…9TјюO|JџџџџюD fUb)JИ\$tЋcяџџџџ\МЊ}oTtOЄ„Gtку>Оxџџџџ€№ђџIQ„џfExcel€+VBAїтWin16С~Win32MacГВVBA6­# VBAProjectОПstdole“`OfficeuMSFormsC ScriptingŠп ThisWorkbook|у €џ_EvaluateйWorkbook_BeforeCloseВзCancelё˜ DeleteTheMenuнAfrmCleane frmSettingsќfrmAboutяР Workb11ALabel12BCommandButton2}дCommandButton3~дLabel13CLabel14DCommandButton4дLabel1,Label2Ž,Label3,Label4,Label7“,Label8”,Label9•, Label5_Click=М€џClickŠу Label1_ClickЛЬ GrepnReplace $џџЬ!u%џџџџџџџџџџџџ+џџџџџџsЙџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџрџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџн%­ џџџџџџ "ДXth' sД=у †‚ ‚Ищ‘M ‚wH<‚sРtdole>‚ **d€Ll€J €3^€*\G{00€020430-C 0046}#2.0#0#C:\WINDOWS\system32\STDOLE2.TLB# Autom ­EƒEOffibc„EOf€›eа ž”€E2DF8D04C-5BFA-10€1B-BDE5€ETAA€C4€2ˆEProgram Files\CommРsMicrosoft Sha red\o 11\mso.dll#GУ& 11.0 Object €Library€%€@MSF€orms>SF€Srm%r3@SD452EE1-E0D8F0A-8-02608C4D0BB4SFM2`0.DLLH'B ЃР_Ь&/;"1РƒjIqAHq00}t#0Bq#Р €ž504Ѓ€ …РA3B€6D5166-@20-4AFD-8345-FC78B332BBD3ˆ6DOCUME~1\Rembo.VI\LOCALS@Temp\VBE\„T.exd <Р!€с.E р….`ŒˆM Д @Scriptрv>мСрrсkpbsЁlb j`с4 20B28р^E718-11CF-893DaM0C9054228}#`Bє^scrrunLIf Runti,me€ @Ђ’ "т‹ѓbrThisWorkbo okGрT sŠiJWBKkbр okю2њЂ` HЂ1b„Zщ Є",ты—""+ЂрBlad1Gж A€›a@—1РF†2L/ %- m+ Р frmCleanGЃЁрЅmC@e ЄЖn@i2ro*?)m ec(  #eFmdl ˆcesGFm`lPеo@GeР0тJЦ&2дяŒo 9Є!* @ ReadWriteINTIG' ŠdР R+ЕЁ/WрiWeHIN`25ЏM ™­%TЋ!i APIFolderBrow`seG$Ё&AU@&I‚ЁlрeРBU`o кs@c&dКl,2?$я^ 8Нн{ бp LiИstfбaѓ5#LАvэёpfpёpsа&§ѓ5'џѓ? (0vƒ; -AboutY/ЪAr>u@9Y/›7П•рi}Гq_/SGPMenuMa(kerYMаnЈuM№7kАrW/іYџŸ 3ŸA[БuА@HelpjGВufр#mРKa–p@2-uПИЙџqG“K*yџџџџrU€€€~~~~~~~~~~~~~~X I ‡Ÿ-ЃцйOE˜ЧЈЅр)ђ __SRP_0џџџџФi __SRP_1џџџџџџџџџџџџюЭfrmCleanџџџџ9№)z–§Ър-0z–§ЪfџџџџџџџџџџџџіOфџџџџ  џџџџџџџџџџџџщ џџџџџџџџџџџџџџџџџџџџџџџџ)ˆ љ џџџџ џџџџI a  Ё С с џџIˆ љ џџџџИџџџџ 9 Y џџiˆ љ џџџџџџџџљ йy џџ‘ˆ љ џџџџ(џџџџЁ С с  ) џџСџџџџџџџџџџџџщџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџ1щ щ щё VBAProject ThisWorkbookBlad1frmClean mdlProcesmdlReadWriteINImdlAPIFolderBrowse mdlListfilesfrmAbout mdlMenuMakerfrmHelpяРF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA Iџџџџ qй0РF #C:\MSOffice_2003\OFFICE11\EXCEL.EXEExcel SHBrowseForFolderA AџџџџiЙ@0РFC:\WINDOWS\system32\STDOLE2.TLBstdole aџџџџ‰бPLај-њ[НхЊDоR?C:\Program Files\Common Files\Microsoft Shared\office11\mso.dllOffice Aџџџџiё`с.E р….`ŒM ДC:\WINDOWS\system32\FM20.DLLMSForms aa‰бpfQm;€`§JƒEќxГ2Лг 2C:\DOCUME~1\Rembo.VI\LOCALS~1\Temp\VBE\MSForms.exdSHBrowseForFolderA Aaiб€0( BчЯ‰= ЩB(C:\WINDOWS\system32\scrrun.dll Scripting aџџџџ‰бProcessListExts CleanFiles CleanSource WriteTextGetText  ReadPrefs WritePrefs FileExists    ,  , SHGetPathFromIDListA shell32.dll SHGetPathFromIDListA 9 a а 9 й№ BrowseFolder ListAllDirs GetSubdirs MergeArrays ListAllFiles IsValidExt GrepnReplaceRrU€€€ iџџџџџџџџџџџџџџџџџџџџ    џџџџџџџџџџџџsExtsvFiles sDirtytextsFilesNewtextsDummy PathFileNamepidl pszBuffer lpBrowseInfoCaptionsRootdirsDirarr1arr2arrDirsarrExtssExtvExts8Excel application to grep and replace string with string#$  џџ.}:5-Rу ‘ЮуЊKИQDBTahomaќ… $е€#Frame1x5д>§џџџ„‡š…†ˆŠ‰‹ŒŽ‘“’œ”•–—˜™›ўџџџЁžŸ Ђўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ$е€#Frame2x5дЖ,х€4CommandButton2,*„(,х€8CommandButton3Њ „(Dх € 4€CommandButton4 „(Save these settingsn(€Go!ЎOu€ЅTahomax5(€Cancelx5ЎOu€ЅTahomax5(€SaveЎOu€ЅTahomax58H  €€џџ!}C3Є GeneralRу o!џџџџќ i02џџџџџџџџ n`єЮ›ЭЊ`Ž№)z–§Ъ№)z–§ЪfџџџџџџџџџџџџџЅo џџџџ D ўџџџ   ўџџџўџџџўџџџ !"#ўџџџ%ўџџџ'ўџџџ)*+,ўџџџ./01ўџџџ345ўџџџ7ўџџџ9:ўџџџ<ўџџџ>ўџџџ@ABCўџџџEFўџџџўџџџIJKLMNOPQўџџџSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ўџџџ€‘ЮуЊKИQDBTahoma @‰ $х€4TextBox1x>0ѕ€28CommandButton1sв+д(х €TCheckBox1ttoxlѕ € 2D=€Label5x1Їь Only proces files after this date and time (dd-mm-yyyy hh:mm)& Lѕ € 2@€Label6x1ЇЇDirectory with files to process$х€ HTextBox2x‚ Xѕ €2D)€Label132Ї‹Filetypes to process, seperate with comma$х€4TextBox6x"Dѕ €2@€Label146ЇInclude sub directories€H€,,5€ЅTahomal(€Browsel3фu€ЅTahomal4FР€€€€ €Т0S# CheckBox1i5€ЅTahoma$(€Date & Time limit: Ј5€ЅTahoma (€File directory* Ј5€ЅTahoma(@€H€,€ €,to5€ЅTahoma$(€Restrict file types:* Ј5€ЅTahoma€H€,,5€ЅTahoma (€Include subdirs Ј5€ЅTahomaўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вq@H  €€џџ}C3њGrep & ReplacesRу ‘ЮуЊKИQDBTahomaŒ† Lѕ €CompObjџџџџџџџџџџџџpi15%# n`єЮ›ЭЊ`Ž№)z–§Ъ№)z–§Ъfџџџџџџџџџџџџљo"$џџџџt2H€Label106ЇЇUniquely define start of string$х€8TextBox3x>dѕ €2H7€Label113Ї Optional. Uniquely define end of string or leave empty.$х€8TextBox4xЏTѕ €2<'€Label124Ї‰Enter the Replace string or leave empty$х€8TextBox5x ((€Start of string to find* Ј5€ЅTahoma46!€HЌ$#45€ЅTahoma46((€End of string to findnd* Ј5€ЅTahoma46!€HЌ$#45€ЅTahoma46( €Replace with* Ј5€ЅTahoma46!€HЌ$#45€ЅTahoma46ўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вqўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9ВqCompObjџџџџџџџџџџџџ$pCompObjџџџџ&џџџџ&aVBFrameџџџџџџџџџџџџ((frmAbout0)р-0z–§ЪРЃ9z–§ЪVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmClean Caption = "Grep & Replace" ClientHeight = 6540 ClientLeft = 45 ClientTop = 435 ClientWidth = 7725 StartUpPosition = 1 'CenterOwner TypeInfoVer = 46 End $  џџ}uЧRу ‘ЮуЊKИQDBTahomaД„$е€#Frame1дO(ѕ€2HLabel2Їд(ѕ€2Xfџџџџџџџџџџџџ-o(.џџџџ2иi03џџџџџџџџ, n`єЮ›ЭЊ`Žр-0z–§Ър-0z–§Ъfџџџџџџџџџџџџ6dLabel3x,х€ 8CommandButton1Ќ$(€Grep & Replace v1.0nЁЇЗ€@УМTahomax54)Р€http://excelpages.serve-it.nlЈ7€@ЅTahomax5(€Closeax5Тu€ЅTahomax5(H  €}ь 0(ѕ€2 Label1>дo+-џџџџ8 CompObjџџџџџџџџџџџџ;pCompObj*/џџџџ=aVBFrameџџџџџџџџџџџџ?€(o€Search through text files and replace/remove selected parts of it. Use at your own risk! Created by RemboЁD5€ЅTahomax5ўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вqўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9ВqVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmAbout Caption = "About" ClientHeight = 2580 ClientLeft = 45 ClientTop = 330 ClientWidth = 4275 StartUpPosition = 1 'CenterOwner TypeInfoVer = 17 End   }'9˜C\‚$е€#Frame1jд,х€8CommandButton1^0Ц?(€Close125хu€ЅTahoma25frmHelp:2РЃ9z–§ЪАЯ@z–§ЪfџџџџџџџџџџџџDŠo17џџџџG8i01џџџџџџџџ5 n`єЮ›ЭЊ`ŽРЃ9z–§ЪРЃ9z–§ЪfџџџџџџџџџџџџHio46џџџџR CompObjџџџџџџџџџџџџpCompObj38џџџџa(H  €џџ }Я7m>Rу ‘ЮуЊKИQDBTahoma Œ (ѕ€2<Label1x5>Œ(ѕ€2HLabel2x5>>(ѕ€2DLabel3x5>Œ(ѕ€2HLabel4x5>Џ(ѕ€2 Label5x5ŽV2(ѕ€2DLabel6x5>1(ѕ€ 2DLabel7x5>ќ(ѕ€ 2HLabel8x5>Ћ(ѕ€ 2LLabel9x5>Г(ѕ€ 2L Label105>М(ѕ€ 2@ Label115>Ъ$(ѕ€2@ Label125s:2( € is the root directory of the files you would like to inspect. You can click to the Browse button to help you search for the right directory. is a filter to refrain to certain file types. You can use wildcards. For example, you might just want to inspect HTML files. In that case simply enter *.html You can enter multiple types by seperating them with a comma. To inspect html, htm and php files simply enter *.html, *.htm, *.php A dot (.) or asterisk (*) is interpreted as *.* You may omit the * or even the *. part. So entering html, .htm, php is interpreted as *.html, *.htm, *.php de Subdirs. If enabled this will include all sub directories under File directory. Date & Time limit will only include all files modified after the date & time set here, thus filtering out files modified before this date & time. Leave empty to include all files. Start of string to find is used to set the unique beginning of a string that you want to find. If the string you are searching for is relatively short you can enter the entire string here. End of string to find can be optinally entered to define a unique ending of the string to find. This can be handy if you want to find very long strings without having to enter the entire string, OR if the middle of the string to find is variable. Example: Start of string to find is set to 123. End of string to find is set to 789. This would find strings 123456789 and 123abc789. Replace with will replace the found string with the text you enter here. Use the Save button to store your settings. Settings are stored the file GrepRepl.ini that is created in the same directory as this Excel Application. That is all there is to it!T5И+5€ЅTahomax5$(€Usage instructions0nxЗ€@УМTahomax5 (€File directoryлЇЗ€@ЅМTahomax5$(€Restrict File Typesn“ ЇЗ€@ЅМTahomax5ь(й€Disclaimer! Use at your own risk. I created this for fun and because I needed it. Feel free to spread or modify as needed but leave credit for me and my website http://excelpages.serve-it.nl Thanks! Remco T5П 5€ЅTahomax5 (€Include Subdirs‚ ЇЗ€@ЅМTahomax5 (€Include Subdirs‚ ЇЗ€@ЅМTahomax5$(€Date & Time limitsnŒ З€@ЅМTahomax5((€Start of string to findg ЇЗ€@ЅМTahomax5((€End of string to findnd• ЇЗ€@ЅМTahomax5( €Replace withТŒЗ€@ЅМTahomax5( €Disclaimer!hмЗ€@УМTahomax5ўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmўџџџ‚ўџџџ„…†‡ўџџџ‰Š‹Œўџџџ‘’“”•–—˜™š›œžŸўџџџЁЂЃўџџџЅІЇЈўџџџЊўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџbedded ObjectForms.Frame.1є9Вqўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9ВqVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmHelp Caption = "Help" ClientHeight = 9810 ClientLeft = 45 ClientTop = 435 ClientWidth = 8295 StartUpPosition = 1 'CenterOwner TypeInfoVer = 14 End VBFrameџџџџџџџџџџџџƒPROJECTwmџџџџџџџџџџџџˆ^PROJECTџџџџџџџџџџџџŽcSummaryInformation(џџџџ<џџџџ аThisWorkbookThisWorkbookBlad1Blad1mdlProcesmdlProcesfrmCleanfrmCleanmdlAPIFolderBrowsemdlAPIFolderBrowsemdlListfilesmdlListfilesmdlMenuMakermdlMenuMakerfrmAboutfrmAboutmdlReadWriteINImdlReadWriteINIfrmHelpfrmHelpID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Document=Blad1/&H00000000 Module=mdlProces Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=frmClean Module=mdlAPIFolderBrowse Module=mdlListfiles Module=mdlMenuMaker BaseClass=frmAbout Module=mdlReadWriteINI BaseClass=frmHelp HelpFile="" Name="GrepnReplace" HelpContextID="0" Description="Excel application to grep and replace string with string" VersionCompatible32="393222000" CMG="383A94E298E298E69CE69C" DPB="CECC62EE6E12192F192FE6D11A2FAA1608919B9D5EC601207AF40C5ABE14CDD0545B9763404B4B" GC="6466C884C81BC91BC91B" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=154, 203, 973, 723, Blad1=0, 0, 0, 0, C mdlProces=88, 116, 985, 569, frmClean=66, 87, 923, 416, , 132, 174, 877, 664, C mdlAPIFolderBrowse=88, 116, 929, 606, C mdlListfiles=132, 174, 973, 664, mdlMenuMaker=110, 145, 929, 665, frmAbout=22, 29, 842, 519, C, 132, 174, 952, 664, C mdlReadWriteINI=88, 116, 908, 606, Z frmHelp=110, 145, 908, 753, C, 66, 87, 864, 695, C ўџр…ŸђљOhЋ‘+'Гй0 @HXh € Œ˜фR. BoomR. BoomMicrosoft Excel@ŒqднЩ@€a*z–§ЪўџеЭеœ.“—+,љЎ0м PX| „Œ”œ Є ЗфVeromatic International BV' Sheet1  WerkbladeDocumentSummaryInformation8џџџџџџџџџџџџЄ CompObjџџџџџџџџџџџџЉlџџџџџџџџџџџџџџџџџџџџџџџџnўџ џџџџ РF Microsoft Office Excel-werkbladBiff8Excel.Sheet.8є9Вq