Making a Z39.50 Request via COM

Dim lobj_Z3950 Dim lstring Dim sfilename sfilename = “output.mrc” Set lobj_Z3950 =createObject(“MARCEngine5.Query”) lobj_Z3950.Database = “LCDB_MARC8” lobj_Z3950.Host = “lx2.loc.gov” lobj_Z3950.Port = 210 lobj_Z3950.Syntax = “MARC21” lobj_Z3950.Start = 0 lobj_Z3950.Limit = 1 lstring = lobj_Z3950.Z3950Search(“@attr 1=4 ” + chr(34) + “building digital libraries” + chr(34), -1) Set lobj_Z3950 = Nothing ‘show the record msgbox(lstring) bsuccess = Write2File(sfilename, …

Continue reading ‘Making a Z39.50 Request via COM’ »

Add a New Field via COM (script maker Example)

File can be downloaded from: add_field ************************************************************* ‘BEGIN ‘ADD:ADDɕɕ=500 \\$aTest Field1. ‘SORT:true ‘END ‘======================================================== ‘ Generated 3/23/2015 by the MarcEdit Script Maker. ‘ Description: The MarcEdit Script Maker is an separate but add-on ‘ utility that can be used to quickly generate vbscripts to process ‘ MARC files. ‘ ‘ Author: Terry Reese ‘ Oregon …

Continue reading ‘Add a New Field via COM (script maker Example)’ »

MARCXML COM Stream Example

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) …

Continue reading ‘MARCXML COM Stream Example’ »

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”)

Replacement Unicode Fonts

Since MarcEdit 4.x, MarcEdit has targeted the Arial Unicode MS font as the primary rendering font used for the application.  This was done primarily because it was easy to get due to MS Office, readily available, and provided some of the best coverage for multi-byte language.   However, as of Office 2016, Microsoft is no …

Continue reading ‘Replacement Unicode Fonts’ »

Set Subfield Insert Position

Conditional Subfield Insert: Special Subfield characters: []^ Description: When inserting certain subfield data, like the GMD, AACR2 has a number of rules regarding the placement of the subfield data. In the current version of MarcEdit, users could append a new subfield to the end of an existing one — but for data like the GMD, …

Continue reading ‘Set Subfield Insert Position’ »