Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
VB.NET 2010-另一个代码页的Chr()函数_Vb.net - Fatal编程技术网

VB.NET 2010-另一个代码页的Chr()函数

VB.NET 2010-另一个代码页的Chr()函数,vb.net,Vb.net,当我使用函数Chr(225)时,我得到字符“á”,因为Windows的代码页是1250(System.Globalization.CultureInfo.CurrentCulture.TextInfo.ANSICodePage) 是否可以使用Chr(225),但获取另一个代码页的字符 例如,代码225在代码页DOS-852中表示字符“ß” 我需要把“á”改成“ß” 是否可以获取DOS代码页852的字符? 例如,Chr(225)应该返回“ß” 谢谢 您可以获得特定代码页的编码,在您的案例中为852

当我使用函数Chr(225)时,我得到字符“á”,因为Windows的代码页是1250(System.Globalization.CultureInfo.CurrentCulture.TextInfo.ANSICodePage)

是否可以使用Chr(225),但获取另一个代码页的字符

例如,代码225在代码页DOS-852中表示字符“ß”

我需要把“á”改成“ß”

是否可以获取DOS代码页852的字符? 例如,Chr(225)应该返回“ß”


谢谢

您可以获得特定代码页的编码,在您的案例中为852:

Dim enc = Text.Encoding.GetEncoding(852)
Dim str = enc.GetString(New Byte() {225})

请看一看这个类,了解文本编码之间的转换。

在我的情况下,我不需要更改编码,但我想阅读字符“á”(Asc(“á”)=225)的代码,然后更改代码页(到DOS 852代码页)并使用Chr(225)获得字符“ß”。最后我理解了您的代码。对不起,我不是很好的程序员。这段代码给出了我需要的“ß”:Dim enc As Encoding=Encoding.GetEncoding(“ibm852”)MsgBox(enc.GetChars({225}))