- ベストアンサー
VBでのテキストファイルの 読み込み & 書き出し について
ninja972の回答
- ninja972
- ベストアンサー率0% (0/2)
申し訳ありません。 呼び捨ててしまいました。 ごめんなさい．．．
関連するQ&A
- ファイルの読み込みについて
いつもお世話になっています。 早速質問なのですが、VBのファイル処理において固定長データのテキストファイル読み込みの処理で、 固定長データの改行コードがChr(10)になっているデータがあります。 下記のどのOpenステートメントを使用しても、１行読み込みではなく全行読み込まれてしまうのです。 ↓ファイルモード (1)Open strInFile For Input As #intInFile (2)Open strInFile For Random As #intInFile Len=文字数 (3)Open strInFile For Binary As #intInFile ちなみに読み込みのモードは ・Line Input ステートメント ・Get ステートメント の２つを使用してみました。 改行コードの種類に依存せずにデータを１行読み込む方法を教えていただきたいです。
- ベストアンサー
- Visual Basic
- 参照するテキストファイルの数
決め打ちのＳＱＬ文を記述したテキストファイルをOpenステートメントで 読み込み、テキストボックスへ表示させています。 できるだけVBのコードをメンテしないようにしたいので、テキストファイルで SQLを持っているのですが、いろんなパターンのSQL文がありテキストファイルが 8ファイルくらいになってしまいます。 参照する為のテキストファイルは、何ファイルくらいまでが理想なんでしょうか？ いくつもあってもかまわないのでしょうか？ 教えていただけませんでしょうか？？ よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- VB6.0 でのテキストファイルの表示
.net では、readstream でがばっととって、テキストボックス（読み取り専用）に表示しました。 これと同様のことをVB6.0でチャレンジしたのですが、テキストボックスに表示されるのは最初の一行だけでした。マルチラインのテキストボックス設置後 Private sub command1_click() Dim data as string Open "ファイルパス" for input as #256 Do while EOF(256) line input #256, data loop text1.text=data としたところ、ファイル内の最初の一行目に位置する「％」のみが表示されました。 readonlyもつかえないみたいなので、Listを使うのがよいのでしょうか？ご教示下さい
- ベストアンサー
- Visual Basic
- (ACCESS VBA)あるテキストファイルのデータを別のテキストに写す
すいませんがたびたび質問させていただいていmynannです ACCESS VBAについての質問です まず商品マスタクエリに 商品コード 価格 001 \100 002 \150 003 \200 というデータがあり テキストファイル「text01.txt」に 「こちらのアドレスが商品のページです↓ http://goo.ne.jp/syouhin/」 この商品マスタの商品コードとtext01.txtで 「こちらのアドレスが商品のページです↓ http://goo.ne.jp/syouhin/001.html」 というようなファイルを出力するようなモジュールをつくろうと思っています 実際には商品コードは複雑ですし テキストファイルももっとたくさんの文章です で特に何を聞きたいかというと テキストファイルのテキストデータをどうやって 扱えばいいかがよくわかりません OPENステートメントとかつかうんでしょうか、、？ どなたか助けてください！
- 締切済み
- Visual Basic
- VB6.0 テキストファイルの操作について
最近FileSystemObjectを覚えた者です。そこで質問なんですが、 FileSystemObjectを使用すると様々なテキストファイルの操作が可能ですが、Openステートメントでも同じようなことができると思うのですが、この二つの手法の長所と短所と、使用例など教えていただけたらと思います。よろしくお願いします。
- ベストアンサー
- Visual Basic
- VBでCSVファイルを読み込む方法(最速方法は？）
こんにちは。VB6.0(SP5)、Windows2000でVBの勉強をしています。 VBのテキストボックスに入力したデータをCSVファイルに保存する時、もうすでに登録されていたらエラーを出したいと思っています。 そこで、CSVファイルを読み込み、同じかどうか確認したいと思っていますが、どの方法で処理するのが早く効率的なのでしょうか。 ファイル形式・・・csvで50行×3列 ----------- aaa,1,2 bbb,3,4 ・・・50行程度のデータ ----------- テキストボックスに入力したデータ・・・例えば"ccc" １．Open ファイル名 For Input As #fileNum でEOFまで読み、配列に入れ、その後1列目のデータが"ccc"かどうか確認する ２．Open ファイル名 For Input As #fileNum で読みながら、1列目のデータが"ccc"かどうか確認し、EOFまで繰り返す ３．DAOを利用し、SELECT文であるかないか確認する(DAO2.5) の３つの方法を試してみましたが、あるパソコンで行うとDAOが早いのに別のパソコンだとDAOが1番遅いなど、どれが効率的なのかよくわかりませんでした。 このような処理をしたい場合、みなさんはどのような方法で処理されますか？ 上記以外の方法でも構いません。アドバイスよろしくお願いします。
- ベストアンサー
- Visual Basic
- VBで指定テキストファイルの読込
タイトル通り、指定したパス先のテキストファイルを読み込みたいのですが、 OpenFileDialogで開くやり方しかわかりません。 ボタンを押すと読み込んでテキストボックスに表示させる方法を教えて頂きたいです。
- ベストアンサー
- Visual Basic
- VBで複数のテキストを結合するときの問題
教えてください！お願いします。 VB6を使って、複数のテキストファイル(～.txtで保存しているもの)を 一つずつ読み込んで、それらを結合して１つのファイルにして リッチテキストボックスに表示する、というツールを作成しています。 一応うまく出来たのですが、ただ、結合した時にそれぞれのテキストの 間にどうしても１行ブランクが入ってしまうんです。 このブランク行を削除して、結合したファイルの継ぎ目がきれいに 続いて表示されるようにする方法はありますでしょうか？ ブランク行を全て削除してしまうのではなく、ファイルとファイルの 間に挿入されてしまうブランク行だけをなくしたいのです。 ちなみに Open App.Path & "\" & List1.List(List1.ListIndex) For Input As #FileNum Do Until EOF(FileNum) Line Input #FileNum, ddd gggg = gggg & ddd & vbCrLf Loop Close #FileNum このようにリストに載っているテキストファイルを全部読み込んで、 If Dir(書き出すテキストファイル) = "" Then Open 書き出すテキストファイル For Output As #FileNum Print #FileNum, gggg Close #FileNum Else Open 書き出すテキストファイル For Append As #FileNum Print #FileNum, gggg Close #FileNum End If 書き出すファイルが存在しなければそのまま保存し、書き出すファイルが あれば、そのファイルに追記するというコードにしています。
- ベストアンサー
- Visual Basic
- テキストファイルウィザードを使用したCSVファイル読み込みの挙動について【Excel2003】
テキストファイルウィザードを使用したCSVファイル読み込みの挙動について【Excel2003】 ＜CSVファイル例＞ "aaaa","bbb<改行コード 0d0A>bb","ccc" 上記のようなCSVファイルを、 ダブルクリックにてExcel起動すれば正常に表示されますが、 テキストファイルウィザード（データ→外部データ取り込み→データの取り込み） を使用して、読み込みを行うと改行されて表示されてしまいます。 これは、Excelの仕様なのでしょうか？ ご存知の方いらっしゃいましたら教えていただけますでしょうか？ 現在の本質的な問題は、 ------------------------------------------------------------------- Excel2003にて、文字コードがUTF-8のCSVファイルを下記方法にて読み込む ・テキストファイルウィザードを使用 ・文字コードをUTF-8 ・カンマ区切り設定 で読み込みを行うと文字化けしないで表示されるのですが ダブルコーテーション中のデータ内に改行コード0d0aが含まれると 改行されてしまいます。 ------------------------------------------------------------------- と言う現象の調査をしております。
- 締切済み
- PHP
- 改行コードの入っていないテキストファイルが開けるテキストエディタは？
1レコードが256バイトのテキストデータが格納されているファイルがあるのですが、このファイルには改行コードが入っていません。 テキストエディタにてファイルの中身を確認したいのですが、メモ帳ですときれいに表示できません。 1行256バイトで表示できるフリーのテキストエディタをどなたかご存知でしょうか。 ご存知の方がいらっしゃいましたら教えてください。 お願いします。
- ベストアンサー
- その他([技術者向] コンピューター)
補足
いえいえどういたしまして。 みなさんのご意見を参考にして、私なりに考えてみました。 同じセクションの行頭に特定の文字を挿入しました。 [Section1]デ－タ1デ－タ1デ－タ1デ－タ1デ－タ1 [Section1]デ－タ1デ－タ1デ－タ1 [Section1]デ－タ1デ－タ1 [Section2]デ－タ2デ－タ2デ－タ2デ－タ2 [Section2]デ－タ2デ－タ2 [Section3]デ－タ3デ－タ3デ－タ3デ－タ3デ－タ3 [Section3]デ－タ3デ－タ3デ－タ3デ－タ3デ－タ3デ－タ3 [Section3]デ－タ3デ－タ3デ－タ3デ－タ3デ－タ3デ－タ3 で、例えば[Section2]の文字列だけを抜き出してテキストボックスに表示 するコードを下のようにしてみました。 Dim aa, readdata, bb As String Open App.Path & "\" & "test.txt" For Input As #1 Do Until EOF(1) Line Input #1, aa bb = Left(aa, 6) If bb = "[Section2]" Then readdata = readdata & aa & vbCrLf End If Loop Close #1 Text1.Text = readdata こんな感じでどうでしょうか? 多分もっと効率のいいコードがあるかも知れませんが、へっぽこの私には これが限界です。