'MacroName:Latin2Cherokee
'MacroDescription:Automatically untransliterate a field with Latin characters into Cherokee characters
'Macro created by: Joel Hahn
'Macro last modified: 6 September 2021

'Note:  It is not possible to tell the difference between s-a and sa, s-e and se, etc., nah-na and na-hna, sv-i and s-v-i, and so forth
'       Therefore, the results of this macro always need to be compared closely against the original

Option Explicit
Option Compare Binary

Declare Function TransCherokee(sField As String) As String

Sub Main
   Dim sField As String
   Dim bool As Integer
   Dim sTranslit As String
   Dim i As Integer
   Dim sLang As String

   Dim CS As Object
   On Error Resume Next
   Set CS  = GetObject(,"Connex.Client")
   On Error GoTo 0
   If CS  Is Nothing Then
      Set CS  = CreateObject("Connex.Client")
   End If

   Select Case CS.ItemType
     Case -1, 5 To 13, 15 To 16, 21 To 25
       MsgBox "Not viewing a MARC record. Exiting..."
       Exit Sub
   End Select

   bool = CS.GetFieldLine(CS.CursorRow, sField)
   If InStr(sField, "Data contains non-latin script") Then
     MsgBox "The selected field already contains vernacular data. Exiting..."
     Exit Sub
   ElseIf sField = Chr(252) & Chr(252) & Chr(252) & "  "  Or Trim(Mid(sField, 6)) = "" Then
     MsgBox "The selected field contains no data. Exiting..."
     Exit Sub
   End If

   For i = 1 to 5
     If Asc(Mid(sField, i, 1)) = 252 Then
       sTranslit = sTranslit & "∎" 
     Else
       sTranslit = sTranslit & Mid(sField, i, 1)
     End If
   Next

   sTranslit = sTranslit & TransCherokee(sField)

   bool = CS.AddFieldLine(CS.CursorRow, sTranslit)

   CS.SendKeys "%ekl", -1

End Sub

'################################################################################

