ASCII файл

[duk]

Такая ситуация
Есть перменная qwer='Дмитрий'
Надо создать текстовый файл с содержимым 'Дмитрий' в ASCII кодировке
Пробовал делать OpentextFile и CreateTextFile, указывая, что открывать(создавать) его следует именно как ASCII. С помощью write добавляю туда qwer. Но текст туда заносится как ANSI. Я, конечно, начинающий в VB. Может чего и не догоняю. Может кто-нибудь код приведет?

[Boris_BGB]

Помоему ASCII это символьная таблица для привязки к клавишам? Или я глючу?

[RayShade]

Ты не то что глючишь а по моему это... плющит тебя Всего причем.

Это кодировка. В Windows есть API для перевода ASCII в ANSI и обратно. Называются ANSIToOEM OEMToANSI по моему. MSDN почитайте в общем.

[Георгий]

ИМХО, то, что тут названо ASCII и ANSI должно быть названно DOS и
WIN кодировки. Перерекодировать скорее всего придется в ручную... Составь таблицу соответствия символов и перед выводом пропускай текст через процедурку, которая дубет перекодировать:
примерно так:

Код: Выделить всё

Const ANSI = "АБВГДЕЖ..."
Const ASCII =chr(<код символа "А" в досе>)+chr(<код символа "B" в досе>)

Function trans (s as String) as String

Dim ss as string

ss=""
For i = 1 to Len (s)
  ss=ss+Mid(ASCII,InStr(1,ANSI,Mid(s,i,1)),1)
Next i

End function


ТЕкст кода приблизительный (Не проверялся)

[Георгий]

Мды прикольно получилось

[duk]

Мне интересно, а что никто до этого никто такой проблемой не озадачивался? Неужели нет ничего до ужаса простого и стандартного?

[RayShade]

Ты что читать не умеешь? Написано же есть апи для конвертации.

[GSerg]

Действительно, есть... Только называются чуть иначе...

Код: Выделить всё

Option Explicit

Private Declare Function OemToCharBuff Lib "user32.dll" Alias "OemToCharBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
Private Declare Function CharToOemBuff Lib "user32.dll" Alias "CharToOemBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long

Private Sub Form_Load()
  Dim a As String
 
  a = "абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ"
  CharToOemBuff a, a, Len(a)
 
  MsgBox a, vbInformation, "Конвертнули из Винды в Дос"
 
  OemToCharBuff a, a, Len(a)
 
  MsgBox a, vbInformation, "А теперь обратно"
 
End Sub