掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
X-EUC-JPの文字変換について (ID:140606)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じで。 Dim S As String S = ReadAllText("C:\sample.html", "x-euc-jp") '-------------- Public Function ReadAllText(ByVal FileName As String, _ Optional ByVal Charset As String = "_autodetect") As String With CreateObject("ADODB.Stream") .Charset = Charset .Open .LoadFromFile FileName ReadAllText = .ReadText() .Close End With End Function
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.