C# と VB.NET の質問掲示板

■No73515 (じっちゃん さん) に返信
> やりたいのは、ABC（41 42 43）の文字を検索して（ファイルには一箇所しか無い物とします。）、
> DATA(44 41 54 41)に書換えてファイル出力する。

手抜き実装：

Module Module1
    Sub Main()
        Dim srcFilePath = "C:\temp\test.txt"
        Dim dstFilePath = "C:\temp\test2.txt"

        Dim 捜索データ() As Byte = {&H41, &H42, &H43}
        Dim 置換データ() As Byte = {&H44, &H41, &H54, &H41}

        Dim 捜索長さ As Integer = 捜索データ.Length

        Dim 元バイナリ() As Byte = System.IO.File.ReadAllBytes(srcFilePath)
        Dim q = 元バイナリ.TakeWhile(Function(b, i) Not 元バイナリ.Skip(i).Take(捜索長さ).SequenceEqual(捜索データ)).ToArray()
        If q.Length < 元バイナリ.Length Then
            Dim 置換結果 = q.Concat(置換データ).Concat(元バイナリ.Skip(q.Length + 捜索長さ))
            System.IO.File.WriteAllBytes(dstFilePath, 置換結果.ToArray())
            Console.WriteLine("置換しました。")
        Else
            System.IO.File.WriteAllBytes(dstFilePath, 元バイナリ)
            Console.WriteLine("見つかりませんでした。")
        End If
    End Sub
End Module