Dim fso, FH, filename, InLine, I, J
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
filename = "C:\Users\c50522\Documents\TEST_DATA.TXT"
Set FH = fso.OpenTextFile(filename, 1)
WScript.Echo ""
Do Until FH.AtEndOfStream
	InLine = FH.Readline
	If InLine <> "" Then
		Arr1 = Split(InLine, "|")
		On Error Resume Next
		Arr2 = Split(Arr1(0), "#")
		On Error GoTo 0
		WScript.Echo "==================================================="
		For I = 0 to UBound(Arr2)
			WScript.Echo CStr(I + 1) & " : " & Arr2(I)
		 Next
		WScript.Echo "==================================================="
		For J = 1 to UBound(Arr1)
			WScript.Echo CStr(I + 1) & " : " & Arr1(J)
			I = I + 1
		 Next
		WScript.Echo "==================================================="
	 End If
 Loop
FH.Close
Set FH = Nothing
Set fso = Nothing
WScript.Quit

===================================================
1 : TWA
2 : 2876400*65F00000
3 : CP2152*CP2-100007392-1101N3
4 : 15790-1
5 : 16
6 : D
===================================================
7 : C
8 : CDF 100028896 1101N3
9 : 65
10 : FSS0006994
11 : CP0939*CP1
12 : FSSOO3
13 : MO
14 : 16
15 : 120611
16 : 120511
17 : 1636154
===================================================