Function F_читать()
Try
Dim чит As String
If System.IO.File.Exists("kv.dat") = False Then
Лимит.Час = 1
Else
Dim читать As New StreamReader("kv.dat", System.Text.Encoding.GetEncoding(1251))
Время.Час = читать.ReadLine
Время.Минута = читать.ReadLine
Время.Секунда = читать.ReadLine
чит = читать.ReadLine
Status = чит
Лимит.Час = читать.ReadLine
Лимит.Минута = читать.ReadLine
Лимит.Секунда = читать.ReadLine
Видео.Час = читать.ReadLine
Видео.Минута = читать.ReadLine
Видео.Секунда = читать.ReadLine
День2 = читать.ReadLine
Blok = читать.ReadLine
читать.Close()
End If
Catch ex As Exception ' обработка ошибок
Dim запись As New StreamWriter("kv.err", True)
запись.WriteLine(" -------------------------------------------------------------- ")
запись.WriteLine(ex.ToString)
запись.Close()
'как здесь закрыть читать.Close() пишет не объявлен, мне потом к файлу не обратиться
End Try
End Function
| ← Декабрь 2012 → | ||||||
|
1
|
2
|
|||||
|---|---|---|---|---|---|---|
|
3
|
4
|
5
|
6
|
7
|
8
|
9
|
|
10
|
11
|
12
|
13
|
15
|
16
|
|
|
17
|
18
|
19
|
20
|
22
|
23
|
|
|
24
|
25
|
26
|
27
|
28
|
29
|
30
|
|
31
|
||||||
Статистика
1.234 подписчиков
-1 за неделю
-1 за неделю


я к тому времени только сам прочитал об этом но с мобильного) не успел еще, но хотел, прикола ради)