Dim objMM
Dim xmarc

dim path

path = "C:\Users\Terry\OneDrive\MarcEdit Downloads\xmltest\"
path2 = "C:\Users\Terry\Desktop\"

Set objMM=CreateObject("MARCEngine5.MARC21")

dim fso
dim f1

Set fso = CreateObject("Scripting.filesystemobject")
Set f1 = fso.opentextfile(path + "enc_1.txt", 1)
xmarc = f1.ReadAll
f1.close

Dim output

  output = objMM.ReadMARC21XMLStream(xmarc,"C:\Program Files\MarcEdit 6\xslt\MARC21slim2Mnemonic.xsl",0,2)
  

tmp = output
do
  if len(tmp) > 500 then
     msgbox(mid(tmp,1,500))
     tmp = mid(tmp, 500)
  else
     msgbox(tmp)
     exit do
  end if
loop

'this seems to be where the data get's changed.
  output = objMM.MARC2Stream(output, 2)
tmp = output
do
  if len(tmp) > 500 then
     msgbox(mid(tmp,1,500))
     tmp = mid(tmp, 500)
  else
     msgbox(tmp)
     exit do
  end if
loop


  noutput = objMM.Mnemonic2Stream(output, 2)

tmp = noutput
do
  if len(tmp) > 500 then
     msgbox(mid(tmp,1,500))
     tmp = mid(tmp, 500)
  else
     msgbox(tmp)
     exit do
  end if
loop

  noutput = objMM.MARC2MARC21XML_Stream(noutput, 0,2)

tmp = noutput
do
  if len(tmp) > 500 then
     msgbox(mid(tmp,1,500))
     tmp = mid(tmp, 500)
  else
     msgbox(tmp)
     exit do
  end if
loop

  '


Dim objf
Dim fs 

dim i
do
  if len(noutput) > 500 then
     msgbox(mid(noutput,1,500))
     noutput = mid(noutput, 500)
  else
     msgbox(noutput)
     wscript.quit
  end if
loop
msgbox("finished")