怎样按条件删除text1窗口的局部数据

来源：百度知道 编辑：UC知道 时间：2024/09/24 12:28:23
怎样按条件删除text1窗口的局部数据，小弟不会vb请大侠帮忙编写
text1窗口有以下据
21 25 01 02 03 04 31 05 06 32 33

点comd1 删除最前面的两个数
数据变为01 02 03 04 31 05 06 32 33
点comd2 删除第7个数以后的全部数
数据变为01 02 03 04 31 05 06
点comd3 删除第5个数
数据变为01 02 03 04 05 06
注意每个数后面都有一个空格

我是直接对字符串进行操作：

Private Sub Form_Load()
Text1 = "21 25 01 02 03 04 34 05 06 32 33"
Command2.Enabled = False
Command3.Enabled = False
End Sub

Private Sub Command1_Click()
Text1.Text = Mid(Text1, 7, Len(Text1) - 6) '''mid函数取出“21 25 ”后面的数，重新赋给text1
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Text1.Text = Mid(Text1, 1, 20) '''''7个数加6个空格，长度为20
Command2.Enabled = False
Command3.Enabled = True
End Sub

Private Sub Command3_Click()
Text1.Text = Mid(Text1, 1, 11) & Mid(Text1, 15, 6)'''''不取要删除的数
End Sub