VBNet - Форум - StreamReader

Вопрос: StreamReader Добавлено: 24.06.07 20:22

Автор вопроса: DRONGO | ICQ: 177606798

Sub wordpass() 'читаем данные в глобалный массив.

        Dim t As StreamReader = File.OpenText("d:\soz.txt")

        While Not t.EndOfStream

            ReDim Preserve mass_fr(n)
            mass_fr(n) = t.ReadLine

            ReDim Preserve mass_az(n)
            mass_az(n) = t.ReadLine

            n += 1

        End While

        t.Close()

помогите мне пожалуйста как я могу здес использовать в место
Dim t As StreamReader = File.OpenText("d:\soz.txt")

Dim t As StreamReader = File.OpenText(My.Resources.soz.txt)
Ответить

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

Номер ответа: 1 Автор ответа: dNW Вопросов: 30 Ответов: 683	Профиль \| \| #1	Добавлено: 25.06.07 11:54
	Так не получится. В данном случае ресурс soz.txt - это уже взятая из текстового файла строка типа String. Чтобы поместить ее в массив тебе придется разбивать ее с помощью функции Split. Умеешь ей пользоваться? Ответить

Номер ответа: 2 Автор ответа: BG(Алексей) Вопросов: 26 Ответов: 295	Профиль \| \| #2	Добавлено: 26.06.07 02:32
	Я думаю, что тебе нужно ввести файл с ноля, сделать в твоей проге Save и Open, и дальше работать с етим файлом. Делаешь так: С начала записываешь Файл, в дерикторию твоей проги: Public Function Create_Path(ByVal FileName As String) As String Return Path.Combine(Application.StartupPath, FileName) End Function Потом читаешь: [CODE]Public Function Open(ByVal fileName As String, ByRef Obj As Object) As Object '--------Deserialize-------------------------------------- Dim FS As New FileStream(fileName, FileMode.OpenOrCreate, FileAccess.ReadWrite, FileShare.ReadWrite) Dim BF As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter Try Obj = Nothing Obj = BF.Deserialize(FS) FS.Close() If IsArray(Obj) Then CurrentRecord = Obj.GetUpperBound(1) Catch ex As Exception FS.Close() End Try Return Obj End Function[CODE] Твой файл хранится в твоём же проэкте и если ты компилируеш проект, ты его добавишь. Cпасибо не мне, а Nord777 с Форума http://bbs.vbstreets.ru/viewforum.php?f=2&sid=bbd871b6b875a0c80b6e1881c9c318ea Будут вопросы , Говори. Ответить

Номер ответа: 3 Автор ответа: BG(Алексей) Вопросов: 26 Ответов: 295	Профиль \| \| #3	Добавлено: 26.06.07 02:34
	Я извеняюсь, напихал из своей проги. Если что-то не понятно говори. Ответить

Номер ответа: 4 Автор ответа: DRONGO ICQ: 177606798 Вопросов: 17 Ответов: 14	Профиль \| \| #4	Добавлено: 26.06.07 11:30
	дело в том что я нашел как разрешит эту проблему...с помощю [/code] Dim t As New StringReader(My.Resources.soz) While true ReDim Preserve mass_fr(n) mass_fr(n) = t.ReadLine ReDim Preserve mass_az(n) mass_az(n) = t.ReadLine if mass_fr<>0 or mass_az<>0 then exit while end if n += 1 End While t.Close() а вот новая проблема [code] dim sw As New StringWriter(My.Resources.soz) sw.WriteLine(main.yenisozTextBox1.Text) sw.WriteLine(main.yenisozTextBox2.Text) main.yenisozTextBox1.Text = "" main.yenisozTextBox2.Text = "" sw.Flush() sw.Close() выводит ошибку Unable to cast object of type 'System.String' to type 'System.IFormatProvider'. Ответить

Номер ответа: 5 Автор ответа: dNW Вопросов: 30 Ответов: 683	Профиль \| \| #5	Добавлено: 26.06.07 14:47
	Нельзя писать внутрь файла-ресурса ReadOnly Ответить

Страница: 1 |