Question

vb listbox删除每行前半指定部分 例如 listbox1 aaa52135 aaa45236 处理过后 listbox2 52135 45236

例如
listbox1
aaa52135
aaa45236
处理过后
listbox2
52135
45236

Answer 1

那要看你怎么指定咯。按你上面的例子可以这样
For i = 0 To List1.ListCount - 1
List2.AddItem Replace(List1.List(i), "aaa", "")
Next
参考函数：
mid
left
right

Answer 2

Private Sub Command1_Click()
Dim n As String
For i = 0 To List1.ListCount - 1
For j = 1 To Len(List1.List(i))
If IsNumeric(Mid(List1.List(i), j, 1)) Then n = n & Mid(List1.List(i), j, 1)
Next
List2.AddItem n
n = ""
Next
End Sub