Question

vb去除text1.text内容中空格后面字符串

比如说text1.text=111222 aaabbbccc
自动去除空格和aabbbccc
输出111222
text1.text内容不固定，但中间都有空格，麻烦高手解决下，小弟感激不尽

Answer 1

if instr(text1.text," ")>0 then

    text1.text=replace(text1.text," ","")

end if

追问

不行啊，显示只是去掉了空格并没有把空格后面的内容一起删掉

追答

if instr(text1.text," ")>0 then
    text1.text=split(text1.text," ")(0)
end if

Answer 2

Private Sub Command1_Click()
Dim str As String
str = "123 321"
p = InStr(str, " ")
Me.Caption = Mid(str, 1, p - 1)
End Sub

Answer 3

先自定义个函数
然后调用
function ntiqi(str)
i = len(str)
for j = 1 to i
temp = mid(str,j,1)

if temp like [0-9] then

ntiqi = ntiqi & temp
end if
next
if ntiqi <> "" then ntiqi = ntiqi * 1 ' 转化为数字格式需要就用，不用就删了
end function