VB.NET 如何强制 Asc 在非英文系统上使用英文代码页

Question

在 VB.NET 中，我想模拟一种“强制”ASC 函数使用英语代码页的方法，即使在“非 unicode 语言”与英语不同的系统上也是如此。

例如:

Asc("Œ")

在将“非 unicode 语言”设置为英语的系统上，当前结果为 140

在将“非 unicode 语言”设置为斯洛伐克语的系统上，当前结果为 79

扭曲是我不能使用 AscW(因为我不能透露的原因)

在上面的特定示例中，我需要代码始终返回 140。

如果有办法强制整个程序使用英文代码页，我也可以使用它。

我试过玩 CurrentCulture:

Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("en-US")
Threading.Thread.CurrentThread.CurrentUICulture = New Globalization.CultureInfo("en-US")

就在 Asc 之前，甚至是 ApplicationEvent 启动的第一行，但没有运气。

谢谢!

Answer 1

通过使用 ILSpy，看起来 Asc 使用 Encoding.Default 来获取操作系统的默认编码以确定如何获取字节。所以你必须自己动手:

    Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding(1252)   '1252 is the default codepage on US Windows
    Dim arr() As Byte = enc.GetBytes("Œ")
    MessageBox.Show(arr(0))