Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как сконвертить текстовый файл в юникод? / 5 сообщений из 5, страница 1 из 1
05.02.2004, 08:12
    #32398765
Boyler
Boyler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сконвертить текстовый файл в юникод?
Собственно сабж.
Надо текстовый файл с кодировкой Windows Cyrillyc перекодировать в Юникод!

Возможна ли эта афёра?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.02.2004, 10:15
    #32398888
marvan
marvan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сконвертить текстовый файл в юникод?
Открываем файл, считываем его содержимое в строковую переменную myString
далее преобразуем в Unicod:
StrConv(myString, VbUnicode)
далее записываем myString в новый файл.

если файл большой - рекомендую производить чтение отдельными фрагментами функцией API, а преобразование считанного фрагмента в Unicod
функцией MultiByteToWideChar:
Public Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpWideCharStr As String, ByVal cchWideChar As Long) As Long
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.02.2004, 11:30
    #32399036
Boyler
Boyler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сконвертить текстовый файл в юникод?
Спасибо! Попробую!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.02.2004, 12:37
    #32399159
Boyler
Boyler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сконвертить текстовый файл в юникод?
Как баран в новые ворота уперся!
Как открыть файл и считать его содержимое в строковую переменную myString?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.02.2004, 14:07
    #32399357
marvan
marvan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сконвертить текстовый файл в юникод?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
'в заголовке формы или модуля
Private bBuf() As Byte
    ...
'в заголовке функции
    Dim FilePath As String
    Dim iFN As Integer
    Dim m_FileSize As Long
    Dim myString As String
    ...
'в теле функции
    FilePath =  "C:\test.txt" 
    iFN = FreeFile
    Open FilePath For Binary As iFN
    m_FileSize = LOF(iFN)
    ReDim bBuf(m_FileSize)
    Get #iFN,  1 , bBuf()
    Close iFN
    myString = StrConv(bBuf, vbUnicode)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как сконвертить текстовый файл в юникод? / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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