Added new trunk.

Code/TextHandling.dm

@@ -0,0 +1,140 @@
+
+/proc/dd_file2list(file_path, separator)
+
+	var/file
+	if (separator == null)
+		separator = "\n"
+	if (isfile(file_path))
+		file = file_path
+	else
+		file = file( file_path )
+	return dd_text2list(file2text(file), separator)
+	return
+
+/proc/dd_replacetext(text, search_string, replacement_string)
+
+	var/textList = dd_text2list(text, search_string)
+	return dd_list2text(textList, replacement_string)
+	return
+
+/proc/dd_replaceText(text, search_string, replacement_string)
+
+	var/textList = dd_text2List(text, search_string)
+	return dd_list2text(textList, replacement_string)
+	return
+
+/proc/dd_hasprefix(text, prefix)
+
+	var/start = 1
+	var/end = length(prefix) + 1
+	return findtext(text, prefix, start, end)
+	return
+
+/proc/dd_hasPrefix(text, prefix)
+
+	var/start = 1
+	var/end = length(prefix) + 1
+	return findText(text, prefix, start, end)
+	return
+
+/proc/dd_hassuffix(text, suffix)
+
+	var/start = length(text) - length(suffix)
+	if (start)
+		return findtext(text, suffix, start, null)
+	return
+
+/proc/dd_hasSuffix(text, suffix)
+
+	var/start = length(text) - length(suffix)
+	if (start)
+		return findText(text, suffix, start, null)
+	return
+
+/proc/dd_text2list(text, separator)
+
+	var/textlength = length(text)
+	var/separatorlength = length(separator)
+	var/textList = new /list(  )
+	var/searchPosition = 1
+	var/findPosition = 1
+	while(1)
+		findPosition = findtext(text, separator, searchPosition, 0)
+		var/buggyText = copytext(text, searchPosition, findPosition)
+		textList += text("[]", buggyText)
+		searchPosition = findPosition + separatorlength
+		if (findPosition == 0)
+			return textList
+		else
+			if (searchPosition > textlength)
+				textList += ""
+				return textList
+	return
+
+/proc/dd_text2List(text, separator)
+
+	var/textlength = length(text)
+	var/separatorlength = length(separator)
+	var/textList = new /list(  )
+	var/searchPosition = 1
+	var/findPosition = 1
+	while(1)
+		findPosition = findText(text, separator, searchPosition, 0)
+		var/buggyText = copytext(text, searchPosition, findPosition)
+		textList += text("[]", buggyText)
+		searchPosition = findPosition + separatorlength
+		if (findPosition == 0)
+			return textList
+		else
+			if (searchPosition > textlength)
+				textList += ""
+				return textList
+	return
+
+/proc/dd_list2text(var/list/the_list, separator)
+
+	var/total = the_list.len
+	if (total == 0)
+		return
+	var/newText = text("[]", the_list[1])
+	var/count = 2
+	while(count <= total)
+		if (separator)
+			newText += separator
+		newText += text("[]", the_list[count])
+		count++
+	return newText
+	return
+
+/proc/dd_centertext(message, length)
+
+	var/new_message = message
+	var/size = length(message)
+	if (size == length)
+		return new_message
+	if (size > length)
+		return copytext(new_message, 1, length + 1)
+	var/delta = length - size
+	if (delta == 1)
+		return new_message + " "
+	if (delta % 2)
+		new_message = " " + new_message
+		delta--
+	delta = delta / 2
+	var/spaces = ""
+	var/count = null
+	count = 1
+	while(count <= delta)
+		spaces += " "
+		count++
+	return spaces + new_message + spaces
+	return
+
+/proc/dd_limittext(message, length)
+
+	var/size = length(message)
+	if (size <= length)
+		return message
+	else
+		return copytext(message, 1, length + 1)
+	return