vb.net中文分词 vbnet字典类型

VB.NET 如何将"\u5E93\u59C6"转为汉字

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MsgBox(unicode2hz("\u59C6"))

End Sub

Function unicode2hz(ByVal uni As String) As String

uni = uni.Replace("\u", "")

Dim arr(1) As Byte

arr(1) = Convert.ToByte(Convert.ToInt16(uni.Substring(0, 2), 16))

arr(0) = Convert.ToByte(Convert.ToInt16(uni.Substring(2), 16))

unicode2hz = System.Text.Encoding.Unicode.GetString(arr)

End Function

相关问答

Q1: vb.net怎么做中文语音识别程序

这就要调用API函数vb.net中文分词了

给vb.net中文分词你代码吧

记得给点分啊

Private

Const

KeysM

=

H8000

Private

Declare

Function

GetAsyncKeyState

Lib

"user32"

(ByVal

vKey

As

Long)

As

Integer

Private

Sub

TextBox1_KeyDown(ByVal

sender

As

Object,

ByVal

e

As

System.Windows.Forms.KeyEventArgs)

Handles

TextBox1.KeyDown

Me.Text

=

e.KeyValue

If

e.KeyValue

=

Keys.ShiftKey

And

GetAsyncKeyState(160)

And

KeysM

Then

MsgBox("你按vb.net中文分词的是左SHIFT")

ElseIf

e.KeyValue

=

Keys.ShiftKey

And

GetAsyncKeyState(161)

And

KeysM

Then

MsgBox("你按vb.net中文分词的是右SHIFT")

End

If

End

Sub

Q2: vb.net 2008 如何将简体中文跟繁体中文互转呢？

原来还有这么个功能，那有没有转换为拼音的方法？

我比你运气好，两个都有效：

Public Class Form1

    Private Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal Locale As Integer, ByVal dwMapFlags As Integer, ByVal lpSrcStr As String, ByVal cchSrc As Integer, ByVal lpDestStr As String, ByVal cchDest As Integer) As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim cString As String = "中华人民共和国"

        cString = (StrConv(cString, VbStrConv.TraditionalChinese))

        MsgBox(cString)

        cString = (StrConv(cString, VbStrConv.SimplifiedChinese))

        MsgBox(cString)

        Dim rString As String = Space(14)

        LCMapString(H804, H4000000, cString, 14, rString, 14)

        MsgBox(rString)

        cString = rString

        LCMapString(H804, H2000000, cString, 14, rString, 14)

        MsgBox(rString)

    End Sub

End Class

StrConv参数不对，api 函数Long型要改为Integer类型。

Q3: 如何用vb.net将汉字转换成拼音阿

public string hz2py(string hz) //获得汉字的区位码

{

byte[] sarr = System.Text.Encoding.Default.GetBytes(hz);

int len = sarr.Length;

if (len1)

{

byte[] array = new byte[2];

array = System.Text.Encoding.Default.GetBytes(hz);

int i1 = (short)(array[0] - '\0');

int i2 = (short)(array[1] - '\0');

//unicode解码方式下的汉字码

// array = System.Text.Encoding.Unicode.GetBytes(hz);

// int i1 = (short)(array[0] - '\0');

// int i2 = (short)(array[1] - '\0');

// int t1 = Convert.ToInt32(i1,16);

// int t2 = Convert.ToInt32(i2,16);

int tmp=i1*256+i2;

string getpychar="*";//找不到拼音码的用*补位

if(tmp=45217tmp=45252){getpychar= "A";}

else if(tmp=45253tmp=45760){getpychar= "B";}

else if(tmp=47761tmp=46317){getpychar= "C";}

else if(tmp=46318tmp=46825){getpychar= "D";}

else if(tmp=46826tmp=47009){getpychar= "E";}

else if(tmp=47010tmp=47296){getpychar= "F";}

else if(tmp=47297tmp=47613){getpychar= "G";}

else if(tmp=47614tmp=48118){getpychar= "H";}

else if(tmp=48119tmp=49061){getpychar= "J";}

else if(tmp=49062tmp=49323){getpychar= "K";}

else if(tmp=49324tmp=49895){getpychar= "L";}

else if(tmp=49896tmp=50370){getpychar= "M";}

else if(tmp=50371tmp=50613){getpychar= "N";}

else if(tmp=50614tmp=50621){getpychar= "O";}

else if(tmp=50622tmp=50905){getpychar= "P";}

else if(tmp=50906tmp=51386){getpychar= "Q";}

else if(tmp=51387tmp=51445){getpychar= "R";}

else if(tmp=51446tmp=52217){getpychar= "S";}

else if(tmp=52218tmp=52697){getpychar= "T";}

else if(tmp=52698tmp=52979){getpychar= "W";}

else if(tmp=52980tmp=53640){getpychar= "X";}

else if(tmp=53689tmp=54480){getpychar= "Y";}

else if(tmp=54481tmp=55289){getpychar= "Z";}

return getpychar;

}

else

{

return hz;

}

}

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

