Before reading special characters in a text file, vbs reads the value of a comma and assigns it to a variable.

The simulation terminal securecrt I use requires a script that supports vbs. I need to implement the following functions:

First, the text file is in: D: \ 100.txt
The text file content is:
9 0, Randy,
9 1, Jeff,
9 2, sameul,

Now we need a loop to automatically execute related parameters. The loop needs to call two variables TN and name.
Assign the value before the first comma to TN and the parameter before the second comma to name. I have never learned vbs. Please try to write details as much as possible.

Set FSO = wscript. Createobject ("scripting. FileSystemObject ")
Set Fr = FSO. opentextfile ("D: \ 100.txt", 1)

Do until Fr. atendofstream
A = Fr. Readline: B = Split (a, ","): J = J + 1
Tn = B (0): name = B (1)
Msgbox "& J &" line "& vbcrlf &" tn: "& TN &"; Name: "& name
Loop