主题：碰到一个乱码的问题( 跟复制黏贴有关系)

现在实行新旧系统对接,将老系统的数据全部导入到我现在写的系统内.发现了一个变态的问题,我这边输入的电话号码,再次输入就会报警已经录入.

正则处理，把非数值的字符删除。

 

Dim str As String = chr(11) & "123abc你我他"
msgbox(str)
str = System.Text.RegularExpressions.Regex.replace(str, "[^0-9]", "")
msgbox(str)

或者，你可以直接读取字符的编码，如

 

Dim str = ClipBoard.GetText
For Each s As String In str
    output.show(s & " " & asc(s))
Next

老大,现在不是我这边复制黏贴的问题,应该上面的正则有用.我过会试试

 

你复制有错的数据，然后再在命令窗口测试，看特殊编码是什么。