なぜASCII文字セットの特殊文字を使用するADODB.Streamをäのように変換するのですか？

Question

vb6の一部の変数の内容をテキストファイルに出力しようとすると、問題が発生します。これは、拡張ASCIIの特殊文字がä、ü、と表示されたときに、a、u、aのような一致する基本ASCII文字に変換されます。

私はUTF-8のようにエクスポートしようとしましたが、文字が正しく表示されましたが、出力がASCIIである必要があります。また、ファイル名には通常、この文字（ä、ü、á...）が含まれていても構わないと思います。

「ASCII」の文字セットは基本的なもので拡張されたものではない可能性がありますか？おそらく、Windowsで設定されたCodePagesのためですか？私はそれらのカップル（ドイツ語、英語）と同じ結果を試してみました。

これは私が使用しているコードは次のとおりです。事前に

Set fileStream = New ADODB.Stream 
If Not fileStream Is Nothing Then 
    inputString = textPreAppend + inputString 
    fileStream.charSet = "ASCII" 
    fileStream.Open 
    fileStream.WriteText inputString 
    fileStream.Flush 
    fileStream.SaveToFile fileName, adSaveCreateOverWrite 
    fileStream.Flush 
    fileStream.Close 
End If 
Set fileStream = Nothing 

ありがとう！

Answer 1

両方PRB: Charset Property of ADO Stream Object May Require Microsoft Internet Explorer UpgradeとCharset Property (ADO) ADOのCharSet値はこれらのHKEY_CLASSES_ROOT\MIME\Database\Charsetの下にリストされていることを示唆しているが、それは明らかに全体の話ではありません。

たとえば、 "ascii"と "us-ascii"の両方の値が "iso-8859-1"のエイリアスとしてリストされていますが、私のロケールを米国英語に設定して実行すると、7ビットASCII MIMEタイプのように動作します。とにかく7ビットのASCIIエンコーディングを要求するために用意されているものは何もないので、ほとんどの人はこれを行う必要があります。これは、結果を生成

あなたがしたいように見える：

Option Explicit 

Private Sub Main() 
    Dim fileStream As ADODB.Stream 
    Dim inputString As String 
    Const FileName As String = "outputfile.txt" 

    Set fileStream = New ADODB.Stream 
    inputString = "The thing is that when a special character" & vbNewLine _ 
       & "from extended ASCII appears as ä, ü, á it" & vbNewLine _ 
       & "is transformed in the output to the matching" & vbNewLine _ 
       & "basic ASCII char like a, u, a." & vbNewLine 
    With fileStream 
     .Type = adTypeText 
     .Charset = "iso-8859-1" 
     .Open 
     .WriteText inputString 
     .SaveToFile FileName, adSaveCreateOverWrite 
     .Close 
    End With 
End Sub 

出力：

我々は明らかにケースではありませんけれども、「ASCII」を求めて（値はすべて小文字にすることを想定する必要が

The thing is that when a special character 
from extended ASCII appears as ä, ü, á it 
is transformed in the output to the matching 
basic ASCII char like a, u, a. 

-sensitive）は、おそらくローカライズされた7ビットのASCIIを意味します。

が UTF-8を必要としない限り、UTF-8の使用は悪い考えです。多くの* nixシステムは違いはないと思っていますが、ストリームはBOMを書きますが、もちろん拡張された（非ASCIIの）文字はマルチバイトでエンコードされています。

Answer 2

なぜ次のようなことはできませんか？これは私のために[OK]を動作します：

Dim FileNo As Integer 
    Dim strFile As String 

    strFile = "C:\Test.txt" 
    FileNo = FreeFile 

    Dim strVariable As String 
    strVariable = "some text with extended chars in: ÙÑáêôü" 

    Open strFile For Append As #FileNo 

    Print #FileNo, strVariable 

    Close #FileNo