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
