VB 将数字象WORD打印指定页一样“吸”出来

显示全部楼层 · 2011-6-20 15:19:27

有：Text3="231,56.54,145,185.785......"，都是数字，无小数点，其中用“,”、“.”分隔。
想要的代码是：将其中的数字，即231、56、54等都“吸”出来，放在A(i)中。这代码难度太大，本人无法完成，请专家帮忙。谢谢
加个条件：A(i)<=LABEL5
为什么全没有代码呢？

千问 · 2011-6-20 15:19:27

Private Sub Command1_Click()Dim tmp As String, tmp1() As Stringtmp = Replace(Replace(Replace(Text3, ".", " "), ",", " "), "、", " ")tmp1 = Split(tmp)Dim A() As Integer, i As IntegerReDim A(1 To 1)For Each x In tmp1
If x <= Val(Label5) Then
i = i + 1
ReDim Preserve A(1 To i)
A(i) = x...

千问 · 2011-6-20 15:19:27

问题补充：这个只是VB的作业啊 2周要完成的满意会追加的拜托了啊!!! 才5分. I do not know! 你的要求太高了，可以与 Word 一比...

千问 · 2011-6-20 15:19:27

直接用split...

千问 · 2011-6-20 15:19:27

使用for 和 mid进行判断提取就OK了啊。...

千问 · 2011-6-20 15:19:27

思路：先替换掉逗号或小数点然后split...