<div dir="ltr"><div>You need to use string class to iterate unicode strings.</div><div>IE instead of Chr() or String.Code().</div><div><br></div><div><br></div><div>Jussi<br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Thu, Feb 16, 2023 at 10:32 AM Martin <<a href="mailto:mbelmonte@belmotek.net">mbelmonte@belmotek.net</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">El 15/2/23 a las 23:37, Bruce Steers escribió:<br>
> They need fixing. By you. First.<br>
<br>
ok, so far I have solved it like this:<br>
<br>
Static Public Function Flat3(s As String) As String<br>
<br>
  Â Dim ab1 As Byte[] = ["33", "48", "49", "50", "51", "52", "53", "54", <br>
"55", "56", "57", "65", "66", "67", "68", "69", "70", "71", "72", "73", <br>
"74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", <br>
"86", "87", "88", "89", "90", "97", "98", "99", "100", "101", "102", <br>
"103", "104", "105", "106", "107", "108", "109", "110", "111", "112", <br>
"113", "114", "115", "116", "117", "118", "119", "120", "121", "122", <br>
"192", "193", "194", "195", "196", "197", "198", "199", "200", "201", <br>
"202", "203", "204", "205", "206", "207", "208", "209", "210", "211", <br>
"212", "213", "214", "216", "217", "218", "219", "220", "221", "222", <br>
"223", "224", "225", "226", "227", "228", "229", "230", "231", "232", <br>
"233", "234", "235", "236", "237", "238", "239", "240", "241", "242", <br>
"243", "244", "245", "246", "248", "249", "250", "251", "252", "253", <br>
"254", "255"]<br>
<br>
  Â Dim ab2 As Byte[] = ["95", "48", "49", "50", "51", "52", "53", "54", <br>
"55", "56", "57", "65", "66", "67", "68", "69", "70", "71", "72", "73", <br>
"74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", <br>
"86", "87", "88", "89", "90", "97", "98", "99", "100", "101", "102", <br>
"103", "104", "105", "106", "107", "108", "109", "110", "111", "112", <br>
"113", "114", "115", "116", "117", "118", "119", "120", "121", "122", <br>
"65", "65", "65", "65", "65", "65", "65", "67", "69", "69", "69", "69", <br>
"73", "73", "73", "73", "68", "78", "79", "79", "79", "79", "79", "79", <br>
"85", "85", "85", "85", "89", "112", "98", "97", "97", "97", "97", "97", <br>
"97", "97", "99", "101", "101", "101", "101", "105", "105", "105", <br>
"105", "100", "110", "111", "111", "111", "111", "111", "111", "117", <br>
"117", "117", "117", "121", "112", "121"]<br>
<br>
  Â Dim ab As New Byte[]<br>
  Â Dim b As Byte<br>
  Â Dim o As String<br>
  Â Dim i As Integer<br>
<br>
  Â ab = Byte[].FromString(s)<br>
<br>
  Â If ab.Count > 0 Then<br>
  Â  Â For Each b In ab<br>
  Â  Â  Â i = ab1.Find(b)<br>
  Â  Â  Â If i > -1 Then<br>
  Â  Â  Â  Â o &= Chr(ab2[i])<br>
  Â  Â  Â Else<br>
  Â  Â  Â  Â o &= "_"<br>
  Â  Â  Â Endif<br>
  Â  Â Next<br>
  Â Endif<br>
<br>
  Â Return o<br>
<br>
End<br>
<br>
But I am not sure if it is applicable in all cases, e.g. in text strings <br>
containing at least one 2-byte character.<br>
<br>
Martin.<br>
<br>
----[ <a href="http://gambaswiki.org/wiki/doc/netiquette" rel="noreferrer" target="_blank">http://gambaswiki.org/wiki/doc/netiquette</a> ]----<br>
</blockquote></div>