Question

如何提取TXT文档中的数据内容？

请教高手，如何将DAT（可以以TXT文档打开）的文件打开，并将里面的内容分离出来：内容格式如下：

该如何讲数据分离到：a1,a2,a3
b1,b2,b3
……
h1,h2,h3

Answer 1

'请参考：
Private Sub Command1_Click()
fname = "D:\1.txt" '指定要读取的文件名
Open fname For Input As #1 '打开要读取的文件名
i = 0
While Not EOF(1) '读取文件直到文件的最后一行
Input #1, T '读入文件的内容
k = Split(T, ",")
i = i + 1
Select Case i
Case 1
a1 = k(0): a2 = k(1): a3 = k(2)
Case 2
b1 = k(0): b2 = b(1): b3 = k(2)
Case 3
c1 = k(0): c2 = c(1): c3 = k(2)

'等等 ......

End Select

Wend '结尾
Close #1 '关闭文件
End Sub

'像这种情况建议你使用二维数据组比较好一点。如
Private Sub Command1_Click()
ReDim a(2, 0)
fname = "D:\1.txt" '指定要读取的文件名
Open fname For Input As #1 '打开要读取的文件名
While Not EOF(1) '读取文件直到文件的最后一行
Input #1, T '读入文件的内容
k = Split(T, ",")
If UBound(k) = 2 Then
ReDim Preserve a(2, UBound(a, 2) + 1)
For i = 0 To 2
a(i, UBound(a, 2)) = k(i)
Next
End If
Wend '结尾
Close #1 '关闭文件
End Sub
'结果a(0,1),a(1,1),a(2,1)相当于a1,a2,a3
' a(0,2),a(1,2),a(2,2)相当于b1,b2,b3
' ......

Answer 2

WinAPI里有一个函数
GetPrivateProfileInt
GetPrivateProfileIString
用来获取文件内容
使用方法如下
int GetPrivateProfileInt(条目小节, char*
条目, char*
未找到该条目时的默认返回值, int
文件名); char*

解释一下
比如你有一个文件 a.XXX
内容如下:
[AAA]
BBB = 21313

如何获取这个BBB呢

int x = GetPrivateProfileInt(AAA,BBB,0,a.XXX);

这样就可以了

好吧 分类是VB 我错了...

Answer 3

拷贝文件（filecopy语句）
格式：filecopy原文件名，目标文件名
实例
Private Sub Form_Click()
FileCopy "e:\1.txt", "e:\2.txt"
End Sub