vb textbox控件中输入值的len值问题
例如我在text1中输入一个39873987很明显是个8位长度的一个字符串,但Len(text1.text)的值却是10,我很费解,请各位多多关注,谢谢了。我是在text...
例如我在text1中输入一个39873987很明显是个8位长度的一个字符串,但Len(text1.text)
的值却是10,我很费解,请各位多多关注,谢谢了。
我是在text1.text中直接输入一个 8位的数字的话,len(text1.text)=8 这个一点问题都没有。
你试着从Excel单元格中Copy出来一个同样的8位的数字的话(在excel中它前后是没有空格的,同时在Excel中用len函数检查也是等于8,这样一个8位数字) 粘贴到text1控件中,检查一下他的长度就与直接输入的不一样,结果len(text1.text)=10,你认为是什么原因呢!~ 展开
的值却是10,我很费解,请各位多多关注,谢谢了。
我是在text1.text中直接输入一个 8位的数字的话,len(text1.text)=8 这个一点问题都没有。
你试着从Excel单元格中Copy出来一个同样的8位的数字的话(在excel中它前后是没有空格的,同时在Excel中用len函数检查也是等于8,这样一个8位数字) 粘贴到text1控件中,检查一下他的长度就与直接输入的不一样,结果len(text1.text)=10,你认为是什么原因呢!~ 展开
1个回答
展开全部
EXCEL复制出来的话 可能在后面会多个 CHR(9)之类的 看不到的东西在里面
这种事情常发生
所以 我处理先一般处理下的
text1=Replace(text1,chr(9),"")
text1=Replace(text1,chr(13),"")
等等的
你可以写一段代码检查下到底多了什么东西
程序嘛 要不断的找出可能出现的错误 避免它
Dim i As Integer
For i = 1 To Len(Text1)
MsgBox Asc(Mid(Text1, i, 1))
Next
这种事情常发生
所以 我处理先一般处理下的
text1=Replace(text1,chr(9),"")
text1=Replace(text1,chr(13),"")
等等的
你可以写一段代码检查下到底多了什么东西
程序嘛 要不断的找出可能出现的错误 避免它
Dim i As Integer
For i = 1 To Len(Text1)
MsgBox Asc(Mid(Text1, i, 1))
Next
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询