怎么实现读取文件内容

[rimancool]

文件：a.txt
内容：1000 a
1100 aa
2000 b
两列分别读入两个数组中

[mingtian2008]

你是说打开文件吗? 然后读去他到一个 数组中的是吗/
用打开 顺序文件的方式。

[lzywj998]

这样做吧：
dim FileSystemObject,TextStream as Object
dim aryfile() as string
dim strtemp as string
dim intCount as integer
dim datal() as integer
dim data2() as string

set FileSystemObject = createObject("Scripting.FileSystemObject")
set TextStream = fileSystemobject.openTextFile("C:\a.txt")
do while not textstream.AtEndOfStream<> true
strTemp = TextStream.ReadLine
intCount = intCount + 1
ReDim Preserve aryFile(0 To intCount - 1)
aryFile(intCount - 1) = Trim(strTemp)
Loop
TextStream.Close

for i = 0 to intCount -1 step 2
....
next i
for i = 1 to intCount step 2
....
next i

[lyjlee]

Private Sub Form_Load()
Dim strTmp As String, strArray() As String, F(10) As Integer, C(10) As String
Dim i As Integer
Open "C:\aa.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strTmp
strArray() = Split(strTmp, " ")
F(i) = strArray(0)
C(i) = strArray(1)

Debug.Print F(i) & vbTab & C(i)
i = i + 1
Loop

Close #1

End Sub

[lzywj998]

用这个也可以：
object.Read(characters)

characters: Required. Number of characters you want to read from the file. （读入的字符数）

[taosihai1only]

dim FileSystemObject,TextStream as Object
dim aryfile() as string
dim strtemp as string
dim intCount as integer
dim datal() as integer
dim data2() as string

set FileSystemObject = createObject("Scripting.FileSystemObject")
set TextStream = fileSystemobject.openTextFile("C:\a.txt")
do while not textstream.AtEndOfStream<> true
strTemp = TextStream.ReadLine
intCount = intCount + 1
ReDim Preserve aryFile(0 To intCount - 1)
aryFile(intCount - 1) = Trim(strTemp)
Loop
TextStream.Close

for i = 0 to intCount -1 step 2
....
next i
for i = 1 to intCount step 2
....
next i

[mmcgzs]

什么意思,不明白
一个数组不行吗?

[rimancool]

比如data1[]中是1000，1100，2000；data2[]中是a,aa,b
没行是一个空格分开两个数据