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

   
   
     

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

Страница: 1 |

 

  Вопрос: text from file MS-DOS to Windows Добавлено: 14.04.03 15:54  

Автор вопроса:  redevil_2003

подскажите...

я открываю файл сохранённый в MS-DOS кодировке

и считываю по строчно, но данные получаются

в текстовом формате Windows (каракули)

что мне сделать?

Ответить

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

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



Хранитель чата

ICQ: 137392264 

Вопросов: 8
Ответов: 557
  Web-сайт: www.hypertech.ru
 Профиль | Цитата | #1 		Добавлено: 14.04.03 16:09

Используй функцию: OemToChar
Объявление: Private 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

Ответить

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



Вопросов: 4
Ответов: 6
  Профиль | Цитата | #2 Добавлено: 15.04.03 23:41

Альтернативный ответ

' Функция преобразование символов dos кодировки в win кодировку (по символьно).
Public Function conDOS(ByVal str1 As String) As String
Dim i As Integer
Dim long1 As Integer
i = 1
long1 = Len(str1)
Do While i <= long1
    Debug.Print Asc(Mid(str1, i, 1))
    If Asc(Mid(str1, i, 1)) >= 128 And Asc(Mid(str1, i, 1)) <= 175 Then
        Mid(str1, i, 1) = Chr(Asc(Mid(str1, i, 1)) + 64)
    Else
        If Asc(Mid(str1, i, 1)) >= 224 And Asc(Mid(str1, i, 1)) <= 239 Then
            Mid(str1, i, 1) = Chr(Asc(Mid(str1, i, 1)) + 16)
        End If
    End If
i = i + 1
Loop
conDOS = str1
End Function

Работает проверено

Ответить

Страница: 1 |

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



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