Const adVarChar = 200
Const iSortedCount = 20
Const iSortedCount = 480
Const ForReading = 1
Const ForWriting = 2
Set DataList = CreateObject("ADOR.Recordset")
DataList.Fields.Append "SortedPart", adVarChar, iSortedCount
DataList.Fields.Append "UnSortedPart", adVarChar, iUnSortedCount
DataList.Open
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("file.txt", ForReading)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
DataList.AddNew
DataList("SortedPart") = Left(strLine, iSortedCount)
DataList("UnSortedPart") = Mid(strLine, iSortedCount+1)
DataList.Update
Loop
objFile.Close
DataList.Sort = "SortedPart"
DataList.MoveFirst
Do Until DataList.EOF
strText = strText & DataList.Fields.Item("SortedPart") & DataList.Fields.Item("UnSortedPart") & vbCrLf
DataList.MoveNext
Loop
Set objFile = objFSO.OpenTextFile("new.file.txt",ForWriting, true)
objFile.WriteLine strText
objFile.Close
|
