[问题求助] 【已解决】VBS：若读入数据产生首尾颠倒的改变，VBS代码如何进行相应修改

思想之翼

原题：http://www.bathome.net/viewthread.php?tid=23404&highlight=
问题：
下列VBS代码读入a.txt的数据，由于记录方式变更，产生首尾颠倒的变化，欲得到相同的运算结果，VBS代码该如何相应修改？恳望得到指点。
示例：
【a.txt 原始记录的数据】
9
0
X
Y
Z
9
0
【a.txt 首尾颠倒后的数据】
0
9
Z
Y
X
0
9

Set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.OpenTextFile("a.txt")

Do Until file.AtEndOfStream
   strLine = file.ReadLine
   If strLine <> "" Then
      ReDim PreServe ar(n)
      strIn = strIn & "$" & strLine & " "
      ar(n) = strIn : n = n + 1
   End If
Loop

For i = CLng(UBound(ar)/2) to 0 step -1
   ar1 = Split(strIn,ar(i))
   If UBound(ar1) > 1 Then
      For j = 1 to UBound(ar1) - 1
         WriteToFile Split(ar1(j)),Split(ar(i))
      Next
      Exit For
   End If 
Next

MsgBox "OK"

Sub WriteToFile(ar2,ar3)
   If UBound(ar2) >= 1 Then
      strOut = Mid(ar2(UBound(ar2)-1),2)
   Else
      strOut = Mid(ar3(UBound(ar3)-1),2)
   End If
   fso.OpenTextFile("b.txt",8,True).WriteLine strOut
End Sub
复制代码

思想之翼

回复 2# jyswjjgdwtdtj
感谢！没能解决问题

思想之翼

回复 4# jyswjjgdwtdtj
理解您的想法。文本个数多，折腾数据费时。

思想之翼

回复 14# czjt1234
非常感谢！代码运行结果正确。
VBScript 代码运行速度上不去，转换为 Javascript 或其他脚本语言，是否明显加速？恳望指点！