文件的操作............

Question

如何实现从一个名为aa的文本文件里读取类似:
"2003-06-03","15:06:45", 3,"1","750 Pump Capper","Capbite"(这是一行)
的数据资料了,将每段(都是用逗号隔开的)的数据取出放到一个变量呢
还有一个问题,如何实现遍历整个文件夹,因为我的文件夹有很多类似的文件

Answer 1

用Split涵数
 Dim str1,strs() As String
 str1="aaa,bbb"
 strs() = Split(str1, ",")

Answer 2

Split函数
  描述返回一个下标从零开始的一维数组，它包含指定数目的子字符串。语法Split(expression[, delimiter[, count[, compare]]])Split函数语法有如下几部分：部分 描述 
expression 必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。 
delimiter 可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression字符串。 
count 可选的。要返回的子字符串数，–1表示返回所有的子字符串。 
compare 可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。 

Answer 3

遍历整个文件夹,可以用File控件
dim i as integer
File1.path = "c:/"
File1.Pattern = "*.*"
For I = 0 To File1.ListCount - 1
debug.print File1.List(I)
next

Answer 4

Private Sub Form_Load()
Dim strTmp As String, strArray() As StringOpen "C:\aa.txt" For Input As #1
Do While Not EOF(1)
    'Debug.Print Input(LOF(1), #1)
    strTmp = Input(LOF(1), #1)
LoopClose #1End Sub