2017-12-16
537
| Sub writefile1(ByVal filename AsString, ByVal p AsString) IfFile.Exists(filename)Then MsgBox("Файл "&filename&" ужесуществует") ExitSub EndIf Dim wf As New StreamWriter(filename) wf.WriteLine(p) 'запись строки в файл wf.Close() 'закрытие потока EndSub |
1) создается, открывается файл с именем filename.txt и происходит запись всей строки*
2) появляется окно каталогов, в котором пользователь должен найти данный файл
3) генерируется исключение FileNotFoundException
4) генерируется исключение IOException
5) открывается файл с именем filename.txt и происходит запись всей строки
В результате выполнения процедуры записи строки, при условии что файл уже существует
| Sub writefile1(ByVal filename AsString, ByVal p AsString) IfFile.Exists(filename)Then MsgBox("Файл "&filename&" ужесуществует") ExitSub EndIf DimwfAs StreamWriter= File.CreateText(filename) wf.WriteLine(p) wf.Close() EndSub |
1) создается, открывается файл с именем filename.txt и происходит запись всей строки
2) появляется окно каталогов, в котором пользователь должен найти данный файл
3) генерируется исключение FileNotFoundException
4) генерируется исключение IOException
5) выводится сообщение, что файл уже существует*
|
|
|
В результате выполнения процедуры
| Sub writefile2(ByVal filename AsString, ByVal p AsString) IfFile.Exists(filename) = FalseThen MsgBox("Файл "&filename&" несуществует") EndIf Dim wf As New StreamWriter(filename, True) wf.WriteLine(p) wf.Close() EndSub |
1) если такого файла нет, то он создается, открывается файл с именем filename.txt и происходит добавления запись в файл*
2) появляется окно каталогов, в котором пользователь должен найти данный файл
3) генерируется исключение FileNotFoundException
4) генерируется исключение IOException
5) открывается файл с именем filename.txt и происходит запись всей строки
В результате выполнения процедуры
| Sub writefile2(ByVal filename AsString, ByVal p AsString) IfFile.Exists(filename) = FalseThen MsgBox("Файл "&filename&" несуществует") EndIf Dim wf As New StreamWriter(filename, False) wf.WriteLine(p) wf.Close() EndSub |
1) если такого файла нет, то он создается, открывается файл с именем filename.txt и все содержимое файла, если он существует, стирается, и записывается вся строкав файл*
2) генерируется исключение IOException
3) если такого файла нет, то он создается, открывается файл с именем filename.txt и происходит добавления запись в файл
В результате выполнения процедуры
| Sub writefile2(ByVal filename AsString, ByVal p AsString) IfFile.Exists(filename) = FalseThen MsgBox("Файл "&filename&" несуществует") EndIf DimwfAsStreamWriter = File.AppendText(filename) wf.WriteLine(p) wf.Flush() wf.Close() EndSub |
1) если такого файла нет, то он создается, открывается файл с именем filename.txt и все содержимое файла, если он существует, стирается, и записывается вся строка в файл*
2) генерируется исключение IOException
3) если такого файла нет, то он создается, открывается файл с именем filename.txt и происходит добавления запись в файл
|
|
|
4) генерируется исключение IOException
5) открывается файл с именем filename.txt и происходит запись всей строки
