Changeset 230 for trunk/lingosource/castlib1/alexUtilities.ls

Timestamp:

03/21/09 11:50:29 (3 years ago)

Author:

alex

Message:

moved stripfunnychars handler to alex:utilities

File:

• trunk/lingosource/castlib1/alexUtilities.ls (modified) (1 diff)

trunk/lingosource/castlib1/alexUtilities.ls

@@ -3530 +3530 @@
 end
 
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mStripFunnyCharsFromFileName me, theFileName
+  
+  offs = offset(" ", theFileName)
+  repeat while offs > 0
+    put "_" into char offs of theFileName
+    offs = offset(" ", theFileName)
+  end repeat
+  
+  offs = offset("/", theFileName)
+  repeat while offs > 0
+    put "_" into char offs of theFileName
+    offs = offset("/", theFileName)
+  end repeat
+  
+  offs = offset(":", theFileName)
+  repeat while offs > 0
+    put "_" into char offs of theFileName
+    offs = offset(":", theFileName)
+  end repeat
+  
+  offs = offset("\", theFileName)
+  repeat while offs > 0
+    put "_" into char offs of theFileName
+    offs = offset("\", theFileName)
+  end repeat
+  
+  offs = offset("&", theFileName)
+  repeat while offs > 0
+    put "_" into char offs of theFileName
+    offs = offset("&", theFileName)
+  end repeat
+  
+  return theFileName
+  
+end
+