怎么用vb截取中文字符

在一个字符串变量中，有中文字符和英文字符。用什么方法可以把中文字符单独提取出来？

举报该问题

推荐答案 2012-08-15

思路：
因为西文字符采用的Ascii码的范围为：0 -- 127，所以逐个截取字符串的每一个字符，求它的Ascii码，不在范围　［0，127］之间的，均可认为是中文．

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/e7ezBvtjO.html

其他回答

第1个回答 2012-08-15

unicode,

某个字节如果是负数，即二进制最高位为1，则是双字节字符。

以此判断。

第2个回答推荐于2016-03-21

Private Sub Command1_Click()
Dim i%, s$, st$
st = "啊a"
For i = 1 To Len(st)
If Asc(Mid(st, i, 1)) < 0 Then s = s + Mid(st, i, 1)
Next i
MsgBox s
End Sub本回答被网友采纳

相似回答

VB中如何截取输入文本中的中间字符串。。答：用Mid(),left(),right()这三个函数,要知道中文在vb里也按一个字节算!但存储却是两个字节! 本回答由网友推荐举报| 答案纠错 | 评论 1 1 其他回答 mid(要截取的字符串,起点,结束) 热心网友| 发布于2013-07-07 举报| 评论 2 2 为您推荐: substring截取字符串 js截取字符串的方法 excel截取字符...

VB中mid函数是做什么的?答：VB中的Mid函数属于字符串类的函数。Mid是Visual Basic和Microsoft Excel中的一个字符串函数，作用是从一个字符串中截取出指定数量的字符。这个函数的3个参数各在VB和Excel中互相等价，但VB中的Length参数可以省略，而Excel中num_chars参数不可省略。当Start（start_num）参数小于1时，函数返回一个错误；...

VB 如何保留字符串中的中文英文数字答：可以考虑用ASC()遍历，首先要获得端点的ASC码（可以百度搜索0,9,A,z的ASC码及中文的ASC码范围，中文是负值，也可在立即窗口中键入?asc(*)，*表示0,9,A,z），用mid函数获得逐字符，用asc函数返回其ASC码，大于0的ASC码小于9及大于大写A小于小写z（中文也同样）的字符不作修改，否则用null替代 ...

VB 如何保留字符串中的中文英文数字答：'vb使用unicode ，一个字符英文和中文都用两个字节表示，低位字节在前，高位字节在后 '英文和中文用高字节是否大于大于零进行区分,for i = 1 to lenb(text1.text)- 1 step 2 s = midb(text1.text,i,2)if ascb(midb(s,2,1))> 0 then'大于零是中文 list1.additem s else list2....

vb的mid$()函数,是什么函数?答：Mid是Visual Basic和Microsoft Excel中的一个字符串函数，作用是从一个字符串中截取出指定数量的字符。VB中语法：Mid(String As Variant, Start As Long, [Length As Variant]) As Variant Mid$(String As String, Start As Long, [Length As Variant]) As String VB示例：下面的示例展示了VB中...

请问vb如何找字符串中的"答：用chr(34)代替 ?或者用两个连续的双引号 ""代替比如 a=chr(34)a="""

VB.NET 类似/u660e的字符串转换为中文答：你可以用 Encoding 对象转。先用 Encoding.Unicode 转成 Byte()，再转回 Ansi。也可以自己写代码，把/u替换为&H，再逐个用ChrW()函数取得汉字即可。

VB 怎么更改TXT编码格式和读取Txt指定字符答：VB可以通过CreateObject函数来实现打开UTF-8编码格式文本文件，将它显示于文本框中。并可通过Print # 语句将格式化显示的数据以ANSI格式写入顺序文件中。CreateObject函数，创建并返回一个对 ActiveX 对象的引用。Print # 语句，将格式化显示的数据写入顺序文件中。以下是实现代码：Private Sub Command1_Click()...

VB.net 如何获得中文字符串的长度?答：用ascw 函数也可以 private function LenC( ps as string ) as Integer Dim n As Integer Dim StrLen As Integer For n = 1 To Len(Text1.Text)If Ascw(Mid(Text1.Text, n, 1)) >256 Then StrLen = StrLen + 2 Else StrLen = StrLen + 1 Next n return strLen end function ...

大家正在搜

vb字符串截取字符函数 vb删除字符串中的指定字符 vb中截取特定的字符串 vb中截取字符串函数 vb查找字符串指定字符 vb中字符串什么意思 vb截取指定位置字符串 vb截取字符串最后一个 vb字符串截取代码