Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] Re: File versions: HELP!

From: mario:cassani:icl at: 6-Jul-2001 16:47

Hi "mage" (egam), thankyou very much, changing a bit your script will save my weekend!!! This was my work to compare a list of files with two directories... 8<-----------8<-----------8<-----------8<-----------8<----------- REBOL [ ] CD-path: %/d/Ufficio/mo_CD/ SS-path: %/d/Ufficio/mo_SS/ locales: ["_china." "_thai." "_ch." "_th."] verificare: read/lines %EVERY-List.txt ; *** MAIN *** if exists? %missing_on_cd.txt [delete %missing_on_cd.txt] foreach vfile verificare [ output-tail: "" vfile-size: join " [" [size? SS-path/:vfile "]"] foreach locale locales [ if find vfile locale [ if not exists? to-file vfile [write/append %missing_on_cd.txt join vfile [vfile-size newline]] output-tail: join " <<- " vfile replace vfile locale "." break ] ] if not exists? to-file vfile [write/append %missing_on_cd.txt join vfile [vfile-size output-tail newline]] ] halt 8<-----------8<-----------8<-----------8<-----------8<----------- I added the following but with no good results, how can I know if the parse found the string? With a separate 'find? The script goes wrong also when something like rem copy %1\where\file.ext d:\destination call other.bat %1 %2 %3 %4 that should be ignored while call other.bat %1\other\path\file.txt %2 %3 %4 that's ok 8<-----------8<-----------8<-----------8<-----------8<----------- path-China: %/l/ path-Thai: %/o/ ;recursive-files: function [pathSrc [file!] pathDes [file!]] [files file file-list] [ recursive-files: function [pathSrc [file!]] [files file file-list] [ files: load pathSrc file-list: to-block 1 foreach file files [ either dir? join pathSrc file [ append file-list recursive-files join pathSrc file ;print pathSrc/:file ][ append file-list join pathSrc file ; Use only .BAT scripts if ".bat" = find/last form file ".bat" [ fileSource: pathSrc/:file bat-file: read/lines fileSource foreach bfile bat-file [ parse bfile [thru %1 copy b-file to " "] if not exists? to-file pathSrc/:b-file [print join pathSrc/:b-file [" *** " bfile]] ] ] ] ] return file-list ] initialpath: currentpath: SS-path if #"/" <> last currentpath [ append currentpath "/" ] initialpath: currentpath file-list: recursive-files currentpath halt 8<-----------8<-----------8<-----------8<-----------8<----------- Must finish the CD now... Happy weekend to you all too Mario