文件比较器和问题

Option ExplicitPublic jsl&, jsr&, tl$, tr$, l&, r&, FILE1$, FILE2$Private Sub Form_Load()cd1.Filter = "源文件和文本文件(*.cpp;*.c;*.h;*.txt)|*.cpp;*.c;*.h;*.txt|所有文件(*.*)|*.*"RTB1.Text = ""RTB2.Text = ""Label2.Caption = "文件1:"Label3.Caption = "文件2:"Label4.Caption = "有效行：0"Label5.Caption = "有效行：0"RTB1.RightMargin = 100000RTB2.RightMargin = 100000End Sub'Function textcmp()'jsl = 1'jsr = 1'i = 0'j = 0'Do Until Mid(RTB1.Text, jsr + 1, 1) = "" Or jsl = LList(1, 1)'jsr = jsr + 1'If Asc(Mid(RTB1.Text, jsr, 1)) <> 13 And Asc(Mid(RTB1.Text, jsr - 1, 1)) = 10 Then' i = i + 1' If i = PPL(jsl) Then jsl = jsl + 1: j = jsr: colortext (j)'End If'Loop'End FunctionFunction max(a&, b&, c&)If a >= b And a >= c Then max = aIf b >= c And b >= a Then max = bIf c >= b And c >= a Then max = cEnd FunctionPrivate Sub Command1_Click()If Len(RTB1.Text) = 0 Or Len(RTB2.Text) = 0 Then MsgBox "空文本不能比较", vbOKOnly, "错误": Exit SubDim i&, j&, k&, outbuffer1$, outbuffer2$Dim CList() As Long, LList() As Long, NList() As Long, PPL() As Long, PPR() As Long, FL() As String, FR() As StringIf Option1.Value = True Then GoTo 100 Else GoTo 200100ReDim CList(jsl + 1, jsr + 1) As Long, LList(jsl + 1, jsr + 1) As Long, NList(jsl + 1, jsr + 1) As Long, FL(jsl) As String, FR(jsr) As String'加载文件到数组l = 0Open FILE1 For Input As #1Do While Not EOF(1) Line Input #1, tl l = l + 1: FL(l) = tlLoopClose #1r = 0Open FILE2 For Input As #2Do While Not EOF(2) Line Input #2, tr r = r + 1: FR(r) = trLoopClose #2GoTo 300200ReDim CList(l + 1, r + 1) As Long, LList(l + 1, r + 1) As Long, NList(l + 1, r + 1) As Long, FL(l) As String, FR(r) As String'加载文件到数组l = 0Open FILE1 For Input As #1Do While Not EOF(1) Line Input #1, tl If tl <> "" Then l = l + 1: FL(l) = tlLoopClose #1r = 0Open FILE2 For Input As #2Do While Not EOF(2) Line Input #2, tr If tr <> "" Then r = r + 1: FR(r) = trLoopClose #2300'行比较和建表↓For jsl = 1 To l For jsr = 1 To r If FR(jsr) = FL(jsl) Then CList(jsl, jsr) = 1 Next jsrNext jsl'N表处理部分↓For jsl = 1 To l For jsr = 1 To r NList(l - jsl + 1, r - jsr + 1) = max(NList(l - jsl + 2, r - jsr + 1), (CList(l - jsl + 1, r - jsr + 1) + NList(l - jsl + 2, r - jsr + 2)), NList(l - jsl + 1, r - jsr + 2)) Next jsrNext jslIf NList(1, 1) = 0 Then MsgBox "无相同行文本", vbOKOnly, "不同": Exit Sub'L表处理部分↓For jsl = 1 To l For jsr = 1 To r If CList(l - jsl + 1, r - jsr + 1) = 1 Then LList(l - jsl + 1, r - jsr + 1) = LList(l - jsl + 2, r - jsr + 2) + 1 Else If NList(l - jsl + 1, r - jsr + 2) = NList(l - jsl + 2, r - jsr + 1) Then If LList(l - jsl + 2, r - jsr + 1) > LList(l - jsl + 1, r - jsr + 2) Then LList(l - jsl + 1, r - jsr + 1) = LList(l - jsl + 1, r - jsr + 2) + 1 Else LList(l - jsl + 1, r - jsr + 1) = LList(l - jsl + 2, r - jsr + 1) + 1 Else If NList(l - jsl + 1, r - jsr + 2) > NList(l - jsl + 2, r - jsr + 1) Then LList(l - jsl + 1, r - jsr + 1) = LList(l - jsl + 1, r - jsr + 2) + 1 Else LList(l - jsl + 1, r - jsr + 1) = LList(l - jsl + 2, r - jsr + 1) + 1 End If End If Next jsrNext jsl'查找第一坐标↓'For jsl = 1 To l '查找待选第一坐标，以确定个数' For jsr = 1 To r' If NList(jsl, jsr) <> NList(1, 1) Then Exit For' If CList(jsl, jsr) = 1 Then i = i + 1' Next jsr'Next jsl'ReDim PPL(i), PPR(i) '用确定的个数重定义坐标数组'i = 0'For jsl = 1 To l '重复查找,确定待选第一坐标中路径最短的一个，并保存其在L表中的值，以及其坐标' For jsr = 1 To r' If NList(jsl, jsr) <> NList(1, 1) Then Exit For' If CList(jsl, jsr) = 1 Then i = i + 1: PPL(i) = jsl: PPR(i) = jsr' Next jsr'Next jsl'jsr = LList(PPL(1), PPR(1)) '把第一个待选"第一坐标"在N表中的值赋值给jsr'For jsl = 1 To i '循环待选坐标的个数次' If jsr > LList(PPL(jsl), PPR(jsl)) Then jsr = LList(PPL(jsl), PPR(jsl)): i = PPL(jsl): j = PPR(jsl) '如果有坐标在N表中的值小于了已赋值的jsr，则把该值赋予jsr，以挑选最小的值,同时记录该值的坐标'Next jsl'获取最短路径ReDim PPL(LList(1, 1)), PPR(LList(1, 1))PPL(1) = 1: PPR(1) = 1For jsl = 1 To LList(PPL(1), PPR(1)) - 1 If CList(PPL(jsl), PPR(jsl)) = 1 Then PPL(jsl + 1) = PPL(jsl) + 1: PPR(jsl + 1) = PPR(jsl) + 1 Else If NList(PPL(jsl), PPR(jsl) + 1) = NList(PPL(jsl) + 1, PPR(jsl)) Then If LList(PPL(jsl), PPR(jsl) + 1) > LList(PPL(jsl) + 1, PPR(jsl)) Then PPL(jsl + 1) = PPL(jsl) + 1: PPR(jsl + 1) = PPR(jsl) Else PPL(jsl + 1) = PPL(jsl): PPR(jsl + 1) = PPR(jsl) + 1 Else If NList(PPL(jsl), PPR(jsl) + 1) > NList(PPL(jsl) + 1, PPR(jsl)) Then PPL(jsl + 1) = PPL(jsl): PPR(jsl + 1) = PPR(jsl) + 1 Else PPL(jsl + 1) = PPL(jsl) + 1: PPR(jsl + 1) = PPR(jsl) End If End IfNext jsl'获取路径上的匹配点坐标j = 0 '用于记录匹配点个数For i = 1 To LList(1, 1) If CList(PPL(i), PPR(i)) = 1 Then j = j + 1: PPL(j) = PPL(i): PPR(j) = PPR(i)Next i'行重排处理For i = 1 To NList(1, 1) If PPL(i) - PPL(i - 1) > 1 Then '开始输出前一匹配点到当前匹配点之间左侧的不同行 For jsl = PPL(i - 1) + 1 To PPL(i) - 1 outbuffer1 = outbuffer1 & jsl & Chr(9) & FL(jsl) & Chr(13) & Chr(10): j = j + Len(FL(jsl)) + 2 + Len(Str(jsl)) Next jsl End If If PPR(i) - PPR(i - 1) > 1 Then '开始输出前一匹配点到当前匹配点之间右侧的不同行 For jsr = PPR(i - 1) + 1 To PPR(i) - 1 outbuffer2 = outbuffer2 & jsr & Chr(9) & FR(jsr) & Chr(13) & Chr(10): k = k + Len(FR(jsr)) + 2 + Len(Str(jsr)) Next jsr End If If PPL(i) - PPL(i - 1) > PPR(i) - PPR(i - 1) Then '右侧输出回车调整行号 For jsr = 1 To Abs(PPL(i) - PPL(i - 1) - (PPR(i) - PPR(i - 1))) outbuffer2 = outbuffer2 & Chr(13) & Chr(10): k = k + 2 Next jsr End If If PPL(i) - PPL(i - 1) < PPR(i) - PPR(i - 1) Then '左侧输出回车调整行号 For jsr = 1 To Abs(PPL(i) - PPL(i - 1) - (PPR(i) - PPR(i - 1))) outbuffer1 = outbuffer1 & Chr(13) & Chr(10): j = j + 2 Next jsr End If outbuffer1 = outbuffer1 & PPL(i) & Chr(9) & FL(PPL(i)) & Chr(13) & Chr(10): j = j + Len(FL(PPL(i))) + 2 + Len(Str(PPL(i))) '输出左侧向同行 outbuffer2 = outbuffer2 & PPR(i) & Chr(9) & FR(PPR(i)) & Chr(13) & Chr(10): k = k + Len(FR(PPR(i))) + 2 + Len(Str(PPR(i))) '输出右侧向同行Next iIf PPL(NList(1, 1)) < l Then '输出最后一个匹配点之后的左侧不同行 For jsl = PPL(NList(1, 1)) + 1 To l outbuffer1 = outbuffer1 & jsl & Chr(9) & FL(jsl) & Chr(13) & Chr(10): j = j + Len(FL(jsl)) + 2 + Len(Str(jsl)) Next jslEnd IfIf (l - PPL(NList(1, 1))) < (r - PPR(NList(1, 1))) Then '输出回车，使行同步 For jsl = 1 To Abs((r - PPR(NList(1, 1))) - (l - PPL(NList(1, 1)))) outbuffer1 = outbuffer1 & Chr(13) & Chr(10) Next jslEnd IfIf PPR(NList(1, 1)) < r Then '输出最后一个匹配点之后的右侧不同行 For jsr = PPR(NList(1, 1)) + 1 To r outbuffer2 = outbuffer2 & jsr & Chr(9) & FR(jsr) & Chr(13) & Chr(10): k = k + Len(FR(jsr)) + 2 + Len(Str(jsr)) Next jsrEnd IfIf (l - PPL(NList(1, 1))) > (r - PPR(NList(1, 1))) Then '输出回车，使行同步 For jsl = 1 To Abs((r - PPR(NList(1, 1))) - (l - PPL(NList(1, 1)))) outbuffer2 = outbuffer2 & Chr(13) & Chr(10) Next jslEnd IfRTB1.Text = outbuffer1: RTB2.Text = outbuffer2 '重排序输出'着色处理j = 0: k = 0 '用于记录输出的字符数For i = 1 To NList(1, 1) If PPL(i) - PPL(i - 1) > 1 Then '开始着色前一匹配点到当前匹配点之间左侧的不同行 For jsl = PPL(i - 1) + 1 To PPL(i) - 1 j = j + Len(FL(jsl)) + 2 + Len(Str(jsl)) RTB1.SelStart = j - Len(FL(jsl)) - 2 RTB1.SelLength = Len(FL(jsl)) RTB1.SelColor = vbRed Next jsl End If If PPR(i) - PPR(i - 1) > 1 Then '开始着色前一匹配点到当前匹配点之间右侧的不同行 For jsr = PPR(i - 1) + 1 To PPR(i) - 1 k = k + Len(FR(jsr)) + 2 + Len(Str(jsr)) RTB2.SelStart = k - Len(FR(jsr)) - 2 RTB2.SelLength = Len(FR(jsr)) RTB2.SelColor = vbRed Next jsr End If If PPL(i) - PPL(i - 1) > PPR(i) - PPR(i - 1) Then '记录右侧输出回车字符数 For jsr = 1 To Abs(PPL(i) - PPL(i - 1) - (PPR(i) - PPR(i - 1))) k = k + 2 Next jsr End If If PPL(i) - PPL(i - 1) < PPR(i) - PPR(i - 1) Then '记录左侧输出回车字符数 For jsr = 1 To Abs(PPL(i) - PPL(i - 1) - (PPR(i) - PPR(i - 1))) j = j + 2 Next jsr End If j = j + Len(FL(PPL(i))) + 2 + Len(Str(PPL(i))) '记录左侧相同行字符数 k = k + Len(FR(PPR(i))) + 2 + Len(Str(PPR(i))) '记录右侧相同行字符数Next iIf PPL(NList(1, 1)) < l Then '着色最后一个匹配点之后的左侧不同行 For jsl = PPL(NList(1, 1)) + 1 To l j = j + Len(FL(jsl)) + 2 + Len(Str(jsl)) RTB1.SelStart = j - 2 - Len(FL(jsl)) RTB1.SelLength = Len(FL(jsl)) RTB1.SelColor = vbRed Next jslEnd IfIf PPR(NList(1, 1)) < r Then '着色最后一个匹配点之后的右侧不同行 For jsr = PPR(NList(1, 1)) + 1 To r k = k + Len(FR(jsr)) + 2 + Len(Str(jsr)) RTB2.SelStart = k - 2 - Len(FR(jsr)) RTB2.SelLength = Len(FR(jsr)) RTB2.SelColor = vbRed Next jsrEnd If End SubPrivate Sub Command2_Click() '打开文件1l = 0: RTB1.Text = ""cd1.ShowOpenIf cd1.FileName = "" Then Exit SubOpen cd1.FileName For Input As #1RTB1 = StrConv(InputB(LOF(1), #1), vbUnicode)FILE1 = cd1.FileNameClose #1Open cd1.FileName For Input As #1Do While Not EOF(1) Line Input #1, tl jsl = jsl + 1 If tl <> "" Then l = l + 1LoopCloseLabel4.Caption = "有效行：" & lLabel2.Caption = "文件1:" & cd1.FileNameEnd SubPrivate Sub Command3_Click() '打开文件2r = 0: RTB2.Text = ""cd1.ShowOpenIf cd1.FileName = "" Then Exit SubOpen cd1.FileName For Input As #2RTB2 = StrConv(InputB(LOF(2), #2), vbUnicode)Close #2Open cd1.FileName For Input As #2Do While Not EOF(2) Line Input #2, tr jsr = jsr + 1 If tr <> "" Then r = r + 1LoopFILE2 = cd1.FileNameClose #2Label5.Caption = "有效行：" & rLabel3.Caption = "文件2:" & cd1.FileNameEnd SubPrivate Sub Form_Resize() '窗口大小调整时,控件坐标调整函数If Form1.Height < 3000 Then Form1.Height = 3000If Form1.Width < 3000 Then Form1.Width = 3000RTB1.Height = Form1.Height - (8850 - 6975)RTB1.Width = Form1.Width / 2 - 120RTB2.Left = Form1.Width / 2 + 20RTB2.Height = Form1.Height - (8850 - 6975)RTB2.Width = RTB1.WidthLabel2.Width = RTB1.WidthLabel3.Left = RTB2.LeftLabel3.Width = RTB2.WidthLabel4.Top = Form1.Height - (8850 - 8040)Label4.Width = RTB1.WidthLabel5.Left = RTB2.LeftLabel5.Top = Label4.TopLabel5.Width = RTB2.WidthEnd Sub

这些代码就是了

用了CommandButton1，CommandButton2，CommandButton3

RTB1,RTB2(RichTextBox）

Label2，Label3，Label4，Label5

cd1（commondialog）

这么几个控件

 

问题来自我的帖子

http://topic.csdn.net/u/20091205/15/631d9bb6-d496-4d6e-815b-2cff39d19c85.html

 

还有form_resized函数中的两行if语句导致我最小化窗口出错了，但是如果没有这两行如何限制窗口大小太小而出错？