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

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

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

这种情况最常用的解决方法是双引号与单引号互相嵌套使用，例如：“ ‘ ’ ”

另外如果是引号为字符串的一部分，如字符串是：我的名字叫“张三”。这里引号属于字符串的一部分，那么可以用转义字符 \" 来解决。

希望能帮到你

看来你需要了解一下 转义字符 \ 。

字符串加双引号 代码：

"TestString" 这样是 TestString

"\"TestString\"" 这样就是 "TestString"

\" 就表示一个引号。

---