请问VB6.0如何批量修改text中的字符
例如:我的text控件的内容如下:1
6
10
20
50
如何让以上数字变为:
0001
0006
0010
0020
0050
Const 前导长度 = 4 '关键数据,指定为常量 Const 前导字符 = "0" Dim s() As String Dim i As Long s = Split(Text1.Text, vbCrLf) '拆分为每一行 For i = 0 To UBound(s) '遍类所有元素,0到最大下标 If IsNumeric(s(i)) Then '如果为数值类型 If Len(s(i)) < 前导长度 Then '如果长度小于指定长度 s(i) = String(前导长度 - Len(s(i)), 前导字符) & s(i) '增加前导字符,这里是0 End If End If Next i Text1.Text = Join(s, vbCrLf) '合并