1. В каталоге имеются записи в которых инициалы прописаны в подполе 700^a вместе с фамилией
Например:
^AРубинштейнС.Л.
^AРубцовН.М.
Возможно ли сделать глобальную корректировку чтобы инициалы перенести в подполе 700^b?

2. В каталоге имеются записи в которых в подполе 700^b инициалы записаны без пробела, например ^AДрузь^BН.С.^GНиколай Сергеевич

с помощью глобальной корректировки

0
REP
700^B
F
if v700^b*1.1:'.' and v700^b*2.1<>' ' then v700^b.2,' ',&unifor("G2."v700^b) else v700^b fi
XXXXXXXXXXXXXXXXXXX

пробелы можно вставить, но тогда появляется лишний пробел у тех записей, у которых в инициалах стоит только одна буква ^AАбдулин^BМ.
как сделать корректировку так, чтобы пробел ставился только в том случае, если есть второй инициал?

ЦГБ г.Усть-Илимск



Редактировано 4 раз. Последний раз 26.02.2014 07:36 пользователем vguseva.

Если опираться на точку как символ после первого инициала, то попробуйте так:
REP
700
1
v700,,if a(v700^B) then if v700^A: '.' then '^B',,&uf('+960*',,f(val(&uf('+95',&uf("G0."v700^a)) )-1,0,0),,'.4#',,v700^A) fi fi

REP
700^A
1
if v700^A: '.' then &uf('+960.',,f(val(&uf('+95',&uf("G0."v700^a)) )-1,0,0),,'#',,v700^A) fi