Q4: vb.net 中 \uxxxx这类的编码实现转换成中文

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim S1 As String

Dim S2 As String

Dim S3 As String

Dim I1 As String

S1 = "\u652f\u4ed8\u5b9d"

S1 = Trim(S1)

Do While Len(S1) 1

I1 = InStr(1, S1, "\u")

If I1 0 Then

S3 = S3 Strings.Left(S1, I1 - 1)

S2 = "H" Mid(S1, I1 + 2, 4)

S2 = ChrW(S2)

S3 = S3 S2

S1 = Strings.Right(S1, Len(S1) - I1 - 5)

Else

S3 = S3 S1

S1 = ""

End If

Loop

MsgBox(S3)

End Sub

Q5: vb和vb.net是一样的吗？有什么不同？

1、从OOP概念上讲vb.net中文分词，VB不是一个真正的面对对象的语言，他不支持继承等一些面对对象的特性，而VB.net是一个面对对象的语言，支持这些特性

2、VB和VB.net都可以用来网络编程的，这点可以肯定，两者都有这个功能

VB是通过控件进行网络编程，而VB.net可以通过VB的控件，也可以是用.net框架提供的system.net命名空间下的所有的类

3、正确理解VB.net中的.net，.NET 是微软推出的一种新的编程思想和模式，对于网络提出了一个新的概念（当然功能有了很大的革新），微软在.net 框架中规定了通用语言规范，只要符合这个规范，都可以利用.net强大的功能来完成任务，比如delphi.net ,他是.net和通用语言规范结合的产物，.net 框架提供了好多功能，简单列出一些命名空间

System 包含所有的数据类型和...

System.IO包含Windows文件，数据流的访问操作和...

System.Net包含网络有关的各种协议TCP,UDP等等和...

System.Text包含字有关的，比如经典正则表达式

System.Data包含访问数据的所有的类

System.Web包含Web有关的，比如Web Services的新概念

System.Drawing包含GDI+的所有功能，可以绘制图形

System......等等

当然还包括Microsoft.VisualBasic等微软产品的系列的命名空间

这些命名空间可以用于所有.net的应用程序，比如可以用System.Drawing包含GDI+的所有功能来Web上动态的设计图表

而实现它就可以用VB.net的语言

4、可以宽泛的来解释就是vb.net中文分词：VB.net=VB（OOP）+.net

5、VB.net的运行方式和VB不同，比如VB就是通过一个DLL动态链接库文件来编译的，而VB.net是先生称MSIL（微软中间语言）代码，然后通过通用语言运行时，将MSIL继续编译生成更好更高效的代码。这位朋友可以试着用一下.net下的vbc.exe编译工具，写个小程序编译下试试

6、两者语法相同，但有少许差异，VB.net的运算符和一些错误处理机制多了一些

7、VB和VB.net最擅长用于快速开发，不需要太过于考虑性能的快速开发，但是VB.net和其他语言的功能天生是相等的，现在的VB.net用于Web应用程序，WinForm应用程序开发的情况就比较多，而其他应用vb.net中文分词我不是很了解或一时想不出来，我有个朋友就是用.net做嵌入式开发的，但他们公司也用.net 做3G开发

8、狗屁六级的vrhero，“VB.NET也是VB”还在这儿放这么多废屁，这样的人就是没事找抽型 把你的6个问题也给解释一下，1、smalltalk是纯粹的OOP语言，Java %90的OOP，VB不支持OOP的特性，所以不完全是，够明白了吧2、完全不知所云---我写的这些不是拷过来的，不能说我不知所云3、我只是把我经常用到的命名空间告诉这位朋友不为过4、误人子弟，屁话5、屁话6、笔误，是我的错7、你用VC++开发web给我看看，相比VB.net和C#看看那个快，各种语言都各有所长，不是我说的，微软.net系列清华出版的这么多书，那本不都有说明吗？你补充的那几句，学过.net的人都知道，没有实用价值。

“除了语法和使用习惯的继承，VB 6.0之前的版本和VB 7.0之后的版本完全没有联系，几乎没有相同之处，两种不同体系的语言”和“VB.NET也是VB ”这种自相矛盾的话，就认为这位高级经理是大脑发热，笔误吧！

vb.net中文分词的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet字典类型、vb.net中文分词的信息别忘了在本站进行查找喔。