VBNet - Форум - Чтение текста из файла

Вопрос: Чтение текста из файла Добавлено: 23.06.05 08:31

Автор вопроса: Max | ICQ: 155798304

День добрый, люди!

Надо считать строку текста из файла, пишу:
============================================
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strContent As String
        Dim fileRd As StreamReader
        fileRd = File.OpenText("Testoviy.txt")
        strContent = fileRd.ReadLine()
        MsgBox(strContent, MsgBoxStyle.OKOnly, "string_max")
    End Sub
============================================
в файле текст - 1 строка:
e:\проба\test4

В результирующей строке русские буквы просто прпущены. :(
т.е. получаю
strContent = "e:\\test4"

подскажите ЧЕ я не так делаю?

Заранее благодарен,
Макс
Ответить

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

Номер ответа: 1 Автор ответа: nicolai ICQ: 197368786 Вопросов: 6 Ответов: 91	Профиль \| \| #1	Добавлено: 23.06.05 08:40
	Dim fileno As Integer Dim counter As Integer counter = 0 fileno = FreeFile Open name For Input As #fileno Do Until EOF(fileno) ReDim Preserve getvalues(counter) Line Input #fileno, getvalues(counter) counter = counter + 1 Loop Close весь текст из файла в массиве getvalues. так как у тебя 1 строка нужна то забирай getvalues(0) Ответить

Номер ответа: 2 Автор ответа: Max ICQ: 155798304 Вопросов: 7 Ответов: 6	Профиль \| \| #2	Добавлено: 23.06.05 09:55
	Спасибо, я непременно попробую. Но, если честно, мне хотелось бы разобраться, ЧТО именно я не так сделал, или ПОЧЕМУ так не будет работать. Думаю, это избавило меня в других ситуациях от проблем Ответить

Номер ответа: 3 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445	Web-сайт: hw.t-k.ru Профиль \| \| #3	Добавлено: 23.06.05 10:32
	о удась, такого кривого способа чтения уже не предлагалось давно, не в обиду сказано )) dim nf as integer dim str as string nf = freefile() open "c:\1,txt" for binary access read as nf str = space(lof(nf)) get nf, , str close nf msgbox str корротко и ясно... имхо Ответить

Номер ответа: 4 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445	Web-сайт: hw.t-k.ru Профиль \| \| #4	Добавлено: 23.06.05 10:33
	Так, стоп! какого хрена .НЕТ делает в общем форуме!? Вобщем все ответы на VB6, для того чтобы те ответили на .НЕТ надо задать вопрос в соответствующем форуме Ответить

Номер ответа: 5 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #5	Добавлено: 23.06.05 17:12
	так вроде оно и так в .НЕТ лежит, хотя может переложили уже... Ответить

Номер ответа: 6 Автор ответа: nicolai ICQ: 197368786 Вопросов: 6 Ответов: 91	Профиль \| \| #6	Добавлено: 23.06.05 17:32
	причем тут .НЕТ?, во всяком случае я отвечал на VB6 Ответить

Номер ответа: 7 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #7	Добавлено: 23.06.05 18:54
	При том что, если посмотреть на код который приведён в вопросе, то можно понять что это .нет А топик наверно изначально лежал в общем форуме, вот и некоторые ошиблись с языком отвечая на вопрос. Ещё раз подтверждает что чужие коды смотреть никто не хочет, задан вопрос - получен ответ, а на каком языке это уже третий разговор Ответить

Номер ответа: 8 Автор ответа: Max ICQ: 155798304 Вопросов: 7 Ответов: 6	Профиль \| \| #8	Добавлено: 24.06.05 06:42
	)) всем БОЛЬШОЕ СПАСИБО, война окончена! )) впредь исправлюсь и постараюсь не повторять ошибок! 0 Ответить

Номер ответа: 9 Автор ответа: nicolai ICQ: 197368786 Вопросов: 6 Ответов: 91	Профиль \| \| #9	Добавлено: 24.06.05 08:23
	м-да неудобно получилось Ответить

Страница: 1 |