0

.iniファイルで重複する行を見つけるループがあります。重複した行を見つけて、FileSystemObjectを使用してファイルに新しい行を書き込むことはできますが、重複した行を削除する方法がわからないようです。関連する行番号をすでに特定しているので、行番号で行を削除します。

これを行うためのネイティブな方法はありますか、それとも重複行を除いてファイルを書き換える場合ですか？

どんな助けでも大歓迎です。

ありがとう。

重複エントリを見つける私の方法は次のとおりです。

  Do While Not file.AtEndOfStream
    intLineNumber = intLineNumber + 1
    strReadLineText = file.ReadLine
    If strSearchText <> "" And InStr(strReadLineText, strSearchText) > 0 Then
      session("message") = "Line Exists on " + Cstr(intLineNumber)
      '' # delete duplicate line...

    End If
  Loop
  file.Close()

私のコメントがどこにあるかがわかります。見つかった行を削除したい場所です。

4

1 に答える 1

5

VBScript (または組み込みオブジェクト) でこれを行うための組み込みメソッドはありません。

私の投票は、これを達成するために文字列連結を使用することです。つまり、行を削除する代わりに、行ごとに新しいファイルを作成し、作成中の文字列にその行が存在しない場合にのみ文字列に追加します。

于 2009-09-01T23:52:22.660 に答える