Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13342 / 76732

←次へ　｜　前へ→


	【68896】Re:txtファイルを連続処理したい

neptune - 11/4/24(日) 22:21 -


	引用なし

	パスワード

▼すいかさん：
一応こちらも試してもらえますか？
新規userformにcommandbuttonを１個、textboxを４個配置して下さい。

以下をコピペ、コマンドボタンをクリック。

Shift-JISでもunicodeでもtextbox1,textbox2の両方に正しく表示されます。
utf-8,7ではtextbox3,textbox4のどちらかにに正しく表示されます。
２つずつ正しく表示されますが、どちらかは判断できませんが、
これではないというのが判断できます。

・・・・文字コード判定はかなり難しいので簡易な方法でお茶を濁しました。^ ^;
後はkanabun さんのコードで出力されたものと併せて考えれば
だいたいの判断できるのではないかと思います。

取り敢えず、win7 XL2007で動作はしました。

Option Explicit

Private Sub CommandButton1_Click()
　　Call SearchChar
End Sub

Private Sub SearchChar()
　　Const c1 As String = "Shift_JIS"　　'Shift-JIS
　　Const c2 As String = "ISO-2022-JP"　'UNICODE
　　Const c3 As String = "EUC-JP"　　　 'EUC-JP
　　Const c4 As String = "UTF-8"　　　　'UTF-8
　　Const c5 As String = "UTF-7"　　　　'UTF-7
　　Dim sPath As String
　　
　　sPath = Application.GetOpenFilename("Text Files (*.txt), *.txt", 0, "文字コードテスト")
　　
　　Me.TextBox1.Text = SearchCharCode(sPath, c1)　　'Shift-JIS
　　Me.TextBox2.Text = SearchCharCode(sPath, c2)　　'UNICODE
　　Me.TextBox3.Text = SearchCharCode(sPath, c3)　　'EUC-JP
　　Me.TextBox4.Text = SearchCharCode(sPath, c4)　　'UTF-8
　　Me.TextBox5.Text = SearchCharCode(sPath, c5)　　'UTF-7
　　
End Sub

Private Function SearchCharCode(pPath As String, pChar As String) As String
　　Dim ad As Object
　　Dim buf As String
　　
　　Set ad = CreateObject("ADODB.Stream")
　　
　　With ad
　　　　.Charset = pChar
　　　　.Open
　　　　.LoadFromFile pPath
　　　　buf = .ReadText(-2)
　　　　.Close
　　End With
　　Set ad = Nothing
　　
　　SearchCharCode = buf
End Function

4 hits

▼

【68810】txtファイルを連続処理したい すいか 11/4/20(水) 11:06