Visual Basic Forum

bla · Coder Anmeldedatum: 02.05.2008 Beiträge: 267

hi,

hier mal eine funktion, die 2 textdateien zeilenweise einließt und dann schaut ob diese identisch sind. wenn nicht werden sie in einer textbox angezeigt...
die textbox sollte auf multiline = true gestellt sein

Visual Basic: [code]'die textbox sollte multiline = true haben
Public Sub TexteVergleichen(Dateipfad1 As String, Dateipfad2 As String, Txtbox As TextBox)
On Error GoTo Fehler

Dim F, G As Integer
Dim sLine, Text1, Text2 As String
Dim lRow As Long

lRow = 0
Txtbox.Text = ""

'wenn Datei nicht vorhanden
If Dir$(Dateipfad1) = "" Or Dir$(Dateipfad2) = "" Then
MsgBox "Eine oder beide Dateien sind nicht vorhanden!", vbCritical, "3rr0r"
GoTo Ende
End If

'Dateien zum Lesen öffnen
F = FreeFile
Open Dateipfad1 For Input As #F
G = FreeFile
Open Dateipfad2 For Input As #G

'Zeilenweise durcharbeiten
While Not EOF(F)

lRow = lRow + 1

'Zeilen auslesen
Line Input #F, sLine
Text1 = sLine
Line Input #G, sLine
Text2 = sLine

'wenn die zeile ungleich ist, dann in txtbox schreiben
If Text1 <> Text2 Then
Txtbox.Text = Txtbox.Text & vbNewLine & _
"Zeile " & lRow & ": " & Text1 & " | " & Text2
End If

Wend

'Dateien wieder schließen
Close #F
Close #G

Exit Sub
Fehler:
MsgBox "Es ist ein Fehler aufgetreten!" & vbNewLine & _
Err.Number & ": " & Err.Description _
, vbCritical, "3rr0r"

Ende:
End Sub
[/code]

beispielaufruf:
Visual Basic: [code]Call TexteVergleichen("C:text1.txt", "C:text2.txt", Text1)
[/code]

ein "problem" is dabei aber noch: es wird solange vergleicht bis die erste datei zuende ist. danach is schluss
aber ihr könnt die sub ja beliebig ändern
_________________