VB.NETでファイル操作についての質問

前へ 次へ
このQ&Aのポイント
  • VB.NETでファイルをオープンしたまま、ファイル内のデータを何度も読み込みたいのですが、一度全部読み込み終わった後、再度ファイルの先頭から読み込ませる方法が分かりません。
  • StreamReaderを使用してファイルを読み込み、Seekで読み込み位置を先頭に戻しても再度読み込めません。
  • どのようにすればファイルをオープンしたまま、複数回データを読み込むことができるのでしょうか？
回答を見る
  • ベストアンサー

VB.NETでファイル操作

ファイルをオープンしたまま、ファイル内のデータを何度も読み込みたいのですが、Seekで読み込み位置を先頭にし、Peekでループさせ、一度全部読み込み終わった後、Seek文で先頭に戻し、再度ファイルの先頭から読み込ませようと思ったのですができません。 なぜなのでしょうか？ // ファイルオープン StreamReader sr = new StreamReader( (System.IO.Stream) File.OpenRead("C:\\Temp\\Test.txt"), System.Text.Encoding.ASCII); // 最後まで読み出す sr.BaseStream.Seek(0, SeekOrigin.Begin); while (sr.Peek() > -1) { Console.WriteLine(sr.ReadLine()); } // もう一度 sr.BaseStream.Seek(0, SeekOrigin.Begin); while (sr.Peek() > -1) {　　　　　　　　　←このWhileの中に入らない。 Console.WriteLine(sr.ReadLine()); } // ファイルクローズ sr.Close();

  • Haule
  • お礼率52% (125/240)

質問者が選んだベストアンサー

  • ベストアンサー
  • BLUEPIXY
  • ベストアンサー率50% (3003/5914)
回答No.1

まず、ソースの書き方からＶＢ．ＮＥＴではなくてＣ＃．ＮＥＴだと思います。 ファイルを最後まで読み出すと、ストリームの状態がＥＯＦ状態になり、この状態をリセットしないとストリームから読み出せません。 Ｃでなら、clearerr関数でＥＯＦをクリアできるのですが、.NetFrameworkではそれに該当する関数はありません。 なので ＥＯＦになってしまったら いったん、Closeして再度オープンしないとしょうがないと思います。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • C#のテキストファイル読み込みについて

    C#のテキストファイル読み込みについて ２次元配列を使います（a[行][列]みたいに テキストファイルを１文字ずつ読み込みます。 そして、改行文字が見つかると行を１つずらします それを繰り返して最後まで読みこむと終わり そんなことをしたいです DOBON.NETでこんなの見つけたんですが 上の処理をしようと思っても、どこをいじればできるのかわかりませんでした //"C:\test.txt"をShift-JISコードとして開く System.IO.StreamReader sr = new System.IO.StreamReader( @"C:\test.txt", System.Text.Encoding.GetEncoding("shift_jis")); //内容を一行ずつ読み込む while (sr.Peek() > -1) { Console.WriteLine(sr.ReadLine()); } //閉じる sr.Close(); よくわかるサイトとかあったら教えてください、お願いします

  • １行ごとに取得して、その改行文字が何か知る方法

    CR,LF,CRLFが混在しているテキストで難儀しております。 VB.NETでReadLine()を使えば、どんな改行コードでも削除した文字列を取得できますが、同じ内容を書き込む場合にどのような改行コードわからないと同じファイルができません。 安直にNewLineやWriteLine()を使うと、どんな改行コードでWindowsの場合はCRLFになります。 ReadLine()で取得した文字列＋改行コードがわかる方法がありますか？ 以下、例です。 dim s as String Dim sr As New System.IO.StreamReader("yomu", "ISO-2022-JP") Dim sw As New System.IO.StreamWriter("kaku", false, "ISO-2022-JP") While sr.Peek() > -1 s = sr.ReadLine() '改行文字を取り除いた文字列 sw.Write(s) '書き込む end While sr.close() sw.close()

  • C# StreamReader,StreamWriter による文字化

    C# StreamReader,StreamWriter による文字化け お世話になります。 文字化けで悩んでいます。 Visual Studio 2008 C# にて、テキストファイルからデータを読んで別のテキストファイルに そのまま書き出す（もちろん実際の運用では加工するわけですが）処理で文字化けが起こります。 そのテキストファイル自身を C# で作れば問題はないのですが、メモ帳を使って書き込んだファイルでは 文字化けが起こります。 対処方法があれば教えてください。 以下はその実験に使ったコードです。 using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.IO; namespace ConsoleApplication5 { class Program { static void Main(string[] args) { // これは正常に書き込みできました StreamWriter sw = new StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + @"\test.txt"); sw.WriteLine("これはてすとです。"); sw.WriteLine("This is test."); sw.Close(); // これも正常に読み込め、書き込みもできました StreamReader sr = new StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + @"\test.txt"); sw = new StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + @"\newtest.txt"); while (!sr.EndOfStream) { sw.WriteLine(sr.ReadLine()); } sr.Close(); sw.Close(); // 次はあらかじめメモ帳で作ったファイルを読んで、別のファイルに書き出します // これが文字化けします sr = new StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + @"\test2.txt"); sw = new StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + @"\newtest2.txt"); while (!sr.EndOfStream) { string dat = sr.ReadLine(); sw.WriteLine(dat); Console.WriteLine(dat); } sr.Close(); sw.Close(); } } }

  • VB2008

    VB初心者です、よろしくお願いいたします。 現在、ＶＢ2008を使い、顧客名簿を作成しています。 前回の質問で、テキストファイルのファイル名だけを取得する方法は分かったのですが、そのファイルの内容をテキストボックスに表示する方法がうまくいきません。 ファイルの内容は 1行目→名前 2行目→メールアドレス 3行目→郵便番号 4行目→住所 5行目→購入した商品 をそれぞれ、textbox1～5に表示させたいと思っています。 書籍などで調べた結果 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim totalcount As Integer Dim oneline As String Dim sr As System.IO.StreamReader sr = New System.IO.StreamReader("C:hogehoge\" & ComboBox1.Text & ".txt") oneline = sr.ReadLine() sr.Close() Dim skipline As Integer Dim r As Random = New Random() skipline = r.Next(totalcount) sr = New System.IO.StreamReader("C:hogehoge\" & ComboBox1.Text & ".txt") Dim i As Integer = 0 Do While i < skipline sr.ReadLine() i += 1 Loop oneline = sr.ReadLine() sr.Close() TextBox1.Text = oneline TextBox2.Text = (skipline + 1).ToString() End Sub このような記述になりました。 textbox1には問題なく名前が表示されますが、textbox2には"1"と表示されてしまいます。 すみませんが、修正箇所を教えていただけませんか？ よろしくお願いいたします。

  • VB.NET テキストファイルにデータを書き込み

    テキストファイル("c:\test.txt")に「かきくけこ」と全角5文字で1行のデータがあるとします。 このテキストファイルに「あいうえお」を先頭に追加で書き込みたいのですが、どうすればいいのでしょうか？ あくまで「かきくけこ」を変数化せずファイルに直接、書き込む方法がある場合、教えてください。 'テキストファイルを開いたときの内容 あいうえお かきくけこ ちなみにですが、テキストファイル("c:\test.txt")に「かきくけこ」と全角5文字で1行のデータがあるとして、 末尾に「さしすせそ」を追加で書込みする方法は下記の通りでした。 'ファイルを書き込み用に開く、指定したファイルがない場合は作成する dim fsFile As System.IO.FileStream = _ System.IO.File.OpenWrite("c:\test.txt") 'StreamWriterオブジェクトを作成し、テキストデータが書き込めるようにする Dim sw As System.IO.StreamWriter = _ New System.IO.StreamWriter(fsFile) 'ファイルの末尾に移動する sw.BaseStream.Seek(0, System.IO.SeekOrigin.End) 'データを書き込む sw.WriteLine("さしすせそ") 'ファイルを更新する sw.Flush() 'ファイルを閉じる sw.Close() fsFile.Close() 'テキストファイルを開いたときの内容 かきくけこ さしすせそ

  • ファイルの排他

    ログの出力／照会時の排他処理について、教えて下さい。 環境 言語：VC++/CLI ＯＳ：Win VISTA 前提 ログ出力 ・ＡＰＬ起動時にログファイルをオープンする。 　（基本的にはオープンしっぱなし） ・メッセージ受信などイベント取得時にログに書き込む。 　（複数スレッドからの書込み処理あり） ・最大行数に達したら、ファイルをクローズして、 　新規にファイルをオープンしてそちらに書き込む。 　（aaa_1.log, aaa_2.log,・・・という具合） ログ照会 ・画面からボタン押下で今まで書き込んだログを照会する。 ・ログ照会時はオープン→リード→クローズとなります。 質問 複数スレッドから書込み処理がある場合に備えて排他をかける 「読み込み時に書込み発生（EOFがおかしくなるとか）」や 「書込み時に読み込み発生（行の半端なところで表示されるとか）」など、バッティングした際を考慮した排他のかけ方 について注意点があればご教授頂きたいのですが・・・ 単純に以下のような実装イメージでよろしいのでしょうか？ //////////////////////////////////// 書込み処理 //変数定義 StreamWriter^ sw = nullptr; 起動時 メソッド１ sw = gcnew StreamWriter( "TestFile.txt" ); 最大行数に達したら メソッド２ sw->Close(); sw = gcnew StreamWriter( "TestFile2.txt" ); //イベント発生 メソッド３ //排他処理 sw->WriteLine( "aaaa" ); //排他解除 //////////////////////////////////// //////////////////////////////////// 照会処理 //n=ファイルサイズを求めておく; //排他処理 StreamReader^ sr = gcnew StreamReader( "TestFile.txt" ); array<Char>^c = nullptr; while ( sr->Peek() >= 0 ) { c = gcnew array<Char>(n); sr->Read( c, 0, c->Length ); //ある理由でReadLineが 　　　　　　　　　　　　　　　　　//使えそうにないです 　　　　　　　　　　　　　　　　　//理由を説明すると 　　　　　　　　　　　　　　　　　//長くなりそうなので 　　　　　　　　　　　　　　　　　//省かせて下さい //画面出力領域 ← c } sr->Close(); //排他解除 //////////////////////////////////// 以上、宜しくお願い致します。

  • VB2008: ファイルから１行づつ読み込む関数のバグの修正方法？

    ' ========================================== '　全ての行を読み込んで "" 行以外を出力する ' ========================================== Module theGrap 　　Sub Main() 　　　　Dim iNow As Integer = 0 　　　　Dim iNext As Integer = 0 　　　　Dim aLine As String = "" 　　　　Do 　　　　　　iNow = iNext 　　　　　　aLine = FGets("D:\Temp\Test4.txt", iNow, iNext) 　　　　　　If aLine = "" Then Continue Do 　　　　　　Debug.Print(aLine) 　　　　Loop Until iNext = -1 　　End Sub End Module ［イミディエイト ウインドウ］ 123あいうえお90 123かきくけこ90 123さしすせそ90 と、成功しています。 ' -------------- '　行末まで読む ' -------------- Do 　　fs.Seek(iNowPosition, SeekOrigin.Begin) 　　fs.Read(aBuf, 0, 2) 　　aChar = ec.GetString(aBuf).Substring(0, 1) 　　If aChar <> Chr(13) Then 　　　　aChars &= aChar 　　Else 　　　　iNowPosition = iNowPosition - 1 　　　　Exit Do 　　End If 　　iNowPosition += txt.LenB(aChar) Loop While iNowPosition < fs.Length And (aChar <> Chr(13) Or aChar <> Chr(10)) しかし、実は、FGets 関数では１文字づつ読み込んでいます。 そこで、StreamReader で一行を読み込むように修正。 ［イミディエイト ウインドウ］ 123?????90 123?????90 123?????90 すると見事に化けてしまいました。 化けること自体は理解できるのですが、化けを修正する術がわかりません。 Function FGetl(ByVal aFile As String, _ 　　　　　　　 ByVal iNowPosition As Integer, _ 　　　　　　　 ByRef iNextPosition As Integer) As String 　　Dim aBuf(1) As Byte 　　Dim aChars As String = "" 　　iNextPosition = -1 　　If File.Exists(aFile) Then 　　　　Try 　　　　　　Using fs As FileStream = New FileStream(aFile, FileMode.Open, FileAccess.Read) 　　　　　　　　Dim sr As StreamReader 　　　　　　　　Dim ec As Encoding = Encoding.Default 　　　　　　　　fs.Seek(iNowPosition, SeekOrigin.Begin) 　　　　　　　　sr = New StreamReader(fs) 　　　　　　　　aChars = sr.ReadLine 　　　　　　　　iNowPosition += txt.LenB(aChars) 　　　　　　　　iNextPosition = NextPosition(fs, iNowPosition) 　　　　　　　　fs.Close() 　　　　　　　　Return aChars 　　　　　　End Using 　　　　Catch ex As IOException 　　　　　　MsgBox(ex.Message & "(FGets)", MsgBoxStyle.Exclamation, "エラー:") 　　　　　　Return "" 　　　　End Try 　　Else 　　　　Return "" 　　End If End Function 文字の化けを修正する方法を教えて頂ければ幸いです。

  • .NETで文字列のエンコードの仕方+ファイル操作

    .NETで文字列のエンコードの仕方が知りたいです。 あと、ファイル操作についてわかりやすいホームページを探しています。 '指定したファイルに文字列を追加します Dim filename as String = "test.txt" Dim data as string = "美味ソ溝" System.IO.File.AppendAllText(filename, data, System.Text.Encoding.GetEncoding("euc-jp")) 'これと同じことを以下のStreamWriterでしたいのですが、文字のエンコードの方法がわかりません。どのようにすればうまくいきますか。 Dim filename as String = "test.txt" Dim data as string = "美味ソ溝" Dim fs As System.IO.FileStream = System.IO.File.OpenWrite(filename) Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter(fs) sw.BaseStream.Seek(0, System.IO.SeekOrigin.End) '書き込む前にエンコード？？ sw.WriteLine(data) sw.Flush() sw.Close() fs.Close()

  • 【VC++2005(CLR)】読み込んだcsvファイルの一部を書き換えたい

    いつも大変お世話になっております。 VC++初心者です。 現在、VC++2005 Express Edition CLRでプロジェクトを作成しています。 表題の件なのですが、今まで以下のようにコーディングしていましたが、 読み取りはできるものの、書き込みができません。 何か良い方法はありませんでしょうか。 希望としては、ファイルの一箇所のみを書き換えたいので、 書き込み専用のファイルを用意して、読み込みファイルを 一行、一行コピーしたくないです。 　 すみませんが、よろしくお願い致します。 ***(表示を考慮するため、行の先頭に全角スペースを入れています。)*** String^ strDelimiter = ","; //","で分割する array<Char>^ delimiter = strDelimiter->ToCharArray(); array<String^>^ strData; //分割後の文字の入れ物 String^ strLine; //1行分のデータ System::IO::FileStream^ fs = gcnew System::IO::FileStream 　(path, System::IO::FileMode::Open, System::IO::FileAccess::ReadWrite, System::IO::FileShare::ReadWrite); System::IO::StreamReader^ sr = 　　gcnew System::IO::StreamReader(fs,System::Text::Encoding::Default); 　while(sr->Peek() >= 0){ //csvデータ分繰り返し 　　strLine = sr->ReadLine(); //1行読み込み 　　strData = strLine->Split(delimiter); //「,」で区切って、配列に分解 　　if (iWorkNum == int::Parse(strData[0])){ 　　　strData[2] = strWorkTime;//書き換えたい箇所はここだけ 　　　//※ここからの処理方法を教えて下さい。 　　} 　} } sr->Close(); fs->Close(); 　

  • VB　TEXT読み取りについて

    このコードでのデバックは成功したのですが、TEXTBOX1にファイルネーム C:\Users\？？？\Documents\？？？と入力しても’パスが拒否されました’と出てしまいます。 どう解決したらよいのでしょうか、宜しくお願いします。 Public Class Form1 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim sr As System.IO.StreamReader = Nothing Try Dim file As String = TextBox1.Text sr = New System.IO.StreamReader(file, System.Text.Encoding.GetEncoding("shift_jis")) Dim doc As String = "" Do Until sr.EndOfStream doc &= sr.ReadLine & vdcrlf() Loop TextBox2.Text = doc Catch ex As Exception MessageBox.Show(ex.Message, "read") Finally If sr IsNot Nothing Then sr.Close() sr.Dispose() End If End Try End Sub Private Function vdcrlf() As String Throw New NotImplementedException End Function End Class

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する