Brought up to date with the newest T2BoL I've located

scripts/modscripts/shared/StringFunctions.cs

@@ -0,0 +1,196 @@
+//------------------------------------------------------------------------------
+// StringFunctions.cs
+// String functions
+// Copyright (c) 2012 Robert MacGregor
+//------------------------------------------------------------------------------
+
+//------------------------------------------------------------------------------
+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 getSubStrOccurances(%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++)
+	{
+		%curPos = %i;
+		%sub = getSubStr(%string,%i,1);
+ 
+		if (%sub $= %str)
+		{
+			if (%subC == %num)
+				return %i;
+			%subC++;
+		}
+	}
+	return false;
+}
+
+//------------------------------------------------------------------------------
+
+//------------------------------------------------------------------------------
+function strWhite(%string, %whiteList, %char)
+{
+	%charLen = strLen(%char);
+	for (%i = 0; %i < strLen(%whiteList); %i++)
+		for (%h = 0; %h < %charLen; %h++)
+		{
+			%whiteSeg = getSubStr(%whiteList, %i, %charLen);
+			
+		}
+	return false;
+}
+
+//------------------------------------------------------------------------------
+function getFileNameFromString(%string)
+{
+	if (strStr(%string, "/") == -1)
+		return %string;
+	else
+		return getSubStr(%string,getSubStrPos(%string, "/", getSubStrOccurances(%string, "/")-1)+1,strLen(%string));
+}
+
+//-------------------------------------------------------------------------------
+function getFileExtensionFromString(%string)
+{
+	%file = getFileNameFromString(%string);
+	%period = strStr(%file,".");
+	if (%period == -1)
+		return false;
+	else
+		return getSubStr(%file,strStr(%file,".")+1, strLen(%file));
+}
+
+//------------------------------------------------------------------------------