Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Русские символы Добавлено: 07.04.09 10:53  

Автор вопроса:  Sergey
В VB 2008,ReadAllText не читает русские символы, подскажите, как это исправить.


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim files As String
        Dim read As String
        Dim fname As String

        TextBox3.Text = ""

   For Each files In My.Computer.FileSystem.GetFiles("c:\1\", FileIO.SearchOption.SearchTopLevelOnly)

   fname = My.Computer.FileSystem.GetName(files)

   read = My.Computer.FileSystem.ReadAllText("c:\1\" + fname)
   If InStr(1, read, TextBox2.Text, CompareMethod.Text) <> False Then
   TextBox3.Text = TextBox3.Text + fname + vbCrLf
            End If

        Next

    End Sub

Ответить

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

Номер ответа: 1
Автор ответа:
 maza_____



ICQ: 9968842 

Вопросов: 40
Ответов: 337
  Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья))
 Профиль | | #1 		Добавлено: 07.04.09 12:16
Вот так попробуй считать файл:
  1. TextBox1.Text = IO.File.ReadAllText("C:\1.txt")

Ответить

Номер ответа: 2
Автор ответа:
 Sergey



Вопросов: 39
Ответов: 87
  Профиль | | #2 Добавлено: 07.04.09 12:29
Вместо русских символов только 

Ответить

Номер ответа: 3
Автор ответа:
 Skywalker



ICQ: 300-70-6пятьЪ 

Вопросов: 62
Ответов: 545
  Web-сайт: iSkywalker.ru
 Профиль | | #3 		Добавлено: 07.04.09 16:00
на самом деле:
  1. IO.File.ReadAllText("c:\1\" + fname, System.Text.Encoding.GetEncoding(1251))

Ответить

Номер ответа: 4
Автор ответа:
 Sergey



Вопросов: 39
Ответов: 87
  Профиль | | #4 Добавлено: 07.04.09 17:03
Skywalker Спасибо, огромное за помощь!!!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам