锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net汉字拼音 vb怎么输出汉字( 三 )

IT技术汉字


}
}
public string transpy(string strhz)//把汉字字符串转换成拼音码
{
string strtemp="";
int strlen=strhz.Length;
for (int i=0;i=strlen-1;i++)
{
strtemp+=hz2py(strhz.Substring(i,1));
}
return strtemp;
}
create table tabpy(id int identity,b_begin varbinary(2),b_end varbinary(2),word varchar(2))
insert tabpy select 0xB0A1, 0xB0C4,'A'
union all select 0xB0C5, 0xB2C0,'B'
union all select 0xB2C1, 0xB4ED,'C'
union all select 0xB4EE, 0xB6E9,'D'
union all select 0xB6EA, 0xB7A1,'E'
union all select 0xB7A2, 0xB8C0,'F'
union all select 0xB8C1, 0xB9FD,'G'
union all select 0xB9FE, 0xBBF6,'H'
union all select 0xBBF7, 0xBFA5,'J'
union all select 0xBFA6, 0xC0AB,'K'
union all select 0xC0AC, 0xC2E7,'L'
union all select 0xC2E8, 0xC4C2,'M'
union all select 0xC4C3, 0xC5B5,'N'
union all select 0xC5B6, 0xC5BD,'O'
union all select 0xC5BE, 0xC6D9,'P'
union all select 0xC6DA, 0xC8BA,'Q'
union all select 0xC8BB, 0xC8F5,'R'
union all select 0xC8F6, 0xCBF9,'S'
union all select 0xCBFA, 0xCDD9,'T'
union all select 0xCDDA, 0xCEF3,'W'
union all select 0xCEF4, 0xD1B8,'X'
union all select 0xD1B9, 0xD4D0,'Y'
union all select 0xD4D1, 0xD7F9,'Z'
函数：
create function getfirstpy(@a varchar(200))
returns varchar(100)
as
begin
declare @i int,@j int,@result varchar(100)
set @result=''
set @i=len(@a)
set @j=1
while @j=@i
begin
select @result=@result+word from tabpy where cast(substring(@a,@j,1) as varbinary(2)) between b_begin and b_end
set @j=@j+1
end
return @result
end
比如说用VB 要把 李世明 三个字转成拼音LI SHI MING 拼音与拼音有空格 请高手把发个源代码给我 。谢谢Private Declare Function icePub_dictionaryCodeTransfer Lib "icePubDll.dll" (ByVal strDictionaryFilename As String,ByVal strSrc As String,ByVal strCode As String) As Integer
Dim a2 As Integer
Dim strCode As String
strCode=Space(1024)
a2=icePub_dictionaryCodeTransfer("拼音字典.txt","李世明",strCode)
MsgBox strCode
拼音字典.txt内容如下
李世明LI SHI MING
张三ZHANG SAN
下载
VB.NET中怎么实现 汉字转换拼音呢建立一个表，每个拼音都跟多个汉字对应 。可以通过汉字，找出对应的一个拼音，也可以通过拼音，找出一堆汉字 。
gb2312>unicode>utf8 ，  以及逆转的方法'>VB.net 字符转换问题 字符（汉字、数字、字母、符号）>gb2312>unicode>utf8 ，  以及逆转的方法字符编码转换吗?
1.字符与gb2312(gbkvb.net汉字拼音的子集)vb.net汉字拼音：
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编码存储vb.net汉字拼音的
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()

推荐阅读


上一篇：华硕路由器怎么看网络连接，华硕路由器怎么看cpu温度

下一篇：linux命令点亮端口，linux指定端口号启动