求大家帮做个VB软件

来源：百度知道 编辑：UC知道 时间：2024/09/23 08:24:43
就是检测一个TXT文本
然后
发现一行有重复的(保留一个)
下面就2行(带第一行)给删除
然后写入另一个TXT文本

都6级了，也不给分。

100分起码
200分我帮你写

欺负小朋友啊～
10~20

重复的两行非要连着么

ab
cbc
ab

算不

Public Function CheckFile(FilePath As String) As String
Dim i As Integer, a As String, b As Long
i = FreeFile
CheckFile = Chr(13) & Chr(10)
Open FilePath For Input As #i
Do While Not EOF(i)
Line Input #i, a
b = InStr(1, CheckFile, Chr(13) & Chr(10) & a & Chr(13) & Chr(10), vbTextCompare)
If b <= 0 Then
CheckFile = CheckFile & a & Chr(13) & Chr(10)
End If
Loop
Close #i
CheckFile = Right(CheckFile, Len(CheckFile) - 2)
End Function
函数反回值即为文件内容