Кодировка создаваемого скриптом файла

[Elena Nefedova]

Open fileName
[ For { Random | Input | Output | Append | Binary } ]
[ Access { Read | Read Write | Write } ]
[ { Shared | Lock Read | Lock Read Write | Lock Write } ]
As [#]fileNumber
[ Len = recLen ]
[Charset = MIMECharsetName]

Чтобы записать файл в нужной кодировке, нужно указать соответствующий параметр Charset = MIMECharsetName

Вопрос:
Как из списка всех этих кодировок выцепить единственно мне нужную - DOS ?

PS: Рука дрогнула - полтекста стерлось

 

[Elena Nefedova]

Ну неужели придется функцию писать?

А ведь как хотелось красоты и простоты <_<

 

[Kee_Keekkenen]

вроде как это ibm866

 

[Elena Nefedova]

Для: Kee_Keekkenen
Может, и ibm866. Вот только не включили индусы эту кодировку в свой список вариантов - ругается лотус invalid MIME charset

А ведь какая идея была прекрасная!
Пришлось писать перекодировщик, который и выкладываю для желающих:

Private Function toDOS(Byval s_str$) As String
On Error Resume Next
Dim k%, n_asc%, s_chr$, FR$
For k = Len(s_str) To 1 Step - 1
s_chr = Mid(s_str, k, 1)
n_asc = Asc(s_chr)
If n_asc = 168 Then
s_chr = Chr(240)
Elseif n_asc = 184 Then
s_chr = Chr(241)
Elseif n_asc >= 192 And n_asc <= 239 Then
s_chr = Chr(n_asc - 64)
Elseif n_asc >= 240 And n_asc <= 255 Then
s_chr = Chr(n_asc - 16)
End If
FR = s_chr + FR
Next k
toDOS = FR
End Function