From 850422184b851525add4d81d6c567535fb55451c Mon Sep 17 00:00:00 2001 From: fernando Date: Tue, 7 Jan 2014 00:48:25 +0100 Subject: [PATCH] =?UTF-8?q?Changeset:=20132=20-=20Agregado=20script=20para?= =?UTF-8?q?=20normalizaci=C3=B3n=20de=20nombres=20de=20archivo=20en=20modo?= =?UTF-8?q?=20batch?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Convert_VFP9_BIN_2_PRG.vbs | 4 +- Convert_VFP9_PRG_2_BIN.vbs | 4 +- Normalize_FileNames.vbs | 96 +++++++++++++++++++++++++++++++++++++ foxbin2prg.pj2 | 6 +-- foxbin2prg.pjt | Bin 325056 -> 324800 bytes foxbin2prg.pjx | Bin 1583 -> 1583 bytes foxbin2prg.prg | 13 ++--- 7 files changed, 110 insertions(+), 13 deletions(-) create mode 100644 Normalize_FileNames.vbs diff --git a/Convert_VFP9_BIN_2_PRG.vbs b/Convert_VFP9_BIN_2_PRG.vbs index 091edb4..2e0fd2f 100644 --- a/Convert_VFP9_BIN_2_PRG.vbs +++ b/Convert_VFP9_BIN_2_PRG.vbs @@ -124,10 +124,10 @@ Private Sub evaluateFile( tcFile ) cFlagGenerateLog = "'1'" End If If GetBit(nDebug,2) Then - cFlagDontShowErrMsg = "'1'" + cFlagJustShowCall = "1" End If If GetBit(nDebug,3) Then - cFlagJustShowCall = "1" + cFlagDontShowErrMsg = "'1'" End If If nDebug = 0 Or nDebug = 2 Then diff --git a/Convert_VFP9_PRG_2_BIN.vbs b/Convert_VFP9_PRG_2_BIN.vbs index c3ee167..ad4fcd8 100644 --- a/Convert_VFP9_PRG_2_BIN.vbs +++ b/Convert_VFP9_PRG_2_BIN.vbs @@ -124,10 +124,10 @@ Private Sub evaluateFile( tcFile ) cFlagGenerateLog = "'1'" End If If GetBit(nDebug,2) Then - cFlagDontShowErrMsg = "'1'" + cFlagJustShowCall = "1" End If If GetBit(nDebug,3) Then - cFlagJustShowCall = "1" + cFlagDontShowErrMsg = "'1'" End If If nDebug = 0 Or nDebug = 2 Then diff --git a/Normalize_FileNames.vbs b/Normalize_FileNames.vbs new file mode 100644 index 0000000..e06849f --- /dev/null +++ b/Normalize_FileNames.vbs @@ -0,0 +1,96 @@ +'--------------------------------------------------------------------------------------------------- +' Normalize_FileNames.vbs - 06/01/2014 - Fernando D. Bozzo (fdbozzo@gmail.com) +'--------------------------------------------------------------------------------------------------- +' ENGLISH: +' Create a shortcut on user's "SendTo" folder and configure CAPS on filename_caps.cfg +' +' ESPAÑOL: +' Cree un acceso directo en la carpeta "SendTo" del usuario y configure las Capitalizaciones en filename_caps.cfg +'--------------------------------------------------------------------------------------------------- +Const ForReading = 1 +Dim WSHShell, FileSystemObject +Dim oVFP9, nExitCode, cEXETool, cCMD, nDebug, cConvertType, aExtensions(8), filename_caps_log +Dim i, x, str_cfg, aConf +Set WSHShell = WScript.CreateObject("WScript.Shell") +Set FileSystemObject = WScript.CreateObject("Scripting.FileSystemObject") +Set oVFP9 = CreateObject("VisualFoxPro.Application.9") +filename_caps_log = Replace(WScript.ScriptFullName, WScript.ScriptName, "filename_caps.log") +nExitCode = 0 +'--------------------------------------------------------------------------------------------------- +nDebug = 5 'Cumulative Flags: 0=OFF, 1=Create filename_caps LOG, 2=Only show script calls, 4=Don't show filename_caps error modal messages +'--------------------------------------------------------------------------------------------------- + +If WScript.Arguments.Count = 0 Then + nExitCode = 1 + cErrMsg = "nDebug = " & nDebug + If GetBit(nDebug, 1) Then + cErrMsg = cErrMsg & Chr(13) & "Bit 0 ON: (1) Create filename_caps LOG" + End If + If GetBit(nDebug, 2) Then + cErrMsg = cErrMsg & Chr(13) & "Bit 1 ON: (2) Only show script calls" + End If + If GetBit(nDebug, 3) Then + cErrMsg = cErrMsg & Chr(13) & "Bit 2 ON: (4) Don't show filename_caps error modal messages" + End If + MsgBox cErrMsg, 64, "No parameters - Debug Status" +Else + cEXETool = Replace(WScript.ScriptFullName, WScript.ScriptName, "filename_caps.exe") + If GetBit(nDebug, 1) And Not GetBit(nDebug, 2) And Not FileSystemObject.FileExists( filename_caps_log ) Then + FileSystemObject.CreateTextFile( filename_caps_log ) + End If + + For i = 0 To WScript.Arguments.Count-1 + scanDirs( WScript.Arguments(i) ) + Next +End If + +WScript.Quit(nExitCode) + + +Private Sub scanDirs( tcArgument ) + Dim omFolder, oFolder + If FileSystemObject.FolderExists( tcArgument ) Then + '-- Es un directorio + Set omFolder = FileSystemObject.GetFolder( tcArgument ) + For Each oFile IN omFolder.Files + evaluateFile( oFile.Path ) + Next + For Each oFolder IN omFolder.SubFolders + scanDirs( oFolder.Path ) + Next + Else + '-- Es un archivo + evaluateFile( tcArgument ) + End If +End Sub + + +Private Sub evaluateFile( tcFile ) + cFlagGenerateLog = "'0'" + cFlagDontShowErrMsg = "'0'" + cFlagShowCall = "'0'" + If GetBit(nDebug,1) Then + cFlagGenerateLog = "'1'" + End If + If GetBit(nDebug,2) Then + cFlagJustShowCall = "1" + End If + If GetBit(nDebug,3) Then + cFlagDontShowErrMsg = "'1'" + End If + + cCMD = "DO '" & cEXETool & "' WITH '" & tcFile & "','','F','',.F.," & cFlagDontShowErrMsg + If cFlagJustShowCall = "1" Then + MsgBox cCMD, 0, "PARAMETROS ENVIADOS" + Else + oVFP9.DoCmd( cCMD ) + 'nExitCode = oVFP9.Eval("_SCREEN.ExitCode") + End If +End Sub + + +Function GetBit(lngValue, BitNum) + Dim BitMask + If BitNum < 32 Then BitMask = 2 ^ (BitNum - 1) Else BitMask = "&H80000000" + GetBit = CBool(lngValue AND BitMask) +End Function diff --git a/foxbin2prg.pj2 b/foxbin2prg.pj2 index ec7a140..d218fe5 100644 --- a/foxbin2prg.pj2 +++ b/foxbin2prg.pj2 @@ -2,7 +2,7 @@ * (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! *-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.18" SourceFile="C:\DESA\foxbin2prg\foxbin2prg.pjx" Generated="2014/01/06 04:40:58" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +*< FOXBIN2PRG: Version="1.18" SourceFile="C:\DESA\foxbin2prg\foxbin2prg.pjx" Generated="2014/01/07 00:46:40" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * LPARAMETERS tcDir @@ -26,7 +26,7 @@ _LegalTrademark = "Open Source" _ProductName = " FOXBIN2PRG" _MajorVer = "1" _MinorVer = "18" -_Revision = " 176" +_Revision = " 177" _LanguageID = "1034" _AutoIncrement = "1" * @@ -51,7 +51,7 @@ loProject = _VFP.Projects('foxbin2prg.pjx') WITH loProject.FILES .ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="1132857145" ID="1131721714" ObjRev="0" /> - .ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="1143350514" ID="1130644423" ObjRev="544" /> + .ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="1143388948" ID="1130644423" ObjRev="544" /> * .ITEM('__newproject.f2b').Remove() diff --git a/foxbin2prg.pjt b/foxbin2prg.pjt index e087fb781f987931e4f899fdaad4cca014dc3e1a..fe04924089ea5b69e00cfa389df28ebacd4c797c 100644 GIT binary patch delta 10523 zcmZ{q2UrzH_r}le?A=9_CLNS2h*%J@VMoA7BA^r-Dk5AJLknQR_<8LuHbk7*yCSHF zl~@pa>^0FOiej(P7{wS9{lCj1A%5TA=h^4JzjtP~%+8*3cCqw{W$7bJBO=SoMAT(R zw$nRd2NUxZq0Nr1wd@?MF1&gF@`H;gptbCRL^H7U&bF|28MMqv=tv&0AB8L`czuz;8R&tVicFq~MAak;J zuj$^s1Z?6S?_R8TFW;w)iPQs{(&+TWOnr~kVX@tkMrI5j+(h$DD0ob~J}ombHKj#l zW_o!OUbKc;`&@6THVY(CNLWbJm(6O@{7Mo@p`hT%sEF`>!9M);8rD$U;lrKQGEd`r zerk7-?1-;A&+M$nwbHm21*WEq(x+!8rnhg+zh28+#2c;o^0mxa3~Iwm)-rcPTwATH zH6`dXQc}~CX1&Iw9a+tGks=MVzQnOUdMFe%FcY)I_54O3*@ucF;{V1 z5HDQEylNfkrgeAV*&CQOf4+suu46v?c)X;<6nz{fGihXELfq{t+lhF|W#%O2b>|({ zvwGs85Z-@1uKSnI`MCAW!LDuS$1{jX9j%^0WM*7)nqL^-x}G%`y~Ft}^zwWRJ8M@^%h4%VYN9h4QUuVYRp$&YsY983ak8Q$&2`%DV^Oe;BFyd!Nmu7oqSeb&~fj49DMmf{)PH`yOby8V^w@OqV{*-t8Ow`EI6Tpi#Yle zzmU%w)UrOUokES(W>t7j^J?67i8m==j@I{oP+KIb(K7ftA5g#?96H@pn{+jsKD(z{ zGLI`@*0m}gR07pF5L^6|_{z=9h8v!+T4Kyg{;UA!`^_8Pd^4-hZ#`v_c;~GOuHwYM zc;sg0&gOm~o&_O(EAkbaaUmOZymT}3vR+}NMiRN^@lV#~e{W_EwF*qtCZ*<~#nG0$ z;}+&VppA{zW=nA?S`_G-l={_3eQa7%T;@=$M-%)1r$dB3Ej2w;pK;$&>ri7(d|g$` zNW1Vi?v+sU=nf@KG_S^(^**XqOB<8Yq7rJ3vEJvWc{RqYY0U?2#mdO?=M%Rw2kU_y z)Go#~=b*GB-?o)G33d7Tt*n9I#9wV?jm3Qd+_jK35+j0mk3#0`b1_66SexolNJ@e} zB{MEvePCR^&|DKzDI_I4MX#>WgfPCOkTtg%AFeeUQzRxLRG&FKHDP%#eyfmqi8=ka z@iyF@uvp$?8*>!9$MKMD%*j7PuZ^+LVoa>IfP-Rt285b^sWsL8S5s_YkATR?*~xs> zHs)^ZoT~MyPr0sAec$h@(4=ZeNLXNx=%C`TRJV?awaPc4I=_632um>05M5)F&lmRIKL0 zc4lv|TB|kJp{VqcDe;JQYM(t-ZjHNSx=!s_r{-NT+M-$}HLXs2RLiuc6?j&)%xYT7 z71c6_WvI?__kLDAi<;e{%2cavRbrh|u978o{_i#ZyvqM4{8UsqT0#!Gt&X$$uW^N{ zZ$QI819w+-l_@hdN+#-(TI6VTCkL`cfeRCU)D++`<{ z#=u9s!%i%DzsG#gPG(!r?uoh+N8GGo`b^~AApNMsc)dDk)~`H!Cv)qT^-}9mi$i~b|>=`zkADFcVR8t@h-ct z#2eM&al2S!FB@AC`>T&>59<0^a8%ET@SacY{;?u8YqT@pxr@29FLBnIbm}RG1SPv^ zSX)K4l2OCJf|_PDlA3C+apPvYaqZjPxbJS}-s5mpClhs~mh;qV=u(wkOP$FuER&F+ zhYdcSP4yi3d1#h4`;4#J&1{2Ld#R=qCg$I3I5x89s-{{~jcM%Vqgfx9V{5-k=0Y)I zQE^+odN;GN@M@=;&d3?snsw)0_Ap!9iJev3rP_|@TFI4T+ujS&8b5uMI)$meYxN+T zUK(rHa3PW(+QV!-GNV-2t-9Bfz8cp!^O=MAUwbf12bIDV^`xfrgD*ZfcW zZ!oBSqw4;nCuyu*_oS&RdH+`c@tmglA7_5aERAc-!|hznvQt-3S8i0ytomG9^uKp! zw_NobSD!@1N{v4~*{rpy-=w-<`wf*`d1o7~*rGLlI;eJ$>Nl+(WXYTDWwv$C?^f+* z)%KF_c%Qw@U5VLW=~wR4Fj<4DFnr>G+T`{pS3lagBi3T_2b5F&_3S zQ=40oh1Wj;^JClksx~cHN9xn@qSp5&KfDjc$ieCa=%L2&p^#H49)74S)YaZ}-M}7-!;;DN4{Q+h(c({w&$G>{)H7|{8jxjXT zyiZSVTBY9(FTkIK#321pq@|vyd0O(!66Vr$TSs*d?W&KG`I*KR+C)`$?;4k`Chq_A z;D<_>eS;PeT9=w9;?Ym@w1>M%KmNXi*>oRN>9$9G@$scMNS_gp*CO?8-+hQWq&QZdhdw9HQ46J}&x)seHge=1|vk^uPVJWB1HB$a2m(99_cjfx(!DrYFb7jfzW& z*GtqbJRV=_R>=7Fp z9u(apytXO>qa$Ox21Ew`R<5?ns-;#@HJg0z@ekROqj>c`ueSg*P*}k`E|BVprGM}k z^>@*Gp0z-#&q_WpzIcJ;DxR;y_b+_TxT$CxFnWua3*|;POJrP0aJ)-U}sf z@v0~9y-@NL%RKq`g_67LJx_H&<;kPQiR~Q{+@~7UizI${A@={L4}Xf?pdL5N1wL-c z{d0jjJ|I_ef%~6a$yIRXD?wtr_WTggeRF`i>pJSZ1a<8e8xj^2-1lFzbRvN37D?`6 zX(0Djf7^xd@I|<$+B|g;E^%Zy&s9<4yB0|e#mkYrY?0*YUK0JU-9|@+^oUd_5@lFO zc-V=)mDgXokXaey&O}E>g@;}nyeF7Tc1*Mt_9QNmW_J|K_f%Y!tc?s~*AZ>TO`MGn zWY+76R$wauF93JmKy(V*NiYY0wUKC69?>N*-aaU4Gtp~ora0hQu+0{thS==D8^FST zB98+^L%>DggV4?;MEIabyTBJq$UvJ;5`7H=B|7y#MfCIn5k3mi-{3_TaUz$nz;r~4 zNK_2{9bWQnz_r1@LR(%V@&wlfAAolFnWz=m0sKAmt1_alU|;Yud2>u1yPZVeX7@3G!dwSxj=itzk&}#U#lz7NpJ-?$5J3`e}T%t_+CnTp#ype^jN_R zV3rNn0s07mX5*V}B#bSC1xk+>=oGj&xN(9&#lr;p8Jq&n8jhEoOnlj_MKlF`0($vG zoCJ6mIAoGQbEXP37km)hbQ(@>hCu7UN5I2o3RI58b_#q#!u_8#N1%iA1o{)kX>>@Q zkM9iGcr`I5It$(aeJ2NX8u%i3&O+#1fxZA=2A_mJwM?M?;H%(aSec_&2~-IF1#G=q zph#?&z&F8vK%1_?1%b;Y-2ZKW_L~H{1>+4mltG`{jB36%k%ar4j24fq}h$JT+N6q!0nrewA)W4OK>}Id`poWyNDD6js;%|z~Js8 z?FWwrkHLG-6})=<2F?LbA1cy>WRWhK6BU3xQbh8>^D0{)CV;!m6=@bq_+Kq>|8K(Z zLG7M`y4<5K(R;AtDv?H^#iyD$<8NBHaP^2Im!vv>wl^uO+4%+zZ9?_Cq4Y zgXe+=p-BD`&+oV3EnxfaMH+@W_X7AV*yfx_Ntf~G1A`UOGZ?m4L<;*!q)uQHJPE?j zU{snT!Og+ecSO4WNTfsH?%;`!Mf&EYNN>QSz-@mQY4V>U1zQv4f_>kK^fNwnPX_M> zPZ1dT$c#$B7r;M3?=@#+cn$+~3-z&N^w6GBxD8GQJja1i18+u?z{%i?&{7M0JGaFZ zf~{LKy4itI40t_w3W~TRof&0=cY@QpF!JcmXdCzk@Z--JE$)Q~WQPj|Ux1G3#|+d8 zh6z^sEEHh4c+euBVR`(8t?~bqqB@6!AHSG&>gQa zS^<6oE{EP~C}Z>jMqNB=kvAEgMnUCKkElL4>oyK{hmk+H0oe8~qode@!A-yk_ZYRh z&!`vJ5Bwwa!6%Fcf_s4zpE8Pj#%LP2FWB@~%<>Npq(ph(GvE!-!N^)W z!RNp)&P#L?)yps7%i!V2SbZ)@^ay+nd>{G`WUV*gJK%eU2QVH=G}|3l4`a$BiAo+z zv;_Pd-2I6};ZG%64}J~4@mwPQLZUO^ciwf5{K04~?iA4mS4*l&29sLOQLioG}eI`XmDGhNuz%QZCf32fA;3?qO z(9z>{^bR}?JPW#PijIuDh&F<0s*dcibpmg)MEvgp_ySuXi~@AXfF6&nJ9rCt2XqOx zP;eo*0$P}+qX=*jxH0tV89M3%J`O$sZ8K9xS>RLP4$v>>>SzME9Q-;*M@tv#=sNhm z0mgB_&=oqm2g3^Sd?EA?s5qN7!Yu&5gC3i&qcHGiV9Np>%`Vc>EO09L5H#(?41%-3 zc}V)*_v`2ucnP>1+T^f~?7cDN;Atmu@)vNCV8b;SBLSm-($P*BZ^4_PAEHvY4K_!9 zn07};&mZBBXN{3qz%w3WQN7SnS8z1A(`y|)#zl;1{iB8q!gwbZ|O&D)f~=nevE5I|MyRS#ga`>h83b}MpNNI&B1Q$Wi>8Ow?*a2+YNg=b&3ORzE!P}t6 zc2TGi*b|%&eHoh{*b6))K%rwH3i*S>!O@>9WEZYb8aNre75b(jLZM|aX29_7tI(4e zg>Hk_fF}-6$URmeqt=*ma7VpD9nuu)4`!$t;-Qsvg-XFXa2RyU2@0JAcL2Ybtk9@z zjA?_Q1}=bJ&lP+uM5+c~hc=WgSLig1O)%=NP-sSxLLb0Zs0j{0>-Q+MxGmn}z%!tI zPbzcBL=!3wx!_C;0JFM%40^f2RsRU1KQQzh@9G^fB^S~KHc1iz6Xb)sQ48+ zuDuaW>p(OXJP*1~HzT?NE(EuOj)*WKuZ~1dz*!Ln{C5%<(_uV=;T&T`A=nOqpMx`@ zPo)^qac}^Nl0TvEWg1bNPDF8Fi;+gOXp#{P2JZuZr|NHvs2qG3JP$f6*NAL8BPybZ zS-irC#;-P_T(BGXXG1rlZ}W&+;%i557@ara>%|ttY=+_id=EMUujj53ZV}io5`WL= zBGOVLglh0p=rX+d>@dS4241Zf$scbzYVo2&RrDA1fLnNXus|RJJD00%sEn-;HNl1> z7L4kmt`D-o&S9ANG4ey*-oqBJVc=#VjNDO{t3f6hY(I$6Ce(Dx@C<(qPC`vrgqm)Y z6VZ5ZW;kj_lynSNKM_0uC0!Ggbot;Z;OEd`DCx>^veR7=|1D6{<)fw>gvMFel2Ox@ zpr$(lJqO!F)O3NU>1v~7nh$;kJp(0MPcR3!K8gwnCD>H(3h-ah@)d~=f(yXgpy&LE z@u--#gZ=T5U?3_gSMWVo1FrZP$}5yqyJ0*-hlt;B#wek#ff;u46Lj?75_zEFF#@yq z5*vh)jh!LAib$6n{0H<1WJd#dGuRE;aczB>B9Z-yz`dPh+KOy<9()u$ z4B75BvfFSZvs2*QAY@h~uZQ3(;0owh*oGik8Ge9K5Gm6pY{Ovu2p)*+)(F`w39MGK z*PzcK89f9OW@Q?_J{?E$sfFaC181$3sSlFNbZ|Ye8InskSZymIhg? P|Ep2`hZRu$@9_Tt4!9`wjh?#X+tD4@3Nltf>k^vbod*LGXsCInJL$faL1vKuPV zH^ma!dlB`?lIV%oRx7X4CgK7i?^KVSMt^GfHsp@;3yEG3y&-xj2zTsX3S{%BE`a_jgsD2~R0JZ+9ik_?CZ$|ZAspbgpqD<|am3BQcwOJo+TAv1Jhh-Xu z=jgSgby|H^wr-G4o0MrV=##QDo2x53mB{TKqn>7Yi=#W6n^9DBudwil$gl~QqQAQo zEue@yE=9A$u`c^RA(H2@4vjRVX6qv}2PcN7@n<@2{lrch=mZMM9 zWo4xf&e+ymmIab1qDMqRXp8EUY9f&|6dD$v5EtFo&6n3-&Kil+e0kV%<}EzqY0H_1 zYtI0=l}NQHBr{`#-jJPYuxq18PQ+tRFsCNlE7*~e^;sF2hICz8>X$l0kURukQfg*~ zYg?s3J#JILZ29};td`im9XBsvuHw87+^2wP!~PCbd@Lz!RFZyJHk$dxXB#3rDY6Bn zq^9W;Mi0}6WG3q!J6Eb*_1Ouj>H7F=UHY(5UHFUw)<9ew%C{CU53y$$KU=^WiwnEX zUBNt^W4l#;Lt1KvUWczq%Slbv6?fwuRxoev_z0!ijz0DX^Skr$E11^5=u^e3ZZ)r7 zy0lC~pQuQi9+jht%N$uXDvM}-W(D&NW-*m5voa0YF^0@xSwR`eXq%(Y+CNySGpkzP zsTqn=ZQ9@St}B_Z7@NsQuVewD<#4`bC2J_W=I2&2PY>fLxd9_fN;2qm*?N4zQ0%s> zFBRE^_>!y4#pUo<3fHM{3rWLPNlP6>M&4r;YvAzDIHlgaqCOnUnKGV#w~DzN`%X~m zEGp{a^w{Is$12py7E$_)oOM$a&)TF@D$v0#ck1b>_ zVqqRnFJ$iGwtPOL5L+y7F5ghd8rCo4N>gj>(-drhinXFgM{Yf4%{`;03R@ku??P1oLhinNLj9Fu6f(a-_l7)~2%>ZpchejERd*2n$IF z3tih?aj>9>jAVUAw$30QwknDAnc^kEo)Y>k)BW zvk4JAtsif>iD}&%4ODz=l{lFg5*ZX9pNQ?=Ejl#bV-O#MO~XO7~j zY@W0ktJyz?f43Pk^nkCzhd6Bl|8+BKC^pOG_vPwUi@D7fW^X*PTab9i|T88b%X3>SzU76DNA*#OZAT% zWzDL(cI9_jvaT+b{3%N|)um?TvQ)PsaTst-CR=p=VKh2eq5m(uov2Whgv0eO)A!r` zr{Uzkn6b-gOml+tu^4f+>1S)Pd_R( z3)6>ioSg~ZGZhtR5UY_ zChyX3O^Ord{DUsdZ^@3%HM+b~p-LK4;D&vss(y_@YhH3~5%U&jzvkVFu(KcY!9}=4MN2-p zh&65e&{0GqS1dqiaM!Q|ob{Of&i|9*6)8r`|14r!Z?09URC0)j2n}zbU~L)Y1Wt|s zUo_wz+nB9pj8e&McHy*6ZNU3%V-2DfRJ5>^TPWA5ocyh;kZZ|P*aI6SBDAbw?S&3< zy*q-wvOV7hDqQnK^y?z)+A6=MA$%74F_v^!^qT&T(X#GQ<^M2NVP)WJ5@hoH&+&=s zspyrX`K7PI)gEY2q9QrT(-+L0b}_r&aRWcz-SI)P-k@p_>-7rP9Bi9ZS@){)d-a8h zP3zXAbhuJkvr(^XS#Ma?sLe=TzJob9mVPPg-c|ZHUz^y}S=$XprLtyc#&NRlQ`IPD zg2Kvl^`FEOcQS`2?lPa&QsR~z{p5nPCN!fDixT#(H$BSgKX;r%uOBJp;intZB z{z;XeT_LyFh0QW@BX7QoIkdmNMXqmFRe!HY;hO!d-XZJFtNgNd^Rc^F1C9S)lWrQE z@iPS~BJt7^xvIr~c7)A7MX%fumwx)V-;-Zu-M8v1-yKr8=Fn`9%6dyu_pR9QzaLkG znvUImmvz6Y4!zGQT+?sm1zB%Z<(G1iFW8N|#IIb|{XZ5G$5vD+aXDUZz{_XLEBy9u z=HtHhiqgzh-rh=8s4iQl#EC9fdCOwv=#_L;ak7@3@J6Qi$sx1!Z>7e8xG__5s4w3B z|2+5I<%^4Pzkm9GmlU)54!=B-J=>6ZMeK+Q>(TT0GybTU`MKPFrqtDZ_Q=<~;~wmf zS_1!k5A$pq%ozG;i;L*P>oie*bCQGO1eM}|_v`yPl2ha~D}^gpH`hjCJNdy9u{mz+VtarC9GcWw}X^=E4f~tz8KwL)5X{!MX9Kq zwz6Rg*R4n%aU&)M>yo~}{rknukstbgHD<@A5|($|WzhnL-(Acp#gLw;8==cc(n}N` z9T#<^kbgE^au=7ZYQdt6tJ!*MDuH?cvNxU>y@(5gQDOEmzY1L{D zXm1_49?uk+hII`h}n{tINgb7%AZHwc>Zk39d8NSW=oC5C7!%| zw&W@9_T;g7l0A3IlWfH}Z{92q;&^XaY$9%M#J|pyyu}@j_{uz~fmqUrAI_89gbVz3 z9{Tvrm)p*fJn>EtFbDW^Yd#R@dAYSbIMZxl`z9s?1xJ23TMzh(Ig$rnP=1{wX+_(P z{1#B07|d(uV}~sb=AY!_%jSjhSozboJ0AgExX$P1<2ic7@I5kK;urI!M&kMeu9}M> z@?N~zT&bS8v@h>I7rk!L?MRy|IWdbM79>6v$I~e(h;~exCr!iK-wxYzlD(O+-wLAj znEYJ))c6ec*p)wm%x6HG90`cyrqPUH02P{mk^L^Q~Se2M^6%+0E;5gh*Ly{)96Hn zxdi_Jd)^r$d$2Y5IP8DU5j6xORi#DeiC$kI@&~(vSN}ou`(>gaZ~*wLatz=vq7*Q) zE?RrtNYwUkqNx!2Kq!ZO6+c7F1rGp^yNTbiZxby8BV(f5umheF?EudJXTWaz0)tay za5BU0@SaEuUJL#cb{#>WC@?YtDu!(<3e+FG9lX^DxW@$2K`4W;ND?SSEl?I1_c7gp z9c(7hcVJw*bRYI6{P2(m#sx+RmPqQY1=i2;#eV{;bNdg@L_XpQb7U+k;0$l*(mwM_uM4%U0 zc$cU}GzDCkEzsBF5v#$w!9L#zls-|Q>EK_$mXidUKUtsx@Ii3bDFT&EL;v8T64rmv zbb*%46zCO%lW>Tdh0&q7m=m1_Pr}apIS&~i_$)Ym4u0Us7pOb4!A**>quyQZ9X#ZjK<{dcv=CeXUW2oDwT?)w>tM%%r&x*fBhFs}xES2uMx^g;MH&n~0QR>N zX_$*hW5E}}&ht6>uu|pG)(wd6&9u5xRdY_0ix0OhB zt%y2o@D{!9(k&2Q2F~7+91+Ya0{@oQKWLD?$^Nm z!IO82G;xnezP1Qb;FiePXXE@10_TA{As7GjfJhwtBls2UuE#_=0X_|W4m;z zq9+hu0GcCT4g}Z5Nw^BTITGG%aBJ|hYa;EzfiDF|fpvF8`r--xt_2fQ!M&0wXImqrKoW;9aoiTQf2~fS|(8Z)3~opfjT$4n+0A=`M_< zCXB{|4d5-XueW4m;fN;$KWoisUq?p$z-z(Dfs6_|Gnxh71&-;$NY#zeCh#BN!`&H; zj%D;7`~fEn0yj-#^eBVTQE(&hyi7)uM=-hw##KrI z$lltHVpP|es2lh`>_bLIZr~x{ug5XU&t;SVUJ33zo6*_1jE;e~fpa*c$VF)I0Kz2* zrx!7bU&5%d3(-Sxou!PT3K)fe)i^45V0#oXN&yc9UxV#e!srG#7kmkJyPp~P*28@P zE{A>VD5E&=A#m<7My}@>EdsvVRmS{n9i5`I`gFCd4=m-)W zUpJzBa7KVcm)c2`0A2zvhdrjfM1#T0!9^V;`mP5w@NMv(XvE(JBW8P2ZL42irJNOVVwH3#=yDABmJ5+!+H{lMGSNi=7xLqTld?k^}3rhyB z{aT`TD2`w&@Y&iba29g0Fk2Xi_5;^#*fr5$xYkQo-}V zqnoS99r;-DcmS=d)mV!_+NwI``){A3mN0v`bv!hVi23M|L_`cqVN zdWMRO;2YpGc`6z+M@4^v?;0Vj0)#JC(RB#Ui09d`w=GvuGaoDg_)pmV)~YB990~ph zcG?ydO##dI!!p=cwqgdsW5JWRsi^TD6_taRfXiUtFH@0I6HGZc<&cW}PO9i@u<;Uv zo`BvLRJ0YsJMc8v2e0BO!S=WxQvOoWiQ6hNYl;&B9&!hp>XC|q!2Q5(&s206WjQzz z{0w%T_bOTk{vO;Cc6*JQ9)UN52g06ht|p&Pu>LzB8~}8*Qd9d+a74gEt<`kFK}~(Y zH^FaV=eVkA7T5w8lCP(lZZ%fZ18`GtZ67u5^Hq~qGooaA>}owk}YUl`nQYIC7zyeps%iZr~T-#j7z}o7A)s?0_3` z4D6LV)$}*GHTVzMKKs;U*AhVq+`Cjw0&+ED0EAQsUI3?KYRUjl2d_A(rXlClR0duT zo(kIy$=nO@PvBm#hojW@L!J*_1^buFYVrUd2M1rr6r+3wJ`FC1{rn!D8vF|Ed>>2v zRBfac5S(!ZXW^gR)cqIJ4(yIQ9JhQQe!dqwv|GJ3YfKy>>{f!#h2Ei70_>Ucs2zJzv zx;3UyzSCi+2WrR?><)eb`(Y;yxq!XEvyhqg>!P8?;HKd3VQ)q812+Q)2WeH2Z2vc(BL0mX{bXRqEXC&)Q)LWPjMp zj%z3tyb^pG_WH9L`W9RYF1(;2J>EReg6-rS;#dKzQHJjC_#bmx7;y6JW2+Fr)q8a3m#v$ac0F1$07G z1V4s7;u|wc1eb#6!R~@r=_}yd;7r(k^UcViGrk;2%;?2t^!YL~ngebG{=*oKwONg8 z7QcSjA$J4O6^0ZXydQQvUeC1>mI!PckH7eL5ox{|LN)j(>=L~B{AfiaAqyIh zzvDRLP3M3$_5}DM?2dSk_|pb~2>c%QYUKSz2=l&RV}T8$CoPfXIv|OJaNm!SE%NqH z9f`Vt>qIbO0~kF9cL%?MJq0=40-WJ-;7H_jxyb2qFk2JA3DL+IkD?~&6DK;=x7DCBgDk<+E&yMIeFG_033xMj*6$Lf-apb=dX+qHvgoev$$@faNWv@=hSPs zzj3_^xGooh&%^GH+i@&-3s|&P(*##F#o_kb4i0cr(+u2p$H9ldU2)s}gxhT}F0&Kh zoKQ8@!{v1od;xqG_U|YS6u{{B?d=NMpvHe@b@+aWIV1I87HTT!hV1({0@HNWV=03nJBF@D$j3#EE4HL>IveVGqW+o{qTi7F+;34d+_Nqn=8i*OLF)tNdTX ITpOSN0|!UhmH+?% diff --git a/foxbin2prg.pjx b/foxbin2prg.pjx index 7d3b79c35e3fb26101241103f1fe1d1a0882f4df..09c4ecc75e0359d74d45e0df50e5f111bb2addf7 100644 GIT binary patch delta 34 qcmZ3_vz~{=fRB-VBg+mJHWLF210$2khgklzT3A?`SWG^~nh5}!R|%s4 delta 34 ocmZ3_vz~{=fRB-FBg+mJHe*u*Q$zE~hgklzf> 0 AND laFile(1,1) <> JUSTFNAME(tcFileName) - toFSO.MoveFile( FORCEPATH( laFile(1,1), JUSTPATH(tcFileName) ), tcFileName ) - THIS.writeLog( ' => Se renombrará a [' + tcFileName + ']' ) - ELSE - THIS.writeLog( ' => No se renombrará a [' + tcFileName + '] porque ya estaba correcto.' ) - ENDIF + *IF ADIR( laFile, tcFileName, '', 1 ) > 0 AND laFile(1,1) <> JUSTFNAME(tcFileName) + * toFSO.MoveFile( FORCEPATH( laFile(1,1), JUSTPATH(tcFileName) ), tcFileName ) + * THIS.writeLog( ' => Se renombrará a [' + tcFileName + ']' ) + *ELSE + * THIS.writeLog( ' => No se renombrará a [' + tcFileName + '] porque ya estaba correcto.' ) + *ENDIF + THIS.writeLog( lcLog ) ENDPROC