这段代码哪里有误

faceyao

目的：2分钟后，作文增加了内容，要得出最后部分是增加了哪些内容

Dim $hOutPut

$hSouce = ControlGetText("[CLASS:Notepad]", "", "Edit1")

Sleep(120000)

$hTarget = ControlGetText("[CLASS:Notepad]", "", "Edit1")


        Func _FileListCompare($hSouce,$hTarget,$hOutPut)
        $hLine_S = _FileCountLines($hSouce)
        $hCon_T = FileRead($hTarget)
        For $hSi = 1 To $hLine_S
                $hS_String = StringSplit(FileReadLine($hSouce,$hSi),"|")
                If Not StringInStr($hCon_T,$hS_String[1]) Then
                        FileWriteLine($hOutPut,$hS_String[1])
                EndIf
        Next
        EndFunc


MsgBox(0, "",$hOutPut)

这样运行后无效果，新增加的内容显示不出来，请问哪里写错了？

(以上代码参考了此udf 内容
http://www.autoitx.com/forum.php ... hlight=%B2%BB%CD%AC)

大绯狼

看到楼主的帖子就简单的写了下。。。。不知道是不是这个意思
[au3]#include <file.au3>
Dim $hOutPut
WinActivate("[CLASS:Notepad]")
$before = ControlGetText("[CLASS:Notepad]", "", "Edit1")

Sleep(5000)

$after = ControlGetText("[CLASS:Notepad]", "", "Edit1")

_Compare($before, $after)

Func _Compare($hSouce, $hTarget)
        Select
                Case StringCompare($hSouce, $hTarget) > 0
                        MsgBox(0, 0, "减少了" & StringReplace($hSouce, $hTarget, ""))
                Case StringCompare($hSouce, $hTarget) < 0
                        MsgBox(0, 0, "增加了" & StringReplace($hTarget, $hSouce, ""))
                Case StringCompare($hSouce, $hTarget) = 0
                        MsgBox(0, 0, "没有增加内容")
        EndSelect
EndFunc   ;==>_Compare[/au3]

faceyao

2# 大绯狼

谢谢，请问

& StringReplace($hSouce, $hTarget, "")

这段代码是何意，这里的&是msgbox的还是StringReplace的？

大绯狼

&是字符串连接符
StringReplace($hSouce, $hTarget, "")就是把前后2个字符串对比 取出不同的部分
按理说这么写是有问题的 我考虑也不怎么周全

faceyao

4# 大绯狼


谢谢大绯狼 师兄，已解决