Export_Tabbed_Streaming COM Example

Dim obj_MB

Set obj_MB=CreateObject(“MARCEngine5.MARC21”)

dim rec

dim streamreader

set streamreader = obj_MB.OpenReadStream(“C:\Users\Terry\Desktop\z3950.mrc”, 1252)

rec = obj_MB.ReadAll(streamreader)

obj_MB.CloseReadStream(streamreader)

lret=obj_MB.Export_Tabbed_MARC_Stream_2(rec, “020$a,245$a,245$b,100$a,100$b,260$a,260$b,260$c,020$z,960$s,960$u,960$w,001″, 1)

msgbox (lret + ” finished”)