如何从文档中读取我所要的数据？？？我用的是filesystemobject

用ini文件较易实现
[a1]
 aaa= aaaabbbb
[a2]
 bbb=bbbccc
------------------
Private Declare Function GetPrivateProfileString Lib "kernel32"  _
   Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
   ByVal lpKeyName As Any, ByVal lpDefault As String,  _
   ByVal lpReturnedString As String, ByVal nSize As Long, _
   ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32"  _
   Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
   ByVal lpKeyName As Any, ByVal lpString As Any, _
   ByVal lpFileName As String) As Long
Dim buff As String
buff = String(255, 0)
ret = GetPrivateProfileString("a1", "aaa", "text1", buff, 256, "c:\aa.ini")若aa.ini [a1]中无aaa值，则采用叁数三的值