I'm not sure there was ever an example for how to do this. In the
MarcEditor itself, there are built in functions to do this. There is no
support for this in the script wizard but you can obviously write this
yourself -- something like:
If Mid(str_MARC, ,4) = "=245" then
arr_val = split(str_MARC, "$")
for x=lbound(arr_val) to Ubound(arr_val)
if mid(arr_val(x)="a" then
arr_line = split(arr_val(x), " ")
for y=lbound(arr_line) to Ubound(arr_line)
if y = 0 then
arr_line(y) = Mid(arr_line(y),1,1) +
Ucase(Mid(arr_line(y), 2,1)) + Mid(arr_line(y), 3)
else
arr_line(y) = Ucase(Mid(arr_line(y),1,1)) +
Mid(arr_line(y), 2)
end if
next
arr_val(x) = join(arr_line, " ")
end if
next
-tr
-----Original Message-----
From: MarcEdit support in technical and instructional matters
[mailto:[log in to unmask]] On Behalf Of Kaiser, Don
Sent: Monday, October 28, 2013 6:08 PM
To: [log in to unmask]
Subject: [MARCEDIT-L] Uppercase 245 $a
I am trying to script the uppercasing of the 245$a in a file. Actually I
want to make it as easy as possible for a person to run. I have found
"ucase" and the script wizard, but so far no success. The good news is that
dragging a .mrc file over the .vbs works great!
I found an old tutorial that is similar, but I probably need more of a basic
tutorial on scripts.
If someone can point me to a resouce (sorry Terry but many of your Oregon
links are now invalid), that would be very helpful.
Thanks
________________________________________________________________________
This message comes to you via MARCEDIT-L, a Listserv(R) list for technical
and instructional support in MarcEdit. If you wish to communicate directly
with the list owners, write to [log in to unmask] To
unsubscribe, send a message "SIGNOFF MARCEDIT-L" to
[log in to unmask]
________________________________________________________________________
This message comes to you via MARCEDIT-L, a Listserv(R) list for technical and instructional support in MarcEdit. If you wish to communicate directly with the list owners, write to [log in to unmask] To unsubscribe, send a message "SIGNOFF MARCEDIT-L" to [log in to unmask]
|