VB6代码：
Dim s() As String, i As Long
Open "原文件名及路径，自己改" For Binary As #1
s = Split(Input(LOF(1), #1), " ")
Close #1
Open "输出文件名及路径，自己改" For OutPut As #1
For i = 0 To UBound(s)
If Left(s(i), 1) = "R" And Right(s(i), 1) = "B" Then Print #1, s(i)
Next
Close #1
Dim s() As String, i As Long
Open "原文件名及路径，自己改" For Binary As #1
s = Split(Input(LOF(1), #1), " ")
Close #1
Open "输出文件名及路径，自己改" For OutPut As #1
For i = 0 To UBound(s)
If Left(s(i), 1) = "R" And Right(s(i), 1) = "B" Then Print #1, s(i)
Next
Close #1