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

   
   
     

Форум - ASP и VBScript

Страница: 1 |

 

  Вопрос: Как перевести текст кодировки Dos преобразовать... Добавлено: 02.02.04 15:52  

Автор вопроса:  Ганс
Народ помогите пожалуйста.
Я читаю файл вот таким способом

Set InFile = fso.OpenTextFile(fileToOpen, 1, True)
Do While InFile.AtEndOfStream <> True
MyString = InFile.ReadLine
Loop


Файл досовой кодировки.
Соответственно в Windows
Msgbox MyString - абракодабра

Как поменять кодировку текста ?
Нужна функция типа oemToansi

Ответить

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

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



Вопросов: 0
Ответов: 36
  Профиль | | #1 Добавлено: 02.02.04 16:04
http://www.microsoft.com/Rus/Msdn/Activ/MSVB/Archive/WindowsAPI/Other/119.mspx

Ответить

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



Вопросов: 0
Ответов: 36
  Профиль | | #2 Добавлено: 02.02.04 16:21

Вот ещё ссылка по этой теме:

http://prosto.pp.ru/Docum/DocumShow_DocumID_340.html

Ответить

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



ICQ: 334099107 

Вопросов: 10
Ответов: 19
  Профиль | | #3 Добавлено: 02.02.04 16:58

Я делал так...
Объявление: Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

В коде:
Dim WindowsString as String * 255
OemToChar FileString, WindowsString

  просто и понятно...

 

Ответить

Страница: 1 |

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



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