Question

vb有没有一种方法，可以删掉text1里规定位置的数字？

有没有一种方法，可以删掉text1里规定位置的数字？
比如说，
12 12 12 12 12 12 123456 12 12 12 12 12 12
怎么删掉123456
在线等，谢谢各位大哥

Answer 1

dim s,i,c
s=text1.text
s=left(s,i-1) & right(s,len(s)-i-c)
text1.text=s

i你设置的位置，C你设置的长度。

Answer 2

Text1.Text = Replace(Text1.Text, "123456", VBNullString)

Answer 3

Private Sub Form_Click()
a = Split(Text1, ",")
For i = LBound(a) To UBound(a)
b = Split(a(i), ".")
If a(i) > 100 Or a(i) < 0 Or a(i) - b(0) <> 0 Then
Else
s = s & a(i) & ","
End If
Next
Text1 = s
End Sub