If a win-mac text conversion is needed but not carrying around the SatImage OSAX,
this subroutine is helpful to convert ASCII win to mac.
Special characters, which are not available in the Mac Roman character set, are “worked around”
convert_from_win("°Ë†¸Æ’÷¹ï¬‚") --> äöüÄÖÜß
on convert_from_win(theString)
script table
property L : {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, ¬
16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, ¬
32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, ¬
48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, ¬
64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, ¬
80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, ¬
96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, ¬
112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, ¬
219, "?", 226, 196, 227, 201, 160, 224, 246, 228, "Sˇ", 220, 206, "?", "ˇZ", "?", ¬
"?", 212, 213, 210, 211, 165, 208, 209, 247, 170, "sˇ", 221, 207, "?", "ˇz", 217, ¬
202, 193, 162, 163, "?", 180, 124, 164, 172, 169, 187, 199, 194, "?", 168, 248, ¬
161, 177, 50, 51, 171, 181, 166, 225, 252, 49, 188, 200, "1/4", "1/2", "3/4", 192, ¬
203, 231, 229, 204, 128, 129, 174, 130, 233, 131, 230, 232, 237, 234, 235, 236, ¬
"<ETH>", 132, 241, 238, 239, 205, 133, 42, 175, 244, 242, 243, 134, "´Y", "<THORN>", 167, ¬
136, 135, 137, 139, 138, 140, 190, 141, 143, 142, 144, 145, 147, 146, 148, 149, ¬
"<eth>", 150, 152, 151, 153, 155, 154, 214, 191, 157, 156, 158, 159, "´y", "<thorn>", 216}
end script
set r to ""
repeat with ch in (get characters of theString)
try
set r to r & (ASCII character ((item (ASCII number ch) of table's L) as integer))
on error
set r to r & item (ASCII number ch) of table's L
end try
end repeat
return r
end convert_from_win
