Convert the code in vbs or ASP into one sentence

The result shows that table does not work.
Similar to If xx = 1 then YY = 2...

// This script supports drag and drop. You can also use cscript change. vbs XX. asp in the command line.CopyCodeThe Code is as follows: on error resume next
Set Arg = wscript. Arguments
If Arg. Count = 0 then wscript. Quit
'Code by netpatch
'Enjoy it
Set FSO = Createobject ("scripting. FileSystemObject ")
Set file = FSO. opentextfile (ARG (0), 1, false,-2)
Set files = FSO. opentextfile (ARG (0) & ". vbs", 2, true)
Do While file. atendofstream <> true
Szbuf = file. Readline
Szbuf = Replace (szbuf, CHR (9 ),"")
Findnum = instr (lcase (szbuf), "then ")
If findnum> 0 then
Findnum = findnum + 3
If Len (szbuf)> findnum then
Szbuf = szbuf & ": end if"
End if
End if
Files. Write szbuf &":"
Loop
File. Close
Files. Close
Set FSO = nothing
Wscript. Echo "OK! "