ＶＢＡで２変数の差分を取る方法

質問

txtファイルをOpenステートメントで開き、Line Inputで文字列を入れた変数Xがあります。
それよりも新しいtxtファイルを同じように取り込んだ変数Yがあります。
例えばXの中身は５００行でYは５０３行などに増えています。
この３行を抽出するにはどうすれば良いのでしょうか。

回答No.6

fumufumu_2006 · ベストアンサー

追加分の場合を少し変更
Sub test()
Dim fso As New FileSystemObject
Dim file1 As String
Dim file2 As String
Dim size1 As Long
Dim buf As String

file1 = "C:\file1.txt" '旧ファイル
file2 = "C:\file2.txt" '新ファイル

'旧ファイルのサイズ（文字数、バイト数ではない）を取得
With fso.GetFile(file1).OpenAsTextStream
size1 = Len(.ReadAll)
.Close
End With

'新ファイル読み込み
With fso.GetFile(file2).OpenAsTextStream
.Skip size1 '読み込みスキップ
buf = .ReadAll '追加分読み込み
.Close
End With
Set fso = Nothing

MsgBox buf
'配列にするなら、
'Dim d() As String
'd = Split(buf, vbCrLf)
End Sub

ADODB.Streamを使って、file1を読まない場合
Sub test()
Dim strm As New ADODB.Stream
Dim fso As New FileSystemObject
Dim file1 As String
Dim file2 As String
Dim size1 As Long
Dim buf() As Byte
Dim s As String

file1 = "C:\file1.txt"
file2 = "C:\file2.txt" '新ファイル

'旧ファイルのサイズ（バイト数）を取得
size1 = fso.GetFile(file1).Size
Set fso = Nothing

'新ファイル読み込み
With strm
'バイナリで増えた分を読み込み
.Open
.Type = adTypeBinary
.LoadFromFile file2
.Position = size1
buf = .Read(adReadAll)
.Close

'文字列に変換
.Open
.Type = adTypeBinary
.Write buf
.Position = 0
.Type = adTypeText
.Charset = "shift_jis"
s = .ReadText(adReadAll)
.Close
End With
set strm = Nothing

MsgBox s
'配列にするなら、
'Dim d() As String
'd = Split(s, vbCrLf)
End Sub

お礼

fumufumuさん、たびたびすみません。
現在の方法でも遅れた時に手動で流れを一時ストップすれば動くことは動くんです。
ただ、それでは不完全なのでお聞きしました。
教えていただいたコードを自分でチェックしながらやってみます。

新回答が次々増えると困るので、一度これで締め切ります。
有り難うございました。