指定されたファイル内の文字列を一括置換する。

'指定されたファイル内の文字列を一括置換する。
Sub replacefile(infile As String, outfile As String, inpstr As String, rplstr As String)
    Dim onum As Integer, inum As Integer, wkstr() As Byte
        inum = FreeFile
        Open infile For Binary Access Read As #inum
        ReDim wkstr(LOF(inum))
        Get #inum, 1, wkstr
        onum = FreeFile
        Open outfile For Binary Access Write As #onum
        Put #onum, 1, Replace(StrConv(wkstr, vbUnicode), inpstr, rplstr)
        Close #onum
        Close #inum
End Sub

トップページに戻る

Tips一覧に戻る