VBNET里string找出里面找出汉字,并加上双引号

可以根据字符的ASCII编码来进行判断，ASCII的编码值为：0-127，可以把0-127以外的编码的字符作为汉字。

创新互联是一家专业提供泽普企业网站建设,专注与成都做网站、网站建设、外贸营销网站建设、H5网站设计、小程序制作等业务。10年已为泽普众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。

Dim a As String

Dim S As Integer    '保存汉字的开始位置

Dim E As Integer    '保存汉字的结束位置

Dim i As Integer

Dim b As String

S = 0

E = 0

a = "4651让各位serg6546.,serg6546"

For i = 1 To Len(a)

If Asc(Mid(a, i, 1)) = 0 And Asc(Mid(a, i, 1)) = 127 Then

'这个是非汉字字符

If S = 0 Then

'还没有找到汉字的开始位置

'不做任何处理

Else

'已经找到汉字的开始位置

'那么现在这个是汉字的结束位置

'保存汉字的结束位置，然后结束循环

E = i - 1

Exit For

End If

Else

'这个是汉字字符

'如果还没有保存汉字开始位置，

'那么这个就是汉字的开始位置，保存下来

If S = 0 Then

S = i

End If

End If

Next i

'现在知道了S中是汉字的开始位置，

'E中是汉字的结束位置

'现在把原来的字符串分成三段，然后加上双引号

b = Left(a, S - 1)  """"  Mid(a, S, E - S + 1)  """"  Mid(a, E + 1)

'看看结果

MsgBox b

vb中，如何判断一个字符串是汉字还是英文

你可以用mid截取单个字符并用ASCII码判断：

n=asc(mid(str1,i,1))

if n0 and n255 then

'英文字母

else

'中文

end if

整个字符串你可以循环判断。

这是一个比较粗糙的范围，更加精准的判断：33-126为可打印的（即可显示的）英文字符，97-122为英文字母（小写），你可以根据字符串的实际内容来采用判断依据；负数是汉字（其实是最高位为1，VB识别为负数，转换成16进制就可以看到正确的编码了）

vb.net 如何统计一串文本的汉字和非汉字的数量？

用循环加MID函数，取出每一个字符，看它的ASCII码，0的是汉字，0的是非汉字。

vb 判断汉字

Function isLetter(letter As String) As String

If Asc(letter) 0 Then

’Ascii码小于0的为汉字区，但其中有的是全角字符而不完全是汉字，需要进一步区分

gbascii = AscB(StrConv(letter, vbFromUnicode))

'MsgBox gbascii

'区位码在16区之后的为汉字[16区以前的　是全角字符]

If gbascii - 160 15 Then

isLetter = "是汉字"

Else

isLetter = "是全角符号"

End If

Else

isLetter = "是半角英文或数字"

End If

End Function

.................张志晨：我想这个比较简单，符合你的意愿。

vb.net怎么判断一个字符串中是否包含汉字

str = "hello,everybody. " 返回false，位置0。（不含汉字和汉语标点符号）

str = "hello,ererybody。 " 返回false，位置16。（最后一个句号是汉语标点符号）

先谢过大家了！

vb 中怎样判断输入的字符是否是汉字

0ascii255

我来补充一下代码吧,在form中加入一个Text1

Private Sub Text1_Change()

If Text1.Text = "" Then Exit Sub '如果是空字符串,就退出此过程

Dim a

a = Asc(Mid(Text1.Text, Len(Text1.Text), 1))

If a 255 Or a 0 Then MsgBox "刚才输入的是汉字" Else MsgBox "刚输入的是字符"

End Sub

这是靠ASCII码来判断的,你根据你的程序需要进行修改吧,这是对输入框约束输入的比较常用的方法之一,你可以去搜索一下英文字符ASCII码表.

当前名称：vb.net怎么判断汉字,vb判断字符串是否包含汉字
网站网址：http://kswjz.com/article/phgjoe.html