XProfan

 $P+
SetErrorLevel 0
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.3a
DATUM  29.01.2006    um  11:07 Uhr
VERWENDETE PROFANVERSION IST 8.0-NT XPROFAN
CODE ERSTELLT UNTER WINDOWS XP
!!! Dieser Code wird von Roc immer neu erzeugt        !!!
!!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
!!! Verändern Sie ggf. feste Pfade in variable Pfade  !!!
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE Ausgabe&,Sortieredit&
DECLARE InsEdit&,X%
DECLARE InText&,ZEILE$,ZEILE2$
DECLARE Programmende&,Y%
Declare Ausgabedatei$
WINDOWSTYLE 63
WINDOWTITLE "Game Tool"
WINDOW 171,165-598,350
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Die Textdatei angeben:
Ausgabedatei$="C:\GAMETOOL.TXT" Beispiel

PROC ENTFERNE_BUTTONS

    PARAMETERS Z$

    WHILE INSTR("[",Z$)

        z$=del$(z$,instr("[",z$), instr("]",z$)-instr("[",z$)+1)

    WEND

    return z$

ENDPROC

Alles aufbereiten und in die Ausgabe:

PROC PUTTOEDIT

    if mid$(getclip$(),1,4) = "5x34" nur zulassen wenn Daten im Clipboard den richtigen entsprechen

        sendmessage(Ausgabe&,$0184,0,0) liste zuerst löschen
        SETTEXT Sortieredit&,getclip$()
        CLEAR X%

        WHILENOT X% > GetLineCount(Sortieredit&)

            ZEILE$=GetLine$(Sortieredit&,X%)

            IF mid$(zeile$,1,4) = "5x34"

                ZEILE2$=trim$(ZEILE$)
                ENTFERNE_BUTTONS ZEILE2$
                Zeile2$ = $(0)

                IF mid$(GetLine$(Sortieredit&,X%+1),1,4) = "5x34"

                    addstring(Ausgabe&,zeile2$)

                Endif

            ELSE

                ZEILE2$=ZEILE2$+" "+ZEILE$
                ENTFERNE_BUTTONS ZEILE2$
                Zeile2$ = $(0)
                addstring(Ausgabe&,zeile2$)

                if  mid$(GetString$(Ausgabe&,GetCount(Ausgabe&)-2),1,6) = mid$(zeile2$,1,6)

                    DeleteString(Ausgabe&,GetCount(Ausgabe&)-2)

                endif

            ENDIF

            inc x%

        WEND

        enablewindow InText&,1

    Else

        addstring(Ausgabe&,"Falsches Datenformat!")

    Endif

ENDPROC

Ausgabe in Textdatei schreiben:

PROC PUTTOTEXT

    ASSIGN #1,AUSGABEDATEI$
    REWRITE #1
    clear x%

    Whilenot x% > GetCount(Ausgabe&)

        Print #1,GetString$(Ausgabe&,x%)
        inc x%

    Wend

    CLOSE #1
    Messagebox("Daten wurden in "+Ausgabedatei$+" gespeichert!","Gespeichert",0)

ENDPROC

Dieses Multiedit um vorher zu sortieren:
Sortieredit&=CREATE("MULTIEDIT",%HWND,"",0000,0000,0000,0000)
Ausgabe& = CREATE("LISTBOX",%HWND,"",0006,0006,0576,0265)
InsEdit& = CREATE("BUTTON",%HWND,"Daten ins Edit",0010,0281,0089,0030)
InText& = CREATE("BUTTON",%HWND,"Daten in Textdatei",0110,0281,0106,0030)
enablewindow InText&,0
Programmende& = CREATE("BUTTON",%HWND,"Ende",0463,0281,0116,0030)
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF GETFOCUS(Ausgabe&) MULTIEDIT

    ELSEIF GETFOCUS(InsEdit&) BUTTON

        Getmessage
        PUTTOEDIT

    ELSEIF GETFOCUS(InText&) BUTTON

        Getmessage
        PUTTOTEXT

    ELSEIF GETFOCUS(Programmende&) BUTTON

        ENDE%=1
    ENDIF

WEND