12万作品が月額500円(税別)で見放題なのはdTVだけ!! >>dTV(外部リンク)

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行目の内容を別のファイルに書き出すコード]

このQ&Aに関連する最新のQ&A

A 回答 (1件)

概ねこんな感じでしょうか、細部は調整下さい


----------------------------------------------------------------
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) '2行目から10行目まで書き出し
End If
Loop
inp.Close()
out.Flush()
out.Close()
End Sub
End Class
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング