+ Ответить в теме
Показано с 1 по 8 из 8

Тема: VBA: запись в файл в DOS кодировки

  1. #1
    coder Виталий А. is on a distinguished road
    Регистрация
    10.10.2006
    Сообщений
    19
    Вес репутации
    13

    По умолчанию VBA: запись в файл в DOS кодировки

    Макрос Excel'а должен создать текстовый файл с информацией на русском языке в DOS кодировке. Можно как-то в VBA это обозначить, чтобы запись в файл в DOS кодировке шла?

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #2
    system architect Aent will become famous soon enough Аватар для Aent
    Регистрация
    01.10.2006
    Адрес
    Saratov,Russia
    Возраст
    57
    Сообщений
    1,108
    Вес репутации
    15
    Андрей Энтелис,
    aentelis.livejournal.com

  4. #3
    coder Виталий А. is on a distinguished road
    Регистрация
    10.10.2006
    Сообщений
    19
    Вес репутации
    13

    По умолчанию

    Благодарю!

    Теперь бы еще разобраться, как CharToOem из VBA использовать - в хэлпе VBA про эту функцию не упоминается...

  5. #4
    system architect Aent will become famous soon enough Аватар для Aent
    Регистрация
    01.10.2006
    Адрес
    Saratov,Russia
    Возраст
    57
    Сообщений
    1,108
    Вес репутации
    15

    По умолчанию

    Жаль, что готовой функции нет.
    Как нет ? Там же в конце топика есть ссылка ...

    Код :
    1. 'На VBA декларация этой API функции будет выглядеть так:
    2. Public Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszScr As String, ByVal lpszDst As String)
    3. 'Функция облочка для вызова API  
    4. Function ANSITOOEM(ByVal sAnsi As String) As String
    5.     Dim sOem As String
    6.    
    7.     sOem = String(Len(sAnsi), Chr(0))
    8.     CharToOem sAnsi, sOem
    9.     ANSITOOEM = sOem
    10. End Function

  6. #5
    coder Виталий А. is on a distinguished road
    Регистрация
    10.10.2006
    Сообщений
    19
    Вес репутации
    13

    По умолчанию

    Спасибо громадное будем пробовать...

  7. #6
    coder Виталий А. is on a distinguished road
    Регистрация
    10.10.2006
    Сообщений
    19
    Вес репутации
    13

    По умолчанию

    Из описания функции "The CharToOem function translates a string into the OEM-defined character set.".
    Т. е. "OEM-defined character set" это и есть DOS кодировка? (просто смущает, что не указывается, в какую именно кодировку переводить строку; в том же РНР в аргументах функции мы указываем из какой кодировки в какую...)

  8. #7
    system architect Aent will become famous soon enough Аватар для Aent
    Регистрация
    01.10.2006
    Адрес
    Saratov,Russia
    Возраст
    57
    Сообщений
    1,108
    Вес репутации
    15

    По умолчанию

    Т. е. "OEM-defined character set" это и есть DOS кодировка?
    Да. Если вторым(первым) языком системы является русский. Если у Вас китайский или японский Windows, то воспользовавшись
    этой функцией Вы досовской кириллицы не получите
    Андрей Энтелис,
    aentelis.livejournal.com

  9. #8
    coder Виталий А. is on a distinguished road
    Регистрация
    10.10.2006
    Сообщений
    19
    Вес репутации
    13

    По умолчанию

    Попробовал приведенный выше код - выдает "Bad DLL calling convention"

    P. S. Public Declare Function CharToOem ... я поставил в том же модуле, что и последующую функцию, можнет нужно где-то в другом месте...

+ Ответить в теме

Похожие темы

  1. Запись данных из Excel в текстовый файл
    Помогите пожалуйста! Есть данные в ячейках которые распологаются следущим образом: + + + + - - - - При записи этих данных в файл печатается...
    от rit в разделе MS Office и VB(A).
  2. Задание кодировки в WebBrowsere
    Как задать определенную кодировку для WebBrowserа, чтобы он работал только с ней при просмотре страниц?( к примеру Unicode(UTF-8)) И еще как задать...
    от Duncon в разделе Delphi и Pascal
  3. запись в txt файл
    Здравствуйте. Такая проблема: Имеется диалог, а на нём конпка и EditBox. Я хочу чтобы при нажатии на кнопку, текст, введённый в EdiBox e...
    от pominub в разделе C и C++
  4. запись данных в файл Excel из VB6.0
    помогите пожалуйста разобраться: как сохранить данные из приложения VB в файл Excel в столбец (напримерА) состоящий из 43200 ячеек, последовательно...
    от ggg в разделе MS Office и VB(A).
  5. JScript (запись в файл)
    Привет всем! Помогите пожалуйста чайнику!!! Мне нужен скриптик, который бы сохронял в файл у меня на сайте то что написанно в type="text". ...
    от Anonymous в разделе JScript, VBScript, DHTML...

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения