XProfan

 {$iq}//xpse
cls
imprimer "is exact juste?: "+si(fle_compareexact ("org.txt","second.txt"),"Jo","Nö")
waitkey
end

proc fle_compareexact

    parameters fle1$,fle2$
    declare ex%,s$,ss$
    assign #1,fle1$
    assign #2,fle2$
    reset #1
    reset #2
    ex%=0

    whilenot ex%

        input #1,s$
        input #2,ss$

        si ($ Trim($ S)<>$ Trim(ss$))

            ex%:=2

        elseif ( eof(#1) & eof(#2) )

            ex%:=1

        elseif eof(#1)

            ex%:=2

        elseif eof(#2)

            ex%:=2

        endif

        cas ( eof(#1) & eof(#2) ) : casenot ex% : ex%:=1

    Wend

    close #1
    close #2
    return si(equ(ex%,1),1,0)

endproc

Fichiers sur Gleichheit vérifier
(c) Frank Abbing
Set("ErrorLevel",0)
Déclarer text$
Def CompareStrings(2) !"KERNEL32","lstrcmpi"
Cls
text$=SameDatas("Dateiname_1","Dateiname_2")
Imprimer "Die beiden Fichiers sommes "+text$+"."
WaitInput
Fin
deux Fichiers comparer
SameDatas para1, para2
para1 = nom de Dossier 1
Para2 = nom de Dossier 2

Proc SameDatas

    Paramètres gtext1$,gtext2$
    Déclarer gx&,gx1&,gx2&,gbereich1#,gbereich2#
    gx1&=FileSize(gtext1$)
    gx2&=FileSize(gtext2$)
    gx&=gx1&+gx2&

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

        Faible gbereich1#,gx1&
        Assign #1,gtext1$
        OpenRW #1
        @BlockRead(#1,gbereich1#,0,gx1&)
        CloseRW #1
        Faible gbereich2#,gx2&
        Assign #1,gtext2$
        OpenRW #1
        @BlockRead(#1,gbereich2#,0,gx2&)
        CloseRW #1
        gx&=CompareStrings(gbereich1#,gbereich2#)
        Dispose gbereich1#
        Dispose gbereich2#

        Si (gx&=0)

            Retour "gleich"

        D'autre

            Retour "ungleich"

        EndIf

        Retour "gleich"

    D'autre

        Cas (gx1&<>gx2&): Retour "verschieden grand et avec cela ungleich"
        Retour "nicht vorhanden ou bien incorrect. Zumindest une davon"

    EndIf

ENDPROC