4

次の行を使用して、Excelで入力するファイルを開こうとしています。

Open tmpNmFichier For Input Shared As #iFnum

問題は、私のファイルに次のような文字が含まれていることです： "é"、 "à"...ファイルを：で解析しているとき

Dim s As String

Line Input #iFnum, s
If Len(s) > 0 Then
     v = Split(s, tmpSeparateur)
Else
    ReDim v(-1 To -1)
End If

私の文字「é」...は「è」または「Ã...」に変換されます

ファイルのエンコーディングなどを明示する方法を知っていますか？

4

1 に答える 1

6

FileSystemObject代わりに使用してください

Public Function GetContent(fpath$) As String
    'REFERENCES:
    'Microsoft Scripting Runtime // Scripting.FileSystemObject
    Dim fso As New Scripting.FileSystemObject, content$
    If fso.FileExists(fpath) Then
        content = fso.OpenTextFile(fpath, ForReading, False, TristateTrue).ReadAll()
        GetContent = content
    Else
        MsgBox "Invalid file path."
        GetContent = vbNullChar
    End If
End Function

値

TristateUseDefault -2 Opens the file using the system default. 
TristateTrue -1 Opens the file as Unicode. 
TristateFalse  0 Opens the file as ASCII.
于 2012-06-12T13:34:23.707 に答える