Initial commit.

scripts/modScripts/shared/stringProcessing.cs

@@ -0,0 +1,175 @@
+//------------------------------------------------------------------------------
+function textToHash(%text)
+{
+new fileObject(TextToHash);
+TextToHash.openForWrite("Hash.txt");
+TextToHash.writeLine(%text);
+TextToHash.detach();
+%hash = getFileCRC("Hash.txt");
+deleteFile("Hash.txt");
+return %hash;
+}
+
+//------------------------------------------------------------------------------
+
+//------------------------------------------------------------------------------
+function strReverse(%string)
+{
+%len = StrLen(%string);
+%rstring = "";
+
+for (%i = 0; %i < %len; %i++)
+{
+%rstring = getSubStr(%string,%i,1) @ %rstring;
+}
+return %rstring;
+}
+
+//------------------------------------------------------------------------------
+
+//------------------------------------------------------------------------------
+function subStrInsert(%string,%insert,%slot)
+{
+%seg = getSubStr(%string,0,%slot);
+%seg = %seg @ %insert;
+%string = %seg @ getSubStr(%string,%slot,strLen(%string));
+
+return %string;
+}
+
+//------------------------------------------------------------------------------
+
+//------------------------------------------------------------------------------
+function subStrRemove(%string,%slot)//Minimum: 1
+{
+%half2 = getSubStr(%string,%slot,strLen(%string));
+%half1 = getSubStr(%string,0,%slot-1);
+return %half1 @ %half2;
+}
+
+//------------------------------------------------------------------------------
+
+//------------------------------------------------------------------------------
+function strMove(%string,%factor)
+{
+%len = GetWordCount(%string);
+
+for (%i = 0; %i < %len; %i++)
+{
+ %sub = getWord(%string,%i);
+ %move = subStrInsert(%move,%sub,%i);
+}
+
+return %move;
+}
+
+//------------------------------------------------------------------------------
+
+//------------------------------------------------------------------------------
+function subStrMove(%string,%factor)
+{
+%len = strLen(%string);
+
+for (%i = 0; %i < %len; %i++)
+{
+ %sub = getSubStr(%string,%i,1);
+ %move = subStrInsert(%move,%sub,%factor);
+}
+
+return %move;
+}
+
+//------------------------------------------------------------------------------
+
+//------------------------------------------------------------------------------
+function subStrScramble(%string)
+{
+%len = strLen(%string);
+
+for (%i = 0; %i < %len; %i++)
+{
+ %sub = getSubStr(%string,%i,1);
+ %scramble = subStrInsert(%scramble,%sub,getRandom(0,%len));
+}
+
+return %scramble;
+}
+//------------------------------------------------------------------------------
+
+//------------------------------------------------------------------------------
+function strSplit(%string)
+{
+%count = strLen(%string);
+%div = %count / 2;
+
+return getSubStr(%string,0,%div) @ " | " @ getSubStr(%string,%div,%count);
+}
+
+//------------------------------------------------------------------------------
+
+//------------------------------------------------------------------------------
+function stripSpaces(%string)
+{
+return strReplace(%string," ","");
+}
+
+//------------------------------------------------------------------------------
+
+//------------------------------------------------------------------------------
+function stripNonNumericCharacters(%string)
+{
+%string = strLwr(%string);
+return stripChars(%string,"abcdefghijklmnopqrstuvwxyz`~!@#$%^&*()-_=+\|}]{[/?.>,<;:");
+}
+
+//------------------------------------------------------------------------------
+
+//------------------------------------------------------------------------------
+function getSubStrOccurance(%string,%search)
+{
+%len = strLen(%string);
+%srLen = strLen(%search);
+%count = 0;
+for (%i = 0; %i < %len; %i++)
+{
+ %strSearch = strStr(%string,%search);
+
+ if (%strSearch != -1) //It exists somewhere in the string
+ {
+  %count++;
+  %string = getSubStr(%string,%strSearch+%srLen,%len);
+ }
+ else
+ return %count;
+}
+return %count;
+}
+
+function getSubStrPos(%string,%str,%num)
+{
+%len = strLen(%string);
+
+%subC = 0;
+ for (%i = 0; %i < %len; %i++)
+ {
+  %sub = getSubStr(%string,%i,1);
+ 
+  if (%sub $= %str)
+  {
+   %subC++;
+   if (%subC == %num)
+   break;
+  }
+ }
+return %i;
+}
+
+//------------------------------------------------------------------------------
+
+//------------------------------------------------------------------------------
+function getFileNameFromString(%string)
+{
+return getSubStr(%string,getSubStrPos(%string,"/",getSubStrOccurance(%string, "/"))+1,strLen(%string));
+}
+
+//------------------------------------------------------------------------------