VB2005で、ファイル操作 VB6から触っていないので感覚がいまいち。

質問

VB2005で、ファイルを読み込み2行目から10行までを別ファイルに吐き出すコードがわからないのですが、
わかる方教えていただますか？
途中まではできたのですが、後がわかりません。
よろしくお願いいたします。

また、VB2005でわかりやすい書籍など紹介していただけましたら助かります。

'ファイルを開く
Dim fs As New System.IO.FileStream(fileName, _
System.IO.FileMode.Open, System.IO.FileAccess.Read)

'ファイルを読み込むバイト型配列を作成する
Dim bs(fs.Length - 1) As Byte
'ファイルの内容をすべて読み込む
fs.Read(bs, 0, bs.Length)
'閉じる
fs.Close()

....[改行をLFとした場合に2行から10行目の内容を別のファイルに書き出すコード]

回答No.1

BLUEPIXY · ベストアンサー

概ねこんな感じでしょうか、細部は調整下さい
----------------------------------------------------------------
Imports System
Imports System.IO
Imports System.Text

Class ExampleClass
Shared Sub Main()
Dim inp As StreamReader = new StreamReader("LFFILE.txt", _
Encoding.GetEncoding("shift_jis"))
Dim Fs As FileStream = New FileStream("out.txt", _
FileMode.Create, FileAccess.Write, FileShare.None)
Dim out As StreamWriter = _
New StreamWriter(Fs, Encoding.GetEncoding("shift_jis"))

Dim oneLine As String
Dim count As Integer = 0

Do While inp.Peek() >= 0
oneLine = inp.ReadLine()
count += 1
If 2 <= count And count <= 10 Then
out.Write(oneLine & vbLF) '２行目から１０行目まで書き出し
End If
Loop
inp.Close()
out.Flush()
out.Close()
End Sub
End Class