| Вопрос: Помогите... Ща умру. VB .net | Добавлено: 27.05.03 02:58 |
Автор вопроса:  thelost
|
|
Помогите горе програмисту... Плиз... Дело в том, что мне в универ надо принести прогу по интерфейсам.... На с++ писать долго... смысл именно в оформлении. Я подумал подойдет прога типа Блокнот... Тут я вспомнил, как еще в школе работал в ВБ-6, установил .net, все оформил,!НО! понял, что не знаю как сделать открытие и сохранение файла!!!!!!!!! Помогите! Я в отчаянии... Срок сдачи: осталось 3 дня, а я 20 минут свободных с трудом найти могу... сессия. Что есть: + OpenFileDialog1 + SaveFileDialog1 + TextBox1 ну и 2-е функции: 1. для открытия _________________________________________________________________________________ Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click OpenFileDialog1.Filter = "Текстовые файлы (*.txt;*.ini)|*.txt;*.ini|HTML Документы (*.htm;*.html)|*.htm;*.html|Все файлы (*.*)|*.*" OpenFileDialog1.ShowDialog() If OpenFileDialog1.FileName <> "" Then MessageBox.Show("Вы выбрали файл " & OpenFileDialog1.FileName) If a_test = 1 Then Active_Test() openfile() Else MessageBox.Show("Вы не выбрали файл") End If End Sub _________________________________________________________________________ 2. для сохранения _________________________________________________________________________ Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click SaveFileDialog1.InitialDirectory = Application.StartupPath SaveFileDialog1.Filter = "Текстовые файлы (*.txt)|*.txt" SaveFileDialog1.FileName = "NoName" SaveFileDialog1.ShowDialog() If SaveFileDialog1.FileName <> "" Then MessageBox.Show("Вы выбрали файл " & SaveFileDialog1.FileName) Else MessageBox.Show("Вы не выбрали файл") End If End Sub __________________________________________________________________________ Как видите, все почти готово... Буду крайне признателен за помощь.... ________________________________________ thelost@pisem.net |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #1 | Добавлено: 27.05.03 07:03 |
| Для чтения/записи файлов юзай объекты из пространства имён System.IO: FileStream, StreamReader и StreamWriter. | ||
|
Номер ответа: 2 Автор ответа:  thelost Вопросов: 2 Ответов: 3 |
Профиль | | #2 | Добавлено: 27.05.03 12:43 |
|
Ну если я бы знал как их юзать... я б вопросы не задавал. Все познается на примерах, а даже их у меня нет... |
||
|
Номер ответа: 3 Автор ответа: Creator Вопросов: 11 Ответов: 61 |
Профиль | | #3 | Добавлено: 27.05.03 12:54 |
|
Запись Dim _FileDialog As New SaveFileDialog() _FileDialog.Filter = XML_FILE_FILTER _FileDialog.FilterIndex = 1 If _FileDialog.ShowDialog() = DialogResult.OK Then 'Обработка_FileDialog = Nothing Открытие так же только Dim _FileDialog As New OpenFileDialog()
|
||
Да уж, просто всё 
.......|
Номер ответа: 4 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #4 | Добавлено: 27.05.03 15:18 |
|
Ну расскажу про чтение... Сначала создаём объект FileStream Dim fs As New IO.FileStream("c:\путь\имя файла", IO.FileMode.Open, IO.FileAccess.Read) Дальше создаём StreamReader Dim sr As New IO.StreamReader(fs, System.Text.Encoding.GetEncoding(1251)) Обрати внимание, вторым параметром мы указываем, что читаем файл в кодировке Windows-1251, то есть родную виндовскую кирилицу. Дальше читаем файл в строковую переменную. Dim str As String str = sr.ReadToEnd() Закрываем объекты. sr.Close fs.Close
Аналогично запись. Сначала создаёшь FileStream, потом StreamWriter. Затем пишешь в StreamWriter инфу. |
||
|
Номер ответа: 5 Автор ответа:  thelostВопросов: 2 Ответов: 3 |
Профиль | | #5 | Добавлено: 27.05.03 18:28 |
|
Аналогично это, как? Допустим начну так (по аналогии): _______________________________________________ Dim fs As New IO.FileStream(SaveFileDialog1.FileName, IO.FileMode.Create, IO.FileAccess.Write) Dim sr As New IO.StreamWriter(fs, System.Text.Encoding.GetEncoding(1251)) _______________________________________________ А как инфу записать в StreamWriter, то? зы: понимаю смешно, но после с++, VB .net мне понять еще сложнее, чем наоборот. |
||
|
Номер ответа: 6 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #6 | Добавлено: 28.05.03 08:57 |
|
sr.Write (текст) Уж можно было заглянуть в Object Browser или в MSDN и глянуть методы StreamWriter'а! |
||
|
Номер ответа: 7 Автор ответа: thelostВопросов: 2 Ответов: 3 |
Профиль | | #7 | Добавлено: 28.05.03 18:03 |
|
Просто: Спасибо! |
||
Страница: 1 |