XProfan

Kompilieren Marca Separación

Frank
Abbing

Hi,

hier mi Variante, con el beliebige Archivos en Gleichheit geprüft voluntad puede. Und el muy rápidamente.

Archivos en Gleichheit prüfen
(c) Franco Abbing
Conjunto("ErrorLevel",0)
Declarar texto$
Def CompareStrings(2) !"KERNEL32","lstrcmpi"
Cls
text$=SameDatas("Dateiname_1","Dateiname_2")
Imprimir "Die beiden Archivos son "+texto$+"."
WaitInput
End
Zwei Archivos vergleichen
SameDatas para1, para2
para1 = Name de Expediente 1
Para2 = Name de Expediente 2

Proc SameDatas

    Parámetros gtext1$,gtext2$
    Declarar gx&,gx1&,gx2&,gbereich1#,gbereich2#
    gx1&=FileSize(gtext1$)
    gx2&=FileSize(gtext2$)
    gx&=gx1&+gx2&

    If ((gx&>0) and (gx1&=gx2&))

        Dim gbereich1#,gx1&
        Asignar #1,gtext1$
        OpenRW #1
        @BlockRead(#1,gbereich1#,0,gx1&)
        CloseRW #1
        Dim gbereich2#,gx2&
        Asignar #1,gtext2$
        OpenRW #1
        @BlockRead(#1,gbereich2#,0,gx2&)
        CloseRW #1
        gx&=CompareStrings(gbereich1#,gbereich2#)
        Disponer gbereich1#
        Disponer gbereich2#

        If (gx&=0)

            Volver "gleich"

        Más

            Volver "ungleich"

        EndIf

        Volver "gleich"

    Más

        Case (gx1&<>gx2&): Volver "verschieden groß y así ungleich"
        Volver "nicht disponible oder fehlerhaft. Zumindest una davon"

    EndIf

ENDPROC

29.11.2004 ▲

Rolf
Koch

Hi Franco
y en me funktioniert Su Ejemplo no.

C

ROFANA.TXT y C

ROFANB.TXT creado y gleicher Inhalt.
Volver es: no disponible oder fehlerhaft. Zumindest una su

Pero alles disponible y Orden.

Rolf

29.11.2004 ▲

Frank
Abbing

Hi,

entonces podría el Programa una su tal vez no invitar?
Fehlt sicher sólo una FileMode 0. Könntest Si es usted el nachprüfen en dir?

Rolf
Koch

¡Hola Franco,
nein beide voll Haga clic en Aceptar. Vorher frisch creado. Also bastante normale Archivos.
No schreibgeschützt más o menos.

Rolf

Mi Proc hatte una pequeña logischen Fehler - en Dateiende wars egal si el letzten beiden Zeilen übereinstimmten si beide Files igual-viele Zeilen hatten.

Habs Fijo.

@Franco: Su Proc es weniger geeignet Textodateien a vergleichen. Textdateien necesario no el gleiche Größe haben en igual a ser - auch necesario ellos nie byteexact-igual ser. Como el Name ya sagt - el selbe Texto muß drinnstehen - auch si a el richtigen Punto.

Natürlich es ne mientras que { input Kombination siempre ne SpeedKrücke - y natürlich ließe el Operation auch como Speicheroperation durchführen. Bisl mempos en #10 etc.

Salve, IF

Frank
Abbing

IF, Leerzeichen usw. gehören ebenso para Texto y su Formatierung. Egal si Textdatei oder sonstige, Übereinstimmung heißt en me exakte Übereinstimmung. Aber Por favor,.
Rolf, qué es como los. Usted bist des Programmierens doch más que fähig. Findest Si es usted el Problema no? Puedo nichts entdecken...

Rolf
Koch

Naja, Yo bin a mehr fähig, el mag ser. Jedoch arbeite Yo en el Einzelhandel y lo kurz antes Weihnachten ...... muss Yo como todavía viel sagen.
Yo z.Zt. por el Stress incluso Problemas una fünfzeiler a escribir, sin el Yo mich dauernd verhaue

Nee, pero liegt wirklich nix ungewöhnliches antes.
Beide Textdateien si igual oder abgeändert informe el Fehler.
Beide Textdateien son gerade frisch erstellt worden.
Beide Textdateien son para el Lese/Schreibzugriff bestens geeignet.
Leider como ya de oben genannten Gründen y wegen Noc Actualización (así Yo endlich otra vez a media Roc ir kann - bald kommt sí P9 y como se Roc auch mejorado ser) komme Yo no dazu Su código detailgenau durchzugehen. Aber Yo schätze, daß Su Code doch korrekt eingerichtet es, oder?

Rolf

Franco Yo weiß el Leerzeichen para Texto gehören.

Yo doch auch nie qué más behauptet - du bist soo gemein.

Yo schrieb Textdateien necesario no el gleiche Größe haben y no byte-exact.

Das kann para Bleistift heißen el una Textdatei auch entonces el gleichen Textinhalt ha si esta z.B. con otro Steuerzeichen gespeichert es.

z.B. sólo #10 en lugar de #13#10

Aber qué erzähl Yo Usted - sicher nix Neues.

Das Trim qué oben es es tatsächlich weniger correcto. Hängt su de wofür uno el Proc nutzen möchte - möge cada incluso entscheiden. Como geb Yo Usted bastante - aber meintest Usted el?

Salve, IF

Frank
Abbing

@IF: Klar, habs sí verstanden

. Soll el User doch entscheiden, qué el richtige para ihn es, ne?

@Rolf: Schick me el beiden Archivos doch simplemente veces. Natürlich sólo, si du willst...
Scheint así, como sería FileSize no correcto trabajo...

P.S. Ist Weihnachten no el Festival el Ruhe y Entspannung? :biggrin:

[quote:db58989a3e=Frank Abbing]@IF: Klar, habs sí verstanden

. Soll el User doch entscheiden, qué el richtige para ihn es, ne?

[/quote:db58989a3e]Nain grrrr el Programmierer.

[quote:db58989a3e]@Rolf: Schick me el beiden Archivos doch simplemente veces. Natürlich sólo, si du willst...
Scheint así, como sería FileSize no correcto trabajo...

P.S. Ist Weihnachten no el Festival el Ruhe y Entspannung? :biggrin:[/quote:db58989a3e]Yo saber no el wir hier qué más tun.

Salve, IF