VB监控一个TXT，如TXT内容有变化，则将变化了的内容（与上一次不同的那部分内容）输出到TXT1的文本框

100文

帮忙下啊

没写过这种的程序。

基本流程如下：
1、打开这个TXT文件，把内容全部读到内存里。
2、调用API，监视这个TXT文件。这步，我没写过。
3、收到 TXT文件有变化的消息时，打开这个TXT文件，读内容。
4、与上次的内容相比较，算法你自己搞定。显示不同的地方。 这步，我也没写过。

谢谢
我现在写出了一部分
Private Sub Command1_Click()
Open "d:\1.txt" For Input As #1
Open "d:\3.txt" For Output As #3
Open "d:\2.txt" For Input As #2
Do While Not EOF(2)

If EOF(1) = True Then
Line Input #2, b
Print #3, b
Else
Line Input #1, a
Line Input #2, b
End If

Loop

Close (1)
Close (2)
Close (3)
End Sub

1.text 和 2.text 如果有不同的只是后面的不同如
1.text

a
b
c
d

2.text
a
b
c
d
e

若档案有被修改过～最后修改时间一定会改变～
定时查询比对最后修改时间～有变再进去查就好了～
查法我只写过VC6的～VB6太慢～

简单点的去Call出UltraEdit的比对功能～

用数组也可以实现

    Open "c:\1.txt" For Input As #1
    Do While Not EOF(1)
        i = i + 1
        ReDim Preserve a(i)
        Line Input #1, a(i)
    Loop
    Close #1
    Open "c:\2.txt" For Input As #2
    Do While Not EOF(2)
        j = j + 1
        ReDim Preserve b(j)
        Line Input #2, b(j)
    Loop
    Close #2

剩下就是比较这两个数组了用个判断语句就可以实现了

都大神啊，小白伤不起