'MacroName:summaries
'MacroDescription:fixes Polish summaries from the interweb

option explicit
global arrCharacters(25,25)
global acc$, dot$, hook$

'--------------
function replace(strString as string, strOld as string, strNew as string) as string
   dim pos as integer

   pos = instr(strString, strOld)
   do while pos > 0
      strString = left(strString, pos - 1) & strNew & mid(strString, pos + len(strOld))
      pos = instr(strString, strOld)
   loop

   replace = strString   
end function
'---------------
sub loadArray
   acc$ = chr(226)
   dot$ = chr(231)
   hook$ = chr(241)
      
   arrCharacters(0, 0) = "ć"
   arrCharacters(0, 1) = "c" & acc$
   
   arrCharacters(1, 0) = "ś"
   arrCharacters(1, 1) = "s" & acc$
   
   arrCharacters(2, 0) = "ź"
   arrCharacters(2, 1) = "z" & acc$
   
   arrCharacters(3, 0) = "Ż"
   arrCharacters(3, 1) = "Z" & dot$
   
   arrCharacters(4, 0) = "ż"
   arrCharacters(4, 1) = "z" & dot$
   
   arrCharacters(5, 0) = "ę"
   arrCharacters(5, 1) = "e" & hook$
   
   arrCharacters(6, 0) = "ą"
   arrCharacters(6, 1) = "a" & hook$
   
   arrCharacters(7, 0) = "ń"
   arrCharacters(7, 1) = "n" & acc$
   
   arrCharacters(8, 0) = chr(243)
   arrCharacters(8, 1) = "o" & acc$ 
   
   arrCharacters(9, 0) = "„"
   arrCharacters(9, 1) = chr(34)

   arrCharacters(10, 0) = "„"
   arrCharacters(10, 1) = chr(34)
   
   arrCharacters(11, 0) = "”"
   arrCharacters(11, 1) = chr(34)
   
   arrCharacters(12, 0) = "Ś"
   arrCharacters(12, 1) = "S" & acc$
   
   arrCharacters(13, 0) = "Ą"
   arrCharacters(13, 1) = "A" & hook$
   
   arrCharacters(14, 0) = " –"
   arrCharacters(14, 1) = "--"
   
   arrCharacters(15, 0) = "…"
   arrCharacters(15, 1) = "--"
end sub
'---------------
Sub Main
   Dim CS As Object
   Set CS = CreateObject("Connex.Client")

   dim tag520$, x
   call loadArray
   
   CS.GetFieldUnicode "520", 1, tag520$   

   do
      tag520$ = replace(tag520$, arrCharacters(x, 0), arrCharacters(x, 1))
      x = x + 1
   loop until arrCharacters(x, 0) = ""
   
   CS.DeleteField "520", 1
   CS.AddField 1, tag520$

end sub