Function TransCherokee(sField As String) As String
  Dim i As Long
  Dim sNewField As String
  sNewField = ""

  i = 6
  Do
    If Mid(sField, i, 1) = Chr(223) Then
      sNewField = sNewField & "ǂ" & Mid(sField, i+1, 1)
      i = i + 2

    Else
       dim b : b = Mid(sField, i, 1)
       dim c : if i < Len(sField) Then c = Mid(sField, i, 2)
       If InStr(" !@#$%^&*()[]{};:.,/?\=+-" & Chr(34), Mid(sField, i, 1)) Then
         sNewField = sNewField & Mid(sField, i, 1)
       
       ElseIf InStr("0123456789", Mid(sField, i, 1)) Then
         sNewField = sNewField & Mid(sField, i, 1)

       ElseIf LCase(Mid(sField, i, 1)) = "a" Then
         sNewField = sNewField & "&#x13A0;"
       ElseIf LCase(Mid(sField, i, 1)) = "e" Then
         sNewField = sNewField & "&#x13A1;"
       ElseIf LCase(Mid(sField, i, 1)) = "i" Then
         sNewField = sNewField & "&#x13A2;"
       ElseIf LCase(Mid(sField, i, 1)) = "o" Then
         sNewField = sNewField & "&#x13A3;"
       ElseIf LCase(Mid(sField, i, 1)) = "u" Then
         sNewField = sNewField & "&#x13A4;"
       ElseIf LCase(Mid(sField, i, 1)) = "v" Then
         sNewField = sNewField & "&#x13A5;"

       ElseIf LCase(Mid(sField, i, 1)) = "g" Then
         If LCase(Mid(sField, i+1, 1)) = "a" Then
           sNewField = sNewField & "&#x13A6;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "e" Then
           sNewField = sNewField & "&#x13A8;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "i" Then
           sNewField = sNewField & "&#x13A9;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "o" Then
           sNewField = sNewField & "&#x13AA;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "u" Then
           sNewField = sNewField & "&#x13AB;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "v" Then
           sNewField = sNewField & "&#x13AC;"
           i = i + 1
         Else
           sNewField = sNewField & "&#x220E;"
         End If
       ElseIf LCase(Mid(sField, i, 1)) = "k" Then
         If LCase(Mid(sField, i+1, 1)) = "a" Then
           sNewField = sNewField & "&#x13A7;"
           i = i + 1
         Else
           sNewField = sNewField & "&#x220E;"
         End If
       ElseIf LCase(Mid(sField, i, 1)) = "h" Then
         If LCase(Mid(sField, i+1, 2)) = "na" Then
           sNewField = sNewField & "&#x13BF;"
           i = i + 2
         ElseIf LCase(Mid(sField, i+1, 1)) = "a" Then
           sNewField = sNewField & "&#x13AD;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "e" Then
           sNewField = sNewField & "&#x13AE;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "i" Then
           sNewField = sNewField & "&#x13AF;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "o" Then
           sNewField = sNewField & "&#x13B0;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "u" Then
           sNewField = sNewField & "&#x13B1;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "v" Then
           sNewField = sNewField & "&#x13B2;"
           i = i + 1
         Else
           sNewField = sNewField & "&#x220E;"
         End If
       ElseIf LCase(Mid(sField, i, 1)) = "l" Then
         If LCase(Mid(sField, i+1, 1)) = "a" Then
           sNewField = sNewField & "&#x13B3;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "e" Then
           sNewField = sNewField & "&#x13B4;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "i" Then
           sNewField = sNewField & "&#x13B5;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "o" Then
           sNewField = sNewField & "&#x13B6;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "u" Then
           sNewField = sNewField & "&#x13B7;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "v" Then
           sNewField = sNewField & "&#x13B8;"
           i = i + 1
         Else
           sNewField = sNewField & "&#x220E;"
           i = i + 1
         End If
       ElseIf LCase(Mid(sField, i, 1)) = "m" Then
         If LCase(Mid(sField, i+1, 1)) = "a" Then
           sNewField = sNewField & "&#x13B9;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "e" Then
           sNewField = sNewField & "&#x13BA;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "i" Then
           sNewField = sNewField & "&#x13BB;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "o" Then
           sNewField = sNewField & "&#x13BC;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "u" Then
           sNewField = sNewField & "&#x13BD;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "v" Then
           sNewField = sNewField & "&#x13F5;"
           i = i + 1
         Else
           sNewField = sNewField & "&#x220E;"
         End If
       ElseIf LCase(Mid(sField, i, 1)) = "n" Then
         If LCase(Mid(sField, i+1, 2)) = "ah" Then
           sNewField = sNewField & "&#x13C0;"
           i = i + 2
         ElseIf LCase(Mid(sField, i+1, 1)) = "a" Then
           sNewField = sNewField & "&#x13BE;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "e" Then
           sNewField = sNewField & "&#x13C1;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "i" Then
           sNewField = sNewField & "&#x13C2;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "o" Then
           sNewField = sNewField & "&#x13C3;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "u" Then
           sNewField = sNewField & "&#x13C4;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "v" Then
           sNewField = sNewField & "&#x13C5;"
           i = i + 1
         Else
           sNewField = sNewField & "&#x220E;"
         End If
       ElseIf LCase(Mid(sField, i, 2)) = "qu" Then
         If LCase(Mid(sField, i+2, 1)) = "a" Then
           sNewField = sNewField & "&#x13C6;"
           i = i + 2
         ElseIf LCase(Mid(sField, i+2, 1)) = "e" Then
           sNewField = sNewField & "&#x13C7;"
           i = i + 2
         ElseIf LCase(Mid(sField, i+2, 1)) = "i" Then
           sNewField = sNewField & "&#x13C8;"
           i = i + 2
         ElseIf LCase(Mid(sField, i+2, 1)) = "o" Then
           sNewField = sNewField & "&#x13C9;"
           i = i + 2
         ElseIf LCase(Mid(sField, i+2, 1)) = "u" Then
           sNewField = sNewField & "&#x13CA;"
           i = i + 2
         ElseIf LCase(Mid(sField, i+2, 1)) = "v" Then
           sNewField = sNewField & "&#x13CB;"
           i = i + 2
         Else
           sNewField = sNewField & "&#x220E;"
         End If
       ElseIf LCase(Mid(sField, i, 1)) = "s" Then
         If LCase(Mid(sField, i+1, 1)) = "a" Then
           sNewField = sNewField & "&#x13CC;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "e" Then
           sNewField = sNewField & "&#x13CE;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "i" Then
           sNewField = sNewField & "&#x13CF;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "o" Then
           sNewField = sNewField & "&#x13D0;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "u" Then
           sNewField = sNewField & "&#x13D1;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "v" Then
           sNewField = sNewField & "&#x13D2;"
           i = i + 1
         Else
           sNewField = sNewField & "&#x13CD;"
         End If
       ElseIf LCase(Mid(sField, i, 2)) = "dl" Then
         If LCase(Mid(sField, i+2, 1)) = "a" Then
           sNewField = sNewField & "&#x13DC;"
           i = i + 2
         Else
           sNewField = sNewField & "&#x220E;"
         End If
       ElseIf LCase(Mid(sField, i, 1)) = "d" Then
         If LCase(Mid(sField, i+1, 1)) = "a" Then
           sNewField = sNewField & "&#x13D3;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "e" Then
           sNewField = sNewField & "&#x13D5;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "i" Then
           sNewField = sNewField & "&#x13D7;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "o" Then
           sNewField = sNewField & "&#x13D9;" 'character appears upside down in some fonts
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "u" Then
           sNewField = sNewField & "&#x13DA;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "v" Then
           sNewField = sNewField & "&#x13DB;"
           i = i + 1
         Else
           sNewField = sNewField & "&#x220E;"
         End If
       ElseIf LCase(Mid(sField, i, 2)) = "tl" Then
         If LCase(Mid(sField, i+2, 1)) = "a" Then
           sNewField = sNewField & "&#x13DD;"
           i = i + 2
         ElseIf LCase(Mid(sField, i+2, 1)) = "e" Then
           sNewField = sNewField & "&#x13DE;"
           i = i + 2
         ElseIf LCase(Mid(sField, i+2, 1)) = "i" Then
           sNewField = sNewField & "&#x13DF;"
           i = i + 2
         ElseIf LCase(Mid(sField, i+2, 1)) = "o" Then
           sNewField = sNewField & "&#x13E0;"
           i = i + 2
         ElseIf LCase(Mid(sField, i+2, 1)) = "u" Then
           sNewField = sNewField & "&#x13E1;"
           i = i + 2
         ElseIf LCase(Mid(sField, i+2, 1)) = "v" Then
           sNewField = sNewField & "&#x13E2;"
           i = i + 2
         Else
           sNewField = sNewField & "&#x220E;"
         End If
       ElseIf LCase(Mid(sField, i, 2)) = "ts" Then
         If LCase(Mid(sField, i+2, 1)) = "a" Then
           sNewField = sNewField & "&#x13E3;"
           i = i + 2
         ElseIf LCase(Mid(sField, i+2, 1)) = "e" Then
           sNewField = sNewField & "&#x13E4;"
           i = i + 2
         ElseIf LCase(Mid(sField, i+2, 1)) = "i" Then
           sNewField = sNewField & "&#x13E5;"
           i = i + 2
         ElseIf LCase(Mid(sField, i+2, 1)) = "o" Then
           sNewField = sNewField & "&#x13E6;"
           i = i + 2
         ElseIf LCase(Mid(sField, i+2, 1)) = "u" Then
           sNewField = sNewField & "&#x13E7;"
           i = i + 2
         ElseIf LCase(Mid(sField, i+2, 1)) = "v" Then
           sNewField = sNewField & "&#x13E8;"
           i = i + 2
         Else
           sNewField = sNewField & "&#x220E;"
         End If
       ElseIf LCase(Mid(sField, i, 1)) = "t" Then
         If LCase(Mid(sField, i+1, 1)) = "a" Then
           sNewField = sNewField & "&#x13D4;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "e" Then
           sNewField = sNewField & "&#x13D6;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "i" Then
           sNewField = sNewField & "&#x13D8;"
           i = i + 1
         Else
           sNewField = sNewField & "&#x220E;"
         End If
       ElseIf LCase(Mid(sField, i, 1)) = "w" Then
         If LCase(Mid(sField, i+1, 1)) = "a" Then
           sNewField = sNewField & "&#x13E9;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "e" Then
           sNewField = sNewField & "&#x13EA;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "i" Then
           sNewField = sNewField & "&#x13EB;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "o" Then
           sNewField = sNewField & "&#x13EC;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "u" Then
           sNewField = sNewField & "&#x13ED;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "v" Then
           sNewField = sNewField & "&#x13EE;"
           i = i + 1
         Else
           sNewField = sNewField & "&#x220E;"
         End If
       ElseIf LCase(Mid(sField, i, 1)) = "y" Then
         If LCase(Mid(sField, i+1, 1)) = "a" Then
           sNewField = sNewField & "&#x13EF;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "e" Then
           sNewField = sNewField & "&#x13F0;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "i" Then
           sNewField = sNewField & "&#x13F1;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "o" Then
           sNewField = sNewField & "&#x13F2;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "u" Then
           sNewField = sNewField & "&#x13F3;"
           i = i + 1
         ElseIf LCase(Mid(sField, i+1, 1)) = "v" Then
           sNewField = sNewField & "&#x13F4;"
           i = i + 1
         Else
           sNewField = sNewField & "&#x220E;"
         End If

       Else
         sNewField = sNewField & "&#x220E;"
       End If
       i = i + 1
    End If
    
  Loop While i <= Len(sField)
  
  TransCherokee = sNewField
End Function

'################################################################################