home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / func.mrename < prev    next >
Encoding:
Text File  |  2000-03-14  |  2.3 KB  |  104 lines
  1. G4C
  2. ; $VER: func.mrename.gc Rev.014 by Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 280 120 "Serien Umbennung"
  4. WinType 11010000
  5. WinBackground IMAGE BG 0
  6. Winout "NIL:"
  7. WinOnMouse 5 5
  8.  
  9. xOnLoad
  10. GuiOpen #This
  11.  
  12. xOnOpen
  13.     SetGad #This 100 HIDE
  14.     if $*STRING1 != ""
  15.         string = $*STRING1
  16.         Update #This 1 $*STRING1
  17.     endif
  18.     if $*STRING2 != ""
  19.         string2 = $*STRING2
  20.         Update #This 2 $*STRING2
  21.     endif
  22.     if $*WAS != ""
  23.         was = $*WAS
  24.         Update #This 3 $*WAS
  25.     endif
  26.  
  27. xTextIn 75 5 200 20 "Ersetze:" string "" 155
  28.     GadID 1
  29.     GadFont "xHelvetica.font" "11" 000
  30.     SetVar *STRING1 $string
  31.  
  32. xTextIn 75 25 200 20 "Durch:" string2 "" 155
  33.     GadID 2
  34.     GadFont "xHelvetica.font" "11" 000
  35.     SetVar *STRING2 $string2
  36.  
  37. xRadio 255 55 12 12 was 5
  38.     GadID 3
  39.     GadFont "xHelvetica.font" "11" 000
  40.     RSTR "Selektierte Dateien" "0"
  41.     RSTR "Verzeichnis, inkl. Unterverzeichnis" "1"
  42.     SetVar *WAS $was
  43.  
  44. xButton 5 96 100 20 "_Umbenennen"
  45.     GadFont "xHelvetica.font" "11" 000
  46.     GadKey "u"
  47.     if $was = 0
  48.         LVUSE "HTMLEXT" 3
  49.         LVMulti First
  50.         while $$lv.line > ""
  51.             JoinFile $$LV.DIR $$LV.REC tmp
  52.             SetVar tmp2 $tmp
  53.             RepVar tmp2 $string $string2 CI
  54.             if $tmp2 != $tmp
  55.                 Update "Infobar" 1 "Umbennen der Datei $tmp nach $tmp2 ..."
  56.                 CLI 'rename FROM $tmp TO $tmp2'
  57.             else
  58.                 Update "Infobar" 1 "Uebergehe Datei  $tmp  ..."
  59.             endif
  60.             LVMulti OFF
  61.             LVMulti Show
  62.             LVMulti NEXT
  63.         EndWhile
  64.         LVDIR #$$LV.DIR
  65.         Update "Infobar" 1 "Fertig!"
  66.     elseif $was = 1
  67.         LVUSE "HTMLEXT" 3
  68.         GuiClose #This
  69.         FailAt 21
  70.         CLI 'List DIR="$$LV.DIR" P="#?$string#?" LFORMAT="%P%N" ALL >t:htmlext/rename.list'
  71.         LVUse #This 100
  72.         LVChange "t:htmlext/rename.list"
  73.         LVMulti ALL
  74.         LVMulti FIRST
  75.         while $$lv.line != ""
  76.             SetVar oldname "$$LV.REC"
  77.             SearchVar oldname $string CI FIRST
  78.             if $$Search.pos != ""
  79.                 SetVar newname $oldname
  80.                 RepVar newname $string $string2 CI
  81.                 Update "Infobar" 1 "Umbenennen: von $oldname nach $newname ..."
  82.                 FailAt 21
  83.                 CLI 'rename $oldname $newname QUIET'
  84.             else
  85.                 Update "Infobar" 1 "Überspringe: $oldname ..."
  86.             endif
  87.             LVMulti Off
  88.             LVMulti First
  89.         endwhile
  90.         Update "Infobar" 1 "Umbennenungs Prozess erfolgreich abgeschlossen!"
  91.         LVUSE HTMLEXT 3
  92.         LVDIR #$$LV.DIR
  93.     endif
  94.     GuiQuit #This
  95.  
  96. xButton 175 96 100 20 "Abbr_echen"
  97.     GadFont "xHelvetica.font" "11" 000
  98.     GadKey "e"
  99.     GuiQuit #This
  100.  
  101. XLISTVIEW 500 500 420 155 "" "lvren" "" 0 "MULTI"
  102.     GadID 100
  103.  
  104.