vb.net数字转中文 vb数字转汉字

gb2312>unicode>utf8， 以及逆转的方法'>VB.net 字符转换问题 字符（汉字、数字、字母、符号）>gb2312>unicode>utf8， 以及逆转的方法

字符编码转换吗?

创新互联公司主要为客户提供服务项目涵盖了网页视觉设计、VI标志设计、网络营销推广、网站程序开发、HTML5响应式成都网站建设、手机网站开发、微商城、网站托管及成都网站维护公司、WEB系统开发、域名注册、国内外服务器租用、视频、平面设计、SEO优化排名。设计、前端、后端三个建站步骤的完善服务体系。一人跟踪测试的建站服务标准。已经为成都自拌料搅拌车行业客户提供了网站设计服务。

1.字符与gb2312(gbk的子集)：

Public Function GBKEncode(ByVal sInput As String) As String

Dim ret_GBKEncode As String = ""

Dim i As Integer

Dim startIndex As Integer = 0

Dim endIndex As Integer

Dim x() As Byte = System.Text.Encoding.Default.GetBytes(sInput) '字符以及字符串在vb2008中都是以unicode编码存储的

endIndex = x.Length - 1

For i = startIndex To endIndex

ret_GBKEncode = "%" Hex(x(i))

Next

Return ret_GBKEncode

End Function

'GBK解码

Public Function GBKDecode(ByVal sInput As String) As String

sInput = sInput.Replace("%", "")

Dim ret_GBKDecode As String = ""

Dim sLen As Integer = sInput.Length

Dim n As Integer = sLen \ 2

Dim sBytes(0 To n - 1) As Byte

'转化为字节码

For i As Integer = 1 To n

sBytes(i - 1) = CByte("H" sInput.Substring(2 * i - 2, 2))

Next

'将字节码转化为字符串

ret_GBKDecode = System.Text.Encoding.Default.GetString(sBytes)

Return ret_GBKDecode

End Function

2.Unicode字符串为UTF-8

Imports System.Text

Public Function StringAsUtf8Bytes(ByVal strData As String) As Byte()

Dim bytes() As Byte

bytes = Encoding.UTF8.GetBytes(strData)

Return bytes

End Function

'这里可以类推出好几种。

VB.NET 类似/u660e的字符串转换为中文

你可以用 Encoding 对象转。先用 Encoding.Unicode 转成 Byte()，再转回 Ansi。

也可以自己写代码，把/u替换为H，再逐个用ChrW()函数取得汉字即可。

求一个可以把汉字转换为数字的VB.NET程序

我用的C#，我和你说下，你要做这个的思路吧，要用到的知识点：比如说你在文本框里输入汉字，点一button按扭来转换，也就是说获取文本框字符串，然后切割字符串转化为数组，string [] str=textbox.text.ToCharArray()接下来用循环来一个方法for(int i=0,istr.length;i++){if(str[i]=="壹"){str[i]=str[i].replace(壹,1);/pp}else{str[i]=str[i].replace(贰,2);} //这里根据自己的需求}大概的知识点要用到这些，不过，还有待他人和你自己的补充，我用的C#，以前我做过一个类似的(数字转为汉字哈)，不过，那全是用if....else 来判断的，希望你能看懂，对你有帮助

当前名称：vb.net数字转中文 vb数字转汉字
分享网址：http://cdiso.cn/article/dogpdcs.html