根据指定字符在文本中插入一行字符，给我个思路
文本格式如下：
T01
T02
T02
T03
T02
T04
T04
T05
......
我设置一个关键字"T02",就在最后一个T02下面插入一行我想插入的字符（就是T04上面一行），然后保存
再比如我设置关键字“T04”，就在最后一个T04下面一行插入我想插入的字符（T05上面一行）然后保存。
最终文本如下：
T01
T02
T02
T03
T02
字符1
T04
T04
字符2
T05
......
请问，如何实现！！
谢谢！
[解决办法]
一个用二进制方式打开文件的方案
Private Sub Command1_Click()
Dim strTmp As String, bytTmp() As Byte, n As Long
Open "c:\test\test.txt" For Binary As #1
strTmp = String(LOF(1), Space(1))
Get #1, , strTmp
n = InStrRev(strTmp, Text1) + Len(Text1) + 1
Seek #1, 1
bytTmp = StrConv(Left(strTmp, n), vbFromUnicode)
Put #1, , bytTmp
Put #1, , Text2.Text & vbCrLf
bytTmp = StrConv(Mid(strTmp, n + 1), vbFromUnicode)
Put #1, , bytTmp
Close #1
End Sub
