powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как перекодировать файл в UTF8
13 сообщений из 13, страница 1 из 1
Как перекодировать файл в UTF8
    #35927021
Есть исходных файл XML в хз какой кодировке. VB его считывать с помощью XML DOM категорически отказывается, не видит данных.
При этом, если пересохранить этот же файл через Notepad в UTF8 все прекрасно читается.
Вопрос:
Как прочитать файл целиком (в виде текстового) и сохранить в кодировке UTF8, чтобы потом скормить XML DOM
strConv не помогает.
...
Рейтинг: 0 / 0
Как перекодировать файл в UTF8
    #35927451
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Как перекодировать файл в UTF8
    #35928003
Не помогает. Не поддерживает UTF8. Только cp866, cp1251. koi8-r, iso8859-5, mac
Хотя програмулина полезная. Спасибо. С ее помощью удалось вычислить что исходная кодировка XML-ки таки cp2151.
Таким образом задача конкретизировалась. Необходимо перекодировать XML-ку из cp2151 в UTF8 как обычный тексовый файл.
...
Рейтинг: 0 / 0
Как перекодировать файл в UTF8
    #35928010
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
штирлицем пробовал?
...
Рейтинг: 0 / 0
Как перекодировать файл в UTF8
    #35928380
Штирлицем пробовал. Однако, Штирлиц - не выход.
Перекодировка должна происходить автоматически, при чтении XML-ки в программу. То есть, средствами VB. Ибо файлов XML много, и перекодировать их все руками - не выход.
...
Рейтинг: 0 / 0
Как перекодировать файл в UTF8
    #35929935
piterblinov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
        Dim v As System.Windows.Forms.DialogResult = OFD.ShowDialog
        Dim sr As IO.StreamReader
        If v = Windows.Forms.DialogResult.OK Then
            nF = OFD.FileName
            Dim en As System.Text.Encoding
            en = Encoding.UTF8
            sr = My.Computer.FileSystem.OpenTextFileReader(nF, en)
            Dim sw As IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(nF & "-8", False)
Гыы в VB.NET далее читаешь и пишешь.
...
Рейтинг: 0 / 0
Как перекодировать файл в UTF8
    #35930413
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ADODB.Stream
...
Рейтинг: 0 / 0
Как перекодировать файл в UTF8
    #35931152
Самое смешное что пробовал и его.
Avira Antivir кусок кода с ним приняла за вирус и заблокировала проект :)
Вот этот кусок
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
   Dim adoStream As adodb.Stream
   Dim adoStreamOut As adodb.Stream
       Set adoStream = New adodb.Stream
       adoStream.Charset = "Windows-1251"
       adoStream.Open
       adoStream.LoadFromFile XMLFilePath
       adoStream.Position =  0 
       Set adoStreamOut = New adodb.Stream
       adoStreamOut.Charset = "UTF-8"
       adoStreamOut.Open
       adoStreamOut.WriteText adoStream.ReadText
       adoStreamOut.SaveToFile App.Path & "\out.xml", adSaveCreateOverWrite
       adoStreamOut.Close'
...
Рейтинг: 0 / 0
Как перекодировать файл в UTF8
    #35936438
Проблема решилась путем подключения к проекту библиотеки MSXML 6.0 и обязательной вставкой первой строкой XML строки вида
Код: plaintext
<?xml version=' 1 . 0 ' encoding='Windows- 1251 '?
Теперь затягивает в 1251 без проблем
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Как перекодировать файл в UTF8
    #36767559
DFilushin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Но такой метод добавляет в начало файла 0xEF, 0xBB, 0xBF
...
Рейтинг: 0 / 0
Как перекодировать файл в UTF8
    #36769071
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А так попробовать: http://forum.script-coding.info/viewtopic.php?id=3929
...
Рейтинг: 0 / 0
Как перекодировать файл в UTF8
    #36770092
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Роман ШевченкоAvira Antivir кусок кода с ним приняла за вирус и заблокировала проект :)
Самые злобные вирусы это антивирусы. Вирусы мерещутся везде и во всем (а как же не будет вирусов, нечего будет лечить, думаю у любого Касперского есть еще "особый отдел", кот. эти вирусы пишет и распространяет, игра такая). Авира в этом плане преуспела.
Пишешь на virus@avira.com , прикладываешь свой "вирус" и обкладываешь их матюгами с клятвенным обещанием рекомендовать везде и всем Касперского. Вопрос решается в течении суток с очередным обновлением и извинениями с их стороны.
...
Рейтинг: 0 / 0
Как перекодировать файл в UTF8
    #36874151
DFilushin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Hugo121А так попробовать: http://forum.script-coding.info/viewtopic.php?id=3929

Спасибо огромное, заработал такой вариант.
...
Рейтинг: 0 / 0
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как перекодировать файл в UTF8
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]