Иллюстрированный самоучитель по VB.NET

отказы в получении виз для Великобритании | опасности на кипре

TextReader, TextWriter и производные классы - часть 3


Как упоминалось выше, перед вызовом Cl ose в строке 16 сначала необходимо убедиться в том, что поток был успешно создан. Также обратите внимание на то, как в строке 14 к инициируемому исключению добавляется содержательное сообщение. В реальной программе следовало бы определить новый класс исключения (за подробностями обращайтесь к главе 7).

1 Sub DisplayTextFile(ByVal fName As String)

2 Dim myFile As FileStream

3 Dim textFile As StreamReader

4 Dim stuff As String

5 Try

6 myFile = New FileStream(fName.FileMode.Open, FileAccess.Read)

7 textFile = New StreamReader(myFile)

8 stuff = textFile.ReadLine()

9 Do Until stuff Is Nothing

10 Console.WriteLine(stuff)

11 stuff = textFile.ReadLine()

12 Loop

13 Catch e As Exception

14 Throw New Exception("If the file existed.it was closed")

15 Finally

16 If Not (myFile Is Nothing)Then myFile.Close()

17 End Try

18 End Sub

19 End Module

В общем случае отдельные строки файла можно сохранить в динамическом массиве ArrayList (если, конечно, количество строк относительно невелико). Для этого достаточно внести минимальные изменения в предыдущую программу. В заголовок процедуры добавляется новый параметр:

Sub DisplayTextFile(ByVal fName As String,ByVal where As ArrayList)

Строка 10 приводится к следующему виду:

where, Add(stuff)




- Начало -  - Назад -  - Вперед -