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

[REBOL] Combining bits that are the same

From: andrew::martin::colenso::school::nz at: 24-Jul-2003 9:59

Hi! Have a look at these three scripts: ========================== ========================== ====================== ===== ; Mass replace text content in files: Mass_Replace: func [Folder [file!] Target [string!] Replacement [string!]] [ map recursive-read Folder func [File [file!]] [ if %.dmt = extension? File [ probe File write Folder/:File replace/all read Folder/:File Target Replacement ] ] ] Mass_Replace %"/N/CM/documents/2003 T3/" "SEPTEMBER 2002" "September 2003" ========================== ========================== ====================== ===== ; Mass delete of files matching pattern: foreach File recursive-read Folder: %"/C/Rebol/" [ if any [ %Thumbs.db = last Folder_File: split-path File %.bak = extension? last Folder_File ] [ delete Folder/:File probe Folder/:File ] ] ========================== ========================== ====================== ===== ; Mass renaming of files matching pattern: foreach File read Folder: %"/N/CM/documents/2003 T3/" [ if all [ %.dmt = extension? File found? Index: find File Target: "T3 " 1 = index? Index ] [ probe File attempt [rename Folder/:File copy find/tail File Target] ] ] ========================== ========================== ====================== ===== Notice how there are similarities? I'd like to express that similarity in one function with a kind of "programmable" action. I get the feeling that the Unix "GREP" command could be similar to what I want, but I've got no familiarity with Unix or the GREP command. Anyone know if GREP would a good model or goal to work towards with Rebol? Thanks! Andrew J Martin Attendance Officer & Information Systems Trouble Shooter Colenso High School Arnold Street, Napier. Tel: 64-6-8310180 ext 826 Fax: 64-6-8336759 DISCLAIMER: Colenso High School and its Board of Trustees is not responsible (or legally liable) for materials distributed to or acquired from user e-mail accounts. You can report any misuse of an e-mail account to our ICT Manager and the complaint will be investigated. (Misuse can come in many forms, but can be viewed as any material sent/received that indicate or suggest pornography, unethical or illegal solicitation, racism, sexism, inappropriate language and/or other issues described in our Acceptable Use Policy.) All outgoing messages are certified virus-free by McAfee GroupShield Exchange Phone: +64 6 843 5095 or Fax: +64 6 833 6759 or E-mail: [postmaster--colenso--school--nz]