Excel VBA質問箱 IV

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

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


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

465 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

▼

【80212】タブ区切りのテキストファイル読み込み ken 18/10/25(木) 15:30

【80215】Re:タブ区切りのテキストファイル読み込み γ 18/10/25(木) 20:34

【80218】Re:タブ区切りのテキストファイル読み込み ken 18/10/25(木) 21:31

【80219】Re:タブ区切りのテキストファイル読み込み γ 18/10/25(木) 21:33

【80220】Re:タブ区切りのテキストファイル読み込み ken 18/10/26(金) 8:34


	【80212】タブ区切りのテキストファイル読み込み

ken - 18/10/25(木) 15:30 -


	引用なし

	パスワード

初歩的な質問ですが、行き詰まってしまったので
ご教授をお願いいたします。

ADODB.Streamオブジェクトを使用し
タブ区切りのUTF-8コードのテキストファイルを読み込んで
データ処理を行いたいのですが、１行ずつ読み込んだデータが
なぜかタブが削除されてしまう動作をしてしまい。
データ処理ができません。

他に確認すべき事項があれば教えて下さい。

Dim adoSt As Object
Set adoSt = CreateObject("ADODB.Stream")

With adoSt
　　.Charset = "UTF-8"　　
　　.Type = adTypeText　
　　.Open　　　　　　　　　
　　.LoadFromFile (strPath)

　　Do Until .EOS　　　　

　　　　strLine = .ReadText(adReadLine) ←この時点でタブが無くなります。

　　　　aryLine = Split(strLine,vbTab)　　　　

　　　　'書き込み処理

　　Loop

　　.Close
End With


	【80215】Re:タブ区切りのテキストファイル読み込み

γ - 18/10/25(木) 20:34 -


	引用なし

	パスワード

>←この時点でタブが無くなります。
これはどうやって確認されていますか？

実験しましたが正常に読み込まれました。
Microsoft ActiveX　Data Objects Recordset x.x Library
を参照設定しているんですよね。

ちょっと分からない。


	【80218】Re:タブ区切りのテキストファイル読み込み

ken - 18/10/25(木) 21:31 -


	引用なし

	パスワード

確認ありがとうございます。

>>←この時点でタブが無くなります。
>これはどうやって確認されていますか？

イミディエイトで変数の値をprintで出力して確認していました。
これだとタブが出力されないんですね。

カーソルを当てて値を確認したところ、タブは入っていたので
結論的には問題無く動作していました。

すいません。ありがとうございます。


	【80219】Re:タブ区切りのテキストファイル読み込み

γ - 18/10/25(木) 21:33 -


	引用なし

	パスワード

aryLine = Split(strLine,vbTab)　
までやって、aryLineが配列になっていることを
ローカルウインドウで確認するのが確実だったでしょう。


	【80220】Re:タブ区切りのテキストファイル読み込み

ken - 18/10/26(金) 8:34 -


	引用なし

	パスワード

▼γ さん：
>aryLine = Split(strLine,vbTab)　
>までやって、aryLineが配列になっていることを
>ローカルウインドウで確認するのが確実だったでしょう。

わかっておらずすいません、
その通りです。

確認に対する貴重な時間をかけてしまいまして
すいませんでした。　
ありがとうございました。


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

465 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free