怎么实现查找重复章节功能

网络小说来源复杂，软件只能做些辅助工作，比如尝试识别章节，最终还是要人工确认的

一个8.79M的小说查找一次重复章节用时149秒..
Private Sub cmdFindLine_Click()
On Error GoTo err
If Dir(cdTxt.FileName) = "" Or cdTxt.FileName = "" Then Exit Sub
Dim i&, j&, k&, fcf%, xTmp$, yTmp$, zTmp$
lstOver.Clear
zTmp = Time
For i = 1 To UBound(readBack) Step 5 '以每次连取三行的方式全局对比
If i + 5 > UBound(readBack) Then Exit For '判断是否到结尾
If readBack(i) = "" Then GoTo Fj
xTmp = readBack(i) + vbCrLf + readBack(i + 1) + vbCrLf + readBack(i + 2)
DoEvents
txtShow = "进度:" & Str(i) & "/" & Str(UBound(readBack)) + vbTab + "用时" + Str(DateDiff("s", zTmp, Time)) + " 秒."
For j = i + 5 To UBound(readBack)
If j + 5 > UBound(readBack) Then Exit For '判断是否到结尾
yTmp = readBack(j) + vbCrLf + readBack(j + 1) + vbCrLf + readBack(j + 2)
If xTmp = yTmp And i <> j Then
fcf = 0
For k = 0 To lstOver.ListCount - 1
If Str(i) + "||" + readBack(i) = lstOver.List(k) Then fcf = 1
Next
If fcf = 0 Then
lstOver.AddItem Str(i) + "-" + readBack(i)
lstOver.AddItem Str(j) + "-" + readBack(j)
End If
End If
Next
Fj:
Next
Call ShowChar("查找完成！", labMoveChar, lblVer)
Exit Sub
err:
MsgBox err.Description & cmdFindLine.Caption
err.Clear
End Sub
用的2层for,5行5行校正,还有别的方法吗?

文本逐行比较？效率太低了，最好导入数据库再进行查找，写个小程序导入应该不难，就是导入要费些时间。导入前做好章节划分，按一行一记录的形式，同时保存章节号、行号。
用数据库查找的逻辑：
以章节为单位查找，取章节（章节号Cn）内的行（行号Ln），查找其他章节的行（章节号>Cn）。这里可能就是个难点，不同的来源会添加一些字符，比如网站名字，或者编辑内容（哪怕是一个标点也会导致无法找到），用模糊查找会解决一些问题。
如果有查找到（行号Lm），继续比较后面的行，Ln+1和Lm+1，Ln+2和Lm+2...制定一个阀值比如3行相同则判断章节（可能）重复，后面需要人工判定。
如果章节划分比较麻烦也可以直接导入，取消后面的阀值，将查找到的行全部显示出来。
总的来说，除非是一模一样的重复章节（作者手抖Ctrl+V了两次）或者你事先可以确定的模式，否则软件起的作用其实不大。当然如果重复的比较多，用软件查找至少比人工查找要好。