Быстрая загрузка и сохранение массивов строк

VB6 содержит набор новых строковых функций, которые работают со строковыми массивами. Одна из таких функций Join, соединяет все элементы массива в одну строку, используя строковый разделитель. Далее представлена функция, которая сохраняет содержимое строкового массива на диск не производя никаких итераций по каждому элементу массива:

Sub StringArraySave(Filename As String, Text() As String)
	Dim f As Integer
	f = FreeFile
	Open Filename For Output As #f
	Print #f, Join(Text, vbCrLf);
	Close #f
End Sub

Функция Split делает обратную работу, сперва разделяя длинную строку на отдельные компоненты, разделённые определённым разделителем, а затем загружая компоненты в строковый массив. При помощи следующей функции можно загружать в массив текстовые файлы:

Function StringArrayLoad(Filename As String) As String()
	Dim f As Integer
	f = FreeFile
	Open Filename For Input As #f
	StringArrayLoad = Split(Input$(LOF(f), f), vbCrLf)
	Close #f
End Function

Dim Text() As String
Text = StringArrayLoad("c:\autoexec.bat")