0

現在取り組んでいる SSIS パッケージの一部として、テキスト ファイルの行の where 句を置き換える必要があります。

これを達成するためにスクリプトでスクリプト タスクを使用することを考えてVB 2010いました。文字列を検索して置換する多くの方法を検索して成功裏に見つけましたが、文字列を検索してから行全体を置換する必要があります。それを含む。

たとえば、テキスト ファイルには次の内容を含めることができます。

Select= *

where= SDUPMJ>112310

where=' ' だけを検索して (実際の句は毎回異なるため)、行全体を ' where= SDUPMJ>112350'に置き換えたいと思います。

4

1 に答える 1

1

単独で行に存在する場合は、ストリームリーダーを使用してください。

これが私がそれをした方法のサンプルです：

Imports System.IO
Imports System.Text

Public Class Form1

Dim MyPath As String = "Path To Your Text File"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim Rdr As New StreamReader(MyPath)
    Dim ln As String
    Dim NewFile As New StringBuilder

    ln = Rdr.ReadLine

    Do Until ln Is Nothing

        If ln.StartsWith("where=") Then ln = "New Where Clause"
        NewFile.AppendLine(ln)
        ln = Rdr.ReadLine
    Loop

    Rdr.Close()

    File.WriteAllText(MyPath, NewFile.ToString)

End Sub
End Class

お役に立てれば

于 2012-11-06T14:43:32.417 に答える