读txt文件，用什么类？

[freedomi]

我在程序中要读一个txt文件，vb中有什么像c语言一样的fopen之类的函数可以读取中间的内容？
或者说txt内容为：
1
北京,010,100000
通县,010,101100
昌平,010,102200
怀柔,010,101400
大兴,010,102600
延庆,010,102100
顺义,010,101300
平谷,010,101200
房山,010,102400
密云,010,101500
2
天津,022,300000
宝坻,022,301800
静海,022,301600
汉沽,022,300480
塘沽,022,300450
蓟县,022,301900
武清,022,301700
宁河,022,301500
大港,022,300270
之类的，我怎么处理，可以比较方便的随时取到自己想要的内容？？
请教！
thx!

[射天狼]

你如果把ss()放在窗口中,而按钮在另外一个窗口中肯定是找不到的,如果你想所有的窗口都访问ss()数组的话应该把定义放在模块中.

[射天狼]

Dim s As String
Open "c:\aa.txt" For Input As #1

While Not EOF(1)
Input #1, s '一次读取一行
'处理s
Wend

Close #1

[射天狼]

Option Explicit

Dim s As String, ss() As String '声明一个动态数组
Dim i As Long

Open "c:\aa.txt" For Input As #1
i = 0
While Not EOF(1)
ReDim Preserve ss(i + 1)
Input #1, s
ss(i) = s '把取出的数据放到数组里,以后用的时候想取哪行就取哪行
i = i + 1
Wend

Close #1

[苍狼传说]

也可以用FSO对象呀，基于对象模型的，很方便。
就是FileSystemObject
例如：
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine ("This is a test.")
MyFile.Close

方法：
Close
Read
ReadAll
ReadLine
Skip
SkipLine
Write
WriteBlankLines
WriteLine 　
属性
AtEndOfLine
AtEndOfStream
Column
Line

[aiur2000]

写入一个数据库，要自己先建立好表，通过查询可轻易得到想要的东西

[Wang_xiaoni]

使用ODBC数据库，不需要转换，直接建立为TXT驱动的ODBC数据库，可以使用数据库查询，如果用FSO或INPUT方法查询都很麻烦

[射天狼]

写序的思想是如果能用VB的基本组件或者函数能解决的问题,最好不要用外部控件;如果不是数据库的应用系统,只是一些小的应用的话,还非得引用数据库吗,打包时还得带上一堆动态链接库,尤其是外部控件.

[hxy2003]

你把这个文件改一下成为ini文件的格式就很好读啦....
[XXX]
aa=10000
bb=32132
这种形式

[freedomi]

再问cuizm(射天狼)
我把收集到数据的那些变量，比如ss()放在所有的sub之外（我想让它成为全局变量）
我程序中的一些sub都成功使用这些全局变量
但是在一个按钮点击的sub中（Private Sub Command1_Click()），却怎么也访问不到这些全局变量？？
奇怪！你懂我 的意思了吗？请估计是什么地方出错了？
thx！～马上给分！！！