0

たくさんの情報を含むテキストファイルがあります。私がやろうとしているのは_、この行を見つけたら、6行下の行をコピーして、下の1行目に追加することです。情報の他の行を削​​除します。

例えば：

_
青
バツ
バツ
バツ
バツ
10.5
バツ
バツ
バツ
_
オレンジ
バツ
バツ
バツ
バツ
15.1
バツ
バツ
バツ
_

として表示したい

ブルー10.5
オレンジ15.1

現在、VS2010を使用しています。

4

1 に答える 1

2

IO.StreamReaderファイルの行を読み取るために使用します。

Dim sr As New StreamReader(sFilePath)

そして、行をループして、あなたが求めたことを行います:

Dim sLine, sResult As String
Dim iCont As Integer = -1

sResult = ""
sLine = sr.ReadLine()

While Not sr.EndOfStream
    If sLine.StartsWith("_"c) Then iCont = 0

    Select Case iCont
        Case 1
            sResult &= sLine & " "
        Case 6
            sResult &= sLine & Environment.NewLine()
    End Select

    If iCont >= 0 Then iCont += 1
    sLine = sr.ReadLine()
End While

sr.Close()
MessageBox.Show(sResult)

編集:
ファイルに書き込みたい場合:

Dim sw As New StreamWriter(sNewFilePath)

sw.Write(sResult)
sw.Close()

他に何も必要ない場合は、これも実行できます。

IO.File.WriteAllText(sNewFilePath, sResult)


ドキュメンテーション:

于 2013-02-27T11:04:30.700 に答える