Question

用VB如何把文本文件中的数字存入数值数组，请高手指点下。

如E盘的文本文件中有以下数字，每个数字两边都有两个逗号，用VB如何只读取数字，并把数字存入数值数组。
,25,
,30,
,10,
,23,
,22,
,31,
,2,
,2,
,8,
,15,
,12,
,8,
,4,
,27,
,30,
,18,

Answer 1

不要用复制，可能会出错。一个一个打上去吧。半角字符。
dim aStr() as string
dim i as integer
set fso = createobject("scripting.filesystemobject")
set myText = fso.opentextfile("E:\123.txt",1)
i = 0

do until myText.atendofstream
redim preserve astr(i)
astr(i) = replace(myText.readline,",","")

i = i +1

loop

Answer 2

Private Sub Command1_Click()
    Dim S   As String
    Dim A
    Dim Ar()    As Long
    Open "E:\123.TXT" For Binary As #1
        S = Replace(StrConv(InputB(LOF(1), 1), vbUnicode), ",", "")
    Close #1
    A = Split(S, vbCrLf)
    ReDim Ar(UBound(A))
    For I = 0 To UBOUIND(A)
        Ar(I) = A(I)
    Next
End Sub