VBNet - Форум - Открытие файла в VB 2005

Вопрос: Открытие файла в VB 2005 Добавлено: 22.06.09 19:16

Автор вопроса: Тёмик

Нужно, чтобы при нажатии на кнопку появилось окно для выбора текстового файла, содержимое которого нужно вставить в переменную.

Как это сделать?
Ответить

Ответы Всего ответов: 5

Номер ответа: 1 Автор ответа: Aston ICQ: 214-179-991 Вопросов: 42 Ответов: 272	Профиль \| \| #1	Добавлено: 22.06.09 21:33
	Посмотри контрол OpenFileDialog. Ответить

Номер ответа: 2 Автор ответа: Тёмик Вопросов: 2 Ответов: 3	Профиль \| \| #2	Добавлено: 22.06.09 22:47
	Спасибо за подсказку! Зашёл на Microsoft.com, там нашёл вот такой исходный код. Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Dim myStream As Stream = Nothing Dim openFileDialog1 As New OpenFileDialog() openFileDialog1.InitialDirectory = "c:\" openFileDialog1.Filter = "txt files (*.txt)" openFileDialog1.FilterIndex = 2 openFileDialog1.RestoreDirectory = True If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then Try myStream = openFileDialog1.OpenFile() If (myStream IsNot Nothing) Then 'Если файл открылся успешно, нужно считать из него текст. Как, не знаю. End If Catch Ex As Exception MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message) Finally ' Check this again, since we need to make sure we didn't throw an exception on open. If (myStream IsNot Nothing) Then myStream.Close() End If End Try End If End Sub myStream - поток, в котором открыт файл. Как из этого фала считать текст? Ответить

Номер ответа: 3 Автор ответа: Дмитрий Юпатов Вопросов: 4 Ответов: 457	Web-сайт: cargomaster.at.ua/ Профиль \| \| #3	Добавлено: 22.06.09 23:30
	Dim path as string Dim Mytext as string If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then path=openFileDialog1.filename Mytext=system.io.file.ReadAllText(path) 'или Mytext=system.io.file(path).ReadAllText 'просто не помню точно правильный синтаксис End If Все это воткни в кнопку или еще куда там надо... Ответить

Номер ответа: 4 Автор ответа: Тёмик Вопросов: 2 Ответов: 3	Профиль \| \| #4	Добавлено: 23.06.09 00:04
	Спасибо! Всё работает! А можно ещё один вопросик задать? А если наоборот сделать. Как сохранить значение переменной Mytext в новый файл? Там вроде что-то типа saveFileDialog() писать надо. Ответить

Номер ответа: 5 Автор ответа: Дмитрий Юпатов Вопросов: 4 Ответов: 457	Web-сайт: cargomaster.at.ua/ Профиль \| \| #5	Добавлено: 23.06.09 08:23
	набираешь system.io.file , ставишь точку и смотришь предложения умника из студии Ответить

Страница: 1 |