Word Document Properties

Chapter 10: Working with Disk Files
16_046500 ch10.qxp 12/5/06 5:36 PM Page 235

---

Listing 10-3
(continued)
‘ Exit the sub if not successful.
Exit Sub
End If
‘ Read the file into the dictionaries.
While Not TheConfig.AtEndOfStream
‘ Read the data element.
DataElement = TheConfig.ReadLine
Select Case DataElement
‘ Set the selector for AppConfig.
Case “[AppConfig]”
Set Selector = AppConfig
‘ Set the selector for UserSetting.
Case “[UserSetting]”
Set Selector = UserSetting
‘ Fill the selected dictionary with data.
Case Else
Index = InStr(1, DataElement, “=”)
Selector.Add Left(DataElement, Index - 1),
_
Mid(DataElement, Index + 1)
End Select
Wend
‘ Close the configuration file.
TheConfig.Close
End Sub
The code begins by creating the two 
Dictionary
objects that you need in
order to hold the information. It also creates a special 
Dictionary
object
named 
Selector
and a few variables that it needs in order to parse the file
content.
The program begins by opening the configuration file and creating the
TextStream
by using the 
OpenReadConfig
function. This function is very
similar to the beginning code for the example in the earlier “Reading from the
file” section. When the function returns, it’s 
True
if it opened the file. If the
return value is 
False
, the 
ReadDictionary
sub-procedure exits because
there’s no file information to parse.
Notice how this example uses the 
AtEndOfStream
property. This use is
more common than the use shown in the earlier “Reading from the file” sec-
tion. The 
While...Wend
loop continues reading data until there’s no more
236