Excel VBA質問箱 IV

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

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


13348 / 76738 ←次へ | 前へ→

【68896】Re:txtファイルを連続処理したい
発言  neptune  - 11/4/24(日) 22:21 -

引用なし
パスワード
   ▼すいか さん:
一応こちらも試してもらえますか?
新規userformにcommandbuttonを1個、textboxを4個配置して下さい。

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

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

・・・・文字コード判定はかなり難しいので簡易な方法でお茶を濁しました。^ ^;
後は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
0 hits

【68810】txtファイルを連続処理したい すいか 11/4/20(水) 11:06 質問
【68811】Re:txtファイルを連続処理したい UO3 11/4/20(水) 11:48 発言
【68814】Re:txtファイルを連続処理したい すいか 11/4/20(水) 13:24 質問
【68816】Re:txtファイルを連続処理したい UO3 11/4/20(水) 15:43 発言
【68818】Re:txtファイルを連続処理したい すいか 11/4/20(水) 16:37 質問
【68820】Re:txtファイルを連続処理したい UO3 11/4/20(水) 17:13 回答
【68822】Re:txtファイルを連続処理したい すいか 11/4/20(水) 17:36 質問
【68826】Re:txtファイルを連続処理したい UO3 11/4/21(木) 6:04 発言
【68828】Re:txtファイルを連続処理したい すいか 11/4/21(木) 10:00 質問
【68829】Re:txtファイルを連続処理したい UO3 11/4/21(木) 11:11 発言
【68830】Re:txtファイルを連続処理したい すいか 11/4/21(木) 13:05 発言
【68831】Re:txtファイルを連続処理したい neptune 11/4/21(木) 14:37 発言
【68832】Re:txtファイルを連続処理したい neptune 11/4/21(木) 14:40 発言
【68837】Re:txtファイルを連続処理したい すいか 11/4/21(木) 23:43 発言
【68838】Re:txtファイルを連続処理したい すいか 11/4/22(金) 0:39 質問
【68839】Re:txtファイルを連続処理したい UO3 11/4/22(金) 5:58 発言
【68840】Re:txtファイルを連続処理したい すいか 11/4/22(金) 14:08 質問
【68841】Re:txtファイルを連続処理したい kanabun 11/4/22(金) 14:43 質問
【68843】Re:txtファイルを連続処理したい kanabun 11/4/22(金) 15:01 発言
【68845】Re:txtファイルを連続処理したい すいか 11/4/22(金) 15:31 質問
【68847】Re:txtファイルを連続処理したい neptune 11/4/22(金) 15:40 発言
【68851】Re:txtファイルを連続処理したい すいか 11/4/23(土) 6:42 質問
【68850】Re:txtファイルを連続処理したい kanabun 11/4/22(金) 18:14 発言
【68852】Re:txtファイルを連続処理したい すいか 11/4/23(土) 6:53 質問
【68854】Re:txtファイルを連続処理したい kanabun 11/4/23(土) 11:30 発言
【68872】Re:txtファイルを連続処理したい すいか 11/4/23(土) 20:33 発言
【68896】Re:txtファイルを連続処理したい neptune 11/4/24(日) 22:21 発言
【68842】Re:txtファイルを連続処理したい UO3 11/4/22(金) 14:52 発言
【68846】Re:txtファイルを連続処理したい すいか 11/4/22(金) 15:39 質問
【68849】Re:txtファイルを連続処理したい UO3 11/4/22(金) 17:34 発言
【68853】Re:txtファイルを連続処理したい すいか 11/4/23(土) 7:16 質問
【68902】Re:txtファイルを連続処理したい SK63 11/4/26(火) 8:25 発言
【68817】Re:txtファイルを連続処理したい neptune 11/4/20(水) 16:35 発言

13348 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free