- ベストアンサー
Do文を使い方について
- ファイルからデータを読み込んで変数に保存する際に、エラーが発生しています。どのように修正すれば良いでしょうか？
- ループ内でファイルから読み込んだデータを表示する方法を教えてください。
- Do文を使って2つのファイルからデータを読み込み、変数に保存する方法を教えてください。
- 0417
- お礼率18% (6/32)
- Visual Basic
- 回答数5
- ありがとう数0
- みんなの回答 （5）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (4)
- OsieteG00
- ベストアンサー率35% (777/2173)
Input(FileNo, setD1) Input(FileNo, setD2) Input(FileNo, setD3) Input(FileNo, setD4) 上記のブロックが同じループ中に２個ありますので、上段でEOFになっても下段で読みに行ってエラーになっていると思います。 どちらか一つでよいのでは？ また、login.CSVとlogout.CSVは同じ件数ですか？ 違う件数だとエラーが出ます。 違う条件なら、どちらかがEOFまで、という条件に変更すれば良いと思います。 ループを一重にして、 Do Until EOF(1) or EOF(2) ～ loop で駄目でしょうか？ また、件数はどちらも4の倍数件またはカンマ区切りで4の倍数個あるのでしょうか？ レコードの読み込み方(設計含む)そのものを変更した方が良いかも。 例：setD1～setD4を一度に読み込むようにする、等。
補足
どうのようにしたいか追加説明しますと、異なった2つのCSVファイル同士(レコード)を比較し、比較結果によっては、片方のレコードだけ更新するようにしたいのですが・・・
- denbee
- ベストアンサー率28% (192/671)
最終的に何をしたいのかがよくわかりませんので原因だけ。 上記のコーディングはDOループが入れ子構造になっています。 DO UNTIL Aファイルの最終位置 ・・・(1) DO UNTIL Bファイルの最終位置 ・・・(2) Ａファイルの項目の読み出し Ｂファイルの項目の読み出し Loop ・・・(2)のループの折り返し Loop ・・・(1)のループの折り返し この場合、 １）Ａファイルの１項目目を読み出す（(1)の１回目のループ） ２）Ｂファイルの１～最後の項目まで読み出す（(2)のループ） ３）Ａファイルの２項目目を読み出す（(1)の２回目のループ） ４）Ｂファイルの読み出し という手順で進みますが、２）で既にファイルの最終位置まで読み出しているのに、 ４）で更にデータを読み出そうとしたためにエラーとなっているように思われます。
補足
説明不足ですみません。ちなみに指摘された、２）で既にファイルの最終位置まで読み出しているのに、４）で更にデータを読み出そうとしたためにエラーとなっているようのを直すにはどうしたら良いでしょうか？
関連するQ&A
- lineinput について
下記のプログラムで処理を繰り返す時、どうして LinInput関数は正確に順序良く1行1行を読み取るのか分かりません。 下のプログラムでは永遠に1行目を読み取るか、読み取る行が ランダムになってしまうような気がするのですが、なぜでしょうか？ 宜しくお願いします。 ---------------------------------------------------------------- filenum = FreeFile() FileOpen(filenum, openfile, OpenMode.Input) Do Until EOF(filenum) readline = LineInput(filenum) TextBox1.Text = TextBox1.Text & readline & vbCrLf Loof FileClose(filenum)
- ベストアンサー
- Visual Basic
- VB2008の自作アプリの配布について教えて下さい
VB2008の自作アプリの配布について教えて下さい 自作アプリを作成し、デバッグだと正常に作動するのですが、 ビルドだと、エラーが出てしまいます。 多分エラー内容はtxtが見当たらないんだと思います （ｔｘｔを複数個呼び出してます) プログラム中の、呼び出してるのはこれです FileOpen(1, My.Application.Info.DirectoryPath & "\メモ.txt", OpenMode.Input) FileOpen(2, My.Application.Info.DirectoryPath & "\メモ２.txt", OpenMode.Input) メ = My.Application.Info.DirectoryPath & "\メモル.txt" FileOpen(3, メ, OpenMode.Input) FileOpen(4, My.Application.Info.DirectoryPath & "\攻撃１.txt", OpenMode.Input) FileOpen(5, My.Application.Info.DirectoryPath & "\攻撃２.txt", OpenMode.Input) FileOpen(6, My.Application.Info.DirectoryPath & "\攻撃３.txt", OpenMode.Input) FileOpen(7, My.Application.Info.DirectoryPath & "\攻撃４.txt", OpenMode.Input) FileOpen(8, My.Application.Info.DirectoryPath & "\攻撃５.txt", OpenMode.Input) FileOpen(9, My.Application.Info.DirectoryPath & "\攻撃６.txt", OpenMode.Input) 因みに今txtファイルはdebugフォルダに入っています。 txtファイルを含めたビルドを発行するにはどうすればいいのでしょうか？
- 締切済み
- Visual Basic
- 文字コードについて
特定のコードを指定して保存してみましたが、文字列を読み込めません。 どうしたら、読み込めるようになるかを教えてください。例えば、 FileOpen(FreeFile(), FileName, OpenMode.Output) Print(Filenum, Chr(150)) FileClose() というような具合で保存すると、文字列を読み込んでコードを表示しても0になります。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- 文字列の出力で
はじめまして、vb.netの初心者です。 テキストファイルの作成で下記のようにした場合 FileOpen(1, FileName, OpenMode.Output) Writeline(1,"AAAA") FileClose(1) "AAAA"と文字列が出力されるところを の""を外して AAAA と出力指定のですが何か良い方法はないでしょうか？ よろしくお願い致します。m(_ _)m
- ベストアンサー
- Visual Basic
- FileOpen 関数で既にファイルが開かれている場合
よろしくお願いします。 VB.net で開発しているのですが、 FileOpen関数を使って、READONLYでファイルを開きたいのですが 既に開かれている場合、異常終了してしまいます。 他で開かれていても、読み込みだけをする方法はないでしょうか？ ちなみに下記を試したのですが落ちてしまいました。 FileOpen(Number, 対象ファイル, OpenMode.Input) FileOpen(Number, 対象ファイル, OpenAccess.Read) FileOpen(Number, 対象ファイル, OpenMode.Input, OpenAccess.Read)
- ベストアンサー
- Visual Basic
- VB2005でのファイル操作について
Dim filedata As String Dim fileNum As Integer Dim fileName As String Dim i As Integer fileName = "C:\Paradata.txt" fileNum = FreeFile() FileOpen(fileNum, fileName, OpenMode.Output) For i = 0 To 9 filedata = data(i, 0) & "," & data(i, 1)・・・・・ PrintLine(fileNum, filedata) Next FileClose あるボタンを押しますと上記のようにテキストファイルにデータを保存しようとしているのですが、1回目のボタンクリックではエラーが無いのですが2回目以降は"別のプロセスで使用されているため、プロセスはファイル 'C:\Paradata.txt' にアクセスできません。"のエラーが発生してしまいます。いろいろと調べているのですがまだわからないのでどこがおかしいか教えてください。よろしくお願い致します。
- 締切済み
- Visual Basic
- VB2005のファイル読込でDo While Not EOFを使用するには？
いつもお世話になります。VB2005でテキストファイル（中身は１レコードのみ）をFileOpen関数の ランダムアクセスを使用し、FileGet関数で値を取得しました。しかし、取得後に続くDo While Not EOF～LOOP内の 処理が実行されません。同じファイルでVB6版で使用したら問題なく実行されたのですが。 どのように対応したらよろしいのでしょうか？ よろしくお願い致します。 ソース Structure TypeUkeData '(Length = 100) <VBFixedArray(7), MarshalAs(UnmanagedType.ByValArray, SizeConst:=8)> Dim b_UkeDate() As Byte '受付日 <VBFixedArray(7), MarshalAs(UnmanagedType.ByValArray, SizeConst:=8)> Dim b_UkeTime() As Byte '受付時刻 <VBFixedArray(3), MarshalAs(UnmanagedType.ByValArray, SizeConst:=4)> Dim b_UkeCnt() As Byte '件数 <VBFixedArray(79), MarshalAs(UnmanagedType.ByValArray, SizeConst:=80)> Dim b_UkeNaiyo() As Byte '内容 Public Sub Initialize() ReDim b_UkeDate(7) ReDim b_UkeTime(7) ReDim b_UkeCnt(3) ReDim b_UkeNaiyo(79) End Sub End Structure Sub ReadFile Dim b_UkeData As TypeUkeData Dim i_FileNo As Short Dim i_RecNo As Short call b_UkeData.Initialize() i_FileNo = FreeFile() FileOpen(i_FileNo, "C:\UkeData.tmp", OpenMode.Random, , , 100) ' 最初のレコードを読み込む i_RecNo = 1 FileGet(i_FileNo, b_UkeData, i_RecNo) ←b_UkeDataに確かに値は入っている Do While Not EOF(i_FileNo) ←ループ内の処理に一度も入らず次のFileCloseにいってしまう CALL SubSpilit(b_UkeData) ' 次のレコードを読み込む i_RecNo = i_RecNo + 1 FileGet(i_FileNo, b_UkeData, i_RecNo) Loop FileClose(i_FileNo) End Sub
- 締切済み
- Visual Basic
- OpenOfficeBasicで漢字が表示できない
OpenOfficeBasicで、ＣＳＶファイルを読み、ＣＥＬＬにセットしていくと漢字が文字化けしてしまいます。 何かの設定がおかしいと思いますが、わかりません。 よろしくご教授ください。 ＯＳはＣｅｎｔｏｓ５です。 ＯｐｅｎＯｆｆｉｃｅ．ｏｒｇ３ Linux用を使っています。 マクロの内容は以下の通りです。 sub csvinput dim document as object document = ThisComponent.CurrentController.Frame dim FileNo As Integer dim data As String dim File As String Filename = "/var/webapps/doc/test/nippou.csv" FileNo = Freefile Open Filename For Input As FileNo Do While not eof(FileNo) dim args2(0) as new com.sun.star.beans.PropertyValue args2(0).Name = "StringName" Input #FileNo, data args2(0).Value = data Loop Close #FileNo endsub
- ベストアンサー
- Visual Basic
- 日本語混じりのファイルをランダムアクセスで読みこむ場合
ファイルを１０２４バイトずつ読みこみ、その内容をソケットでホストへ送るというアプリがあります。 ファイルを「１０２４バイト読んで→送信」を繰り返すのですが、ファイルを読みこむところ（Get)で日本語が混じったときにエラーを生じます。 「レコード長が一致しません」というエラーメッセージです。 日本語がはいる桁数だけバイト数は減るためだと思いますが、ランダムアクセスで読みこむと場合の記述の仕方で、何とかならないものかと思案しています。 どなたかご教授ください。よろしくお願いします。 ＜プログラム記述例＞ Dim filenum As Integer Dim filename As String Dim buffer As String * 1024 filename = "e:\tmp\file.txt" filenum = FreeFile Open filename For Random Access Read As #filenum Len = 1024 Do While Not EOF(filenum) Get #filenum, , buffer Loop Close #filenum
- ベストアンサー
- Visual Basic
- ダブルクォーテーション付きの文字列を含むファイルを読み込む方法？
Visual Basic 2008 Express Editionを使用しています。 ＩＥ上の範囲選択のHTMLテキストをテキストファイルに保存しています。 保存日時(Date型):time "文字列":moji のように保存しています。 FileOpen(n, "Data.dat", OpenMode.Append) WriteLine(n, time, moji) ～保存されたファイルの例～ #2008-08-31 10:21:05# , "この記事に関するコメントを投稿するには、下のボタンをクリックしてください。投稿フォームが表示されます。通常のご質問、ご意見等は<A href=""/vb/bbs/index.html"">掲示板</A>へご投稿ください。 " このファイルを以下のように読み込もうとしています。 FileOpen(n, "Data.dat", OpenMode.Input) Do While Not EOF(n) Input(n, time) Input(n, moji) TextBox1.Text += vbCrLf & time & vbCrLf & moji & vbCrLf Loop ところが、HTMLの文字配列の中には、<a href="" http://・・・・ "">のようにダブルクォーテーションが含まれています。ダブルクォーテーションが２つなら、文字列として扱ってもらえると思っていましたが、文字列の終了位置として認識してしまうようです（エラーの内容から判断しました。） ダブルクォーテーションを含む文字列の場合どのように処理したらよいでしょうか？
- ベストアンサー
- Visual Basic
補足
2つのファイル内のデータ数は同じときもあれば違う時もあります。前にも書きましたが、異なった2つのCSVファイル同士(レコード)を比較し、比較結果によっては、片方のレコードだけ更新するようにしたいのです・・・