Private Sub Convert()
Dim Str1 As String = TextBox1.Text
Str1 = " " + Str1.TrimEnd(" ")
Str1 = Regex.Replace(Str1, "[<]+[-‒–—―=]*[>]+", "↔")
Str1 = Regex.Replace(Str1, "[-‒–—―=]*[>]+", "→")
Str1 = Regex.Replace(Str1, "(?<!\s\d*)0(?!\d*[+-]+)", "₀")
Str1 = Regex.Replace(Str1, "(?<!\s\d*)1(?!\d*[+-]+)", "₁")
Str1 = Regex.Replace(Str1, "(?<!\s\d*)2(?!\d*[+-]+)", "₂")
Str1 = Regex.Replace(Str1, "(?<!\s\d*)3(?!\d*[+-]+)", "₃")
Str1 = Regex.Replace(Str1, "(?<!\s\d*)4(?!\d*[+-]+)", "₄")
Str1 = Regex.Replace(Str1, "(?<!\s\d*)5(?!\d*[+-]+)", "₅")
Str1 = Regex.Replace(Str1, "(?<!\s\d*)6(?!\d*[+-]+)", "₆")
Str1 = Regex.Replace(Str1, "(?<!\s\d*)7(?!\d*[+-]+)", "₇")
Str1 = Regex.Replace(Str1, "(?<!\s\d*)8(?!\d*[+-]+)", "₈")
Str1 = Regex.Replace(Str1, "(?<!\s\d*)9(?!\d*[+-]+)", "₉")
Str1 = Regex.Replace(Str1, "((?<=\s\d+)[+]|(?<=\s)[+](?=\s*[+-]+)|(?<=\s+)[+]$|(?<=[A-Za-z])[+])", "⁺")
Str1 = Regex.Replace(Str1, "((?<=\s\d+)[-]|(?<=\s)[-](?=\s*[+-]+)|(?<=\s+)[-]$|(?<=[A-Za-z])[-])", "⁻")
Str1 = Regex.Replace(Str1, "\s+0(?=[⁺⁻]+)", "⁰")
Str1 = Regex.Replace(Str1, "\s+1(?=[⁺⁻]+)", "¹")
Str1 = Regex.Replace(Str1, "\s+2(?=[⁺⁻]+)", "²")
Str1 = Regex.Replace(Str1, "\s+3(?=[⁺⁻]+)", "³")
Str1 = Regex.Replace(Str1, "\s+4(?=[⁺⁻]+)", "⁴")
Str1 = Regex.Replace(Str1, "\s+5(?=[⁺⁻]+)", "⁵")
Str1 = Regex.Replace(Str1, "\s+6(?=[⁺⁻]+)", "⁶")
Str1 = Regex.Replace(Str1, "\s+7(?=[⁺⁻]+)", "⁷")
Str1 = Regex.Replace(Str1, "\s+8(?=[⁺⁻]+)", "⁸")
Str1 = Regex.Replace(Str1, "\s+9(?=[⁺⁻]+)", "⁹")
Str1 = Regex.Replace(Str1, "\s+(?=[₀₁₂₃₄₅₆₇₈₉]*[⁺⁻])", "")
TextBox2.Text = Str1.TrimStart(" ")
End Sub
|