Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1248to1252
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1248to1252
1248to1252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vergleichen von label mit txt file

Vergleichen von label mit txt file
label
Hallo zusammen,
habe eine frage, wie kann ich den inhalt von einem label oder textbox mit einer *.txt datei vergleichen so das eine kleine änderung schon einen fehler ausgibt?
Momentan habe ich das:
Dim bChanged As Boolean
Dim sBuffer As String
If FileLen("uninstall.ini")  Len(UserForm1.uninstall.Caption) Then
bChanged = True
MsgBox "nein"
Else
MsgBox "ok"
End If
es funktioniert wen man etwas hinzufügt oder löscht aber ven man nur ein "a" mit einem "e" ersetzt gibt er mir immer noch "OK" aus.
Was muss ich ändern um genau den inhalt zu vergleichen?
Danke für die hilfe
Steve

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Vergleichen von label mit txt file
03.02.2012 19:40:47
label
Hi Steve
Mit FileLen erhältst du die Speichergröße einer Datei.
Bsp (meine Datei):
FileLen("D:\test.txt") = 12 Byte
Mit Len erhältst du die Anzahl Zeichen einer Eingabe.
Bsp (in Label1 steht das Wort "test.txt"
Len(Label1.Caption) = 8
Du kannst also die Ergebnisse dieser beiden Funktionen nicht miteinander vergleichen.
Wenn du wissen willst, ob der Inhalt der Datei uninstall.ini verändert wurde, dann musst du den Originalinhalt der Datei kennen und eben jede Zeile vergleichen.
Hilfts?
Ciao
Thorsten
AW: Vergleichen von label mit txt file
03.02.2012 19:48:50
label
Hallo Torsten,
Es hilft bis an einen gewissen punkt. :)
Jetzt weis ich das "Len" nur die grösse kontrolliert.
Hättest du mir einen anfang wie ich die zwei sachen vergleichen kann?
Ich weis beide inhalte, und daher wäre es kein problem.
Da ich auch was lernen will, wäre ein anfang sehr gut so das ich selber ändern oder veiter programmieren kann. :)
Besten Dank
Anzeige
AW: Vergleichen von label mit txt file
03.02.2012 20:07:38
label
Hi Steve
exakt zeilenweiser Vergleich zweier Textdateien (ungetestet): 

Dim arTxt1() As String, arTxt2() As String, liIdx As Integer, strZeile As String
Dim bChanged As Boolean
Open "Pfad\NameDeinerBekanntenOriginalDatei.txt" For Input As #1
Do While Not Eof(1)
Line Input #1, strZeile
ReDim Preserve arTxt1(liIdx)
arTxt1(liIdx) = strZeile
liIdx = liIdx + 1
Loop
Close
liIdx = 0
Open "Pfad\uninstall.ini" For Input As #1
Do While Not Eof(1)
Line Input #1, strZeile
ReDim Preserve arTxt2(liIdx)
arTxt2(liIdx) = strZeile
liIdx = liIdx + 1
Loop
Close
For liIdx = 0 To UBound(arTxt1)
If arTxt1(liIdx)  arTxt2(liIdx) Then
bChanged = True
Exit For
End If
Next
If bChanged = True Then
MsgBox "Nein"
Else
MsgBox "ok"
End If

Voraussetzung ist, dass beide Zeilen die gleiche Anzahl an Zeilen haben müssen.
Hilfts?
Ciao
Thorsten
Anzeige
AW: Vergleichen von label mit txt file
03.02.2012 20:31:53
label
Hallo Thorsten,
Besten dank.
Ich probiere jeztz das erste open file zu ändern da ich die infos von einer textbox auslese.
Nochmals besten dank für deine hilfe
Steve
AW: Vergleichen von label mit txt file
03.02.2012 20:29:57
label

Hallo Steve,
Sub test()
  Dim bChanged As Boolean
  Dim sBuffer As String
  
  If compareString(ReadFile("E:\uninstall.ini"), UserForm1.uninstall.Caption) Then
    MsgBox "ok"
  Else
    bChanged = True
    MsgBox "nein"
  End If
  
End Sub


Function compareString(ByRef String1 As String, ByRef String2 As String) As Boolean
  If Len(String1) <> Len(String2) Then Exit Function
  compareString = (String1 = String2)
End Function


Function ReadFile(ByRef Path As String) As String
  Dim FileNr As Long
  
  On Error Resume Next
  If FileLen(Path) = 0 Then Exit Function
  On Error GoTo 0
  
  FileNr = FreeFile
  Open Path For Binary As #FileNr
  ReadFile = Space$(LOF(FileNr))
  Get #FileNr, , ReadFile
  Close #FileNr
End Function



« Gruß Sepp »

Anzeige
AW: Vergleichen von label mit txt file
03.02.2012 21:45:32
label
Besten dank an alle!!
Besonders an Sepp und Thorsten.
Steve

Links zu Excel-Dialogen

Label TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige