There was an expression of interest in this macro from Walt Nickeson. So I am posting the macro with his permission (see his correspondence below). It is not (yet?) on his macro book, but you can use if from here if you are able to import it. I put it on OCLC User tools, and it works like magic!
MRS Marlene Schiffman Judaica Cataloger Gottesman Library Yeshiva University 500 West 185th Street New York, N.Y. 10033 Gottesman Library Room 301 646 592 4276 From: Nickeson, Walter <wnicke...@library.rochester.edu> Sent: Wednesday, September 30, 2020 11:58 AM To: Marlene Schiffman <schif...@yu.edu> Subject: RE: [EXT] - RE: diacritics **External Email** If you think this macro would be helpful to anyone else, I can put it on my Github site. It's such a specialized macro that I didn't think about making it more widely available. However, I'm happy to do so. But in addition to my posting the macro on Github, you could, because it's such a short and simple thing, post the macro itself on any relevant email Lists for people to copy and share. **External Email** ***************************************** Walter F. Nickeson, Catalog & Metadata Management Librarian Rush Rhees Library University of Rochester Rochester, NY 14627-0055 wnicke...@library.rochester.edu<mailto:wnicke...@library.rochester.edu> (585) 273-2326 fax: (585) 273-1032 ***************************************** 'MacroName:FormatForLabelPrinter 'MacroDescription:Eliminates diacritics from 100 and 245 fields. ' ' This macro was written by Walter F. Nickeson, ' University of Rochester, Rochester, NY ' wnicke...@library.rochester.edu<mailto:wnicke...@library.rochester.edu> ' ' Last updated: 21 September 2020. ' Check for the latest versions of my other macros at ' https://github.com/wnickeson/WaltsMacros<https://nam02.safelinks.protection.outlook.com/?url=https%3A%2F%2Furldefense.proofpoint.com%2Fv2%2Furl%3Fu%3Dhttps-3A__nam02.safelinks.protection.outlook.com_-3Furl-3Dhttps-253A-252F-252Furldefense.proofpoint.com-252Fv2-252Furl-253Fu-253Dhttps-2D3A-5F-5Fgithub.com-5Fwnickeson-5FWaltsMacros-2526d-253DDwMFAg-2526c-253Dkbmfwr1Yojg42sGEpaQh5ofMHBeTl9EI2eaqQZhHbOU-2526r-253Dxz2noldVAzT6TAk5mwYTwEhDaMv16-2DItQe8WS9qbcAQ-2526m-253DLL0VwSp1Ag4NGGj2JrMs2BXRFS55k3bj8vnsMIcURns-2526s-253DDsqy499xzk-2DkfiYoYl6ZALHUh8f1-2DJTXhKVode2JMZI-2526e-253D-26data-3D02-257C01-257Cschiffma-2540yu.edu-257Cb83944adbb4a4a51012d08d8653f13d5-257C04c70eb48f2648079934e02e89266ad0-257C1-257C0-257C637370668882301135-26sdata-3DXs80XceR6vCrw3Zo07F64wy8DAddxc0UNUh-252FUfT0DC0-253D-26reserved-3D0%26d%3DDwMF-g%26c%3Dkbmfwr1Yojg42sGEpaQh5ofMHBeTl9EI2eaqQZhHbOU%26r%3Dxz2noldVAzT6TAk5mwYTwEhDaMv16-ItQe8WS9qbcAQ%26m%3DJYLT7YkwRhXIIa84ri55dFAyKUKWjs41Ka8yW-6ReF4%26s%3D1L5islX-stjdSWlcoWUCqsNl1Bt4FLEE4NrlB_5EZbQ%26e%3D&data=02%7C01%7Cschiffma%40yu.edu%7C1c74fb04925a481adc5408d865599639%7C04c70eb48f2648079934e02e89266ad0%7C1%7C0%7C637370782729586729&sdata=QKwbgPGxyO2Kk6AWOdFR4ZxT2smrSBXPDx8fzIMo%2BAU%3D&reserved=0> ' Please e-mail me with bug reports or to suggest improvements. ' ' This macro works for me with Connexion client 2.63 and 64-bit Windows 7 Enterprise & ' 64-bit Windows 10 Pro, but no guarantees are promised or implied. ' '**************************************************************************************** ' How it works: Run the macro while viewing a bibliographic record. It removes all ' diacritics and special characters (that is, all characters whose ASCII values are ' outside the range 32 to 126) from the 1XX and 245 fields for printing with the OCLC ' label printing program. '**************************************************************************************** Option Explicit Declare Function Simplify( InString$ ) Sub Main Dim ActualTag$ Dim CS As Object : Set CS = CreateObject("Connex.Client") Dim EditedField$ Dim FieldData$ Dim FieldLoop% Dim LinkLoop% Dim Tag$ Dim i As Integer For FieldLoop% = 1 To 2 If FieldLoop% = 1 Then Tag$ = "1.." Else Tag$ = "245" End If For LinkLoop% = 1 To 2 If CS.GetField( Tag$, LinkLoop%, FieldData$ ) Then If FieldData$ <> "Data contains non-latin script" Then ActualTag$ = Left$( FieldData$, 3 ) EditedField$ = Simplify( FieldData$ ) If CS.SetField( LinkLoop%, EditedField$ ) = FALSE Then MsgBox "Sorry, editing the " & ActualTag$ & " field failed." End If Exit For End If End If Next LinkLoop% Next FieldLoop% End Sub '**************************************************************************************** Function Simplify( InString$ ) Dim CharA% Dim TempString$ Dim i As Integer For i = 1 to Len( InString$ ) CharA% = Asc( Mid$( InString$, i, 1 ) ) If ( CharA% > 31 And CharA% < 127 ) Or CharA% = 223 Then TempString$ = TempString$ & Chr$( CharA% ) End If Next i Simplify = TempString$ End Function
__ Messages and opinions expressed on Hasafran are those of the individual author and are not necessarily endorsed by the Association of Jewish Libraries (AJL) ================================== Submissions for Ha-Safran, send to: hasaf...@lists.service.ohio-state.edu To join Ha-Safran, update or change your subscription, etc. - click here: https://lists.service.ohio-state.edu/mailman/listinfo/hasafran Questions, problems, complaints, compliments send to: galro...@osu.edu Ha-Safran Archives: Current: http://www.mail-archive.com/hasafran%40lists.service.ohio-state.edu/maillist.html Earlier Listserver: http://www.mail-archive.com/hasafran%40lists.acs.ohio-state.edu/maillist.html AJL HomePage http://www.JewishLibraries.org -- Hasafran mailing list Hasafran@lists.osu.edu https://lists.osu.edu/mailman/listinfo/hasafran