XProfan

Christof
Neuß

Hallo Leute,

gibt es hier etwas aktuelles? Ich bin auf der Suche nach genau so einem Tool, da ich mal wieder nicht so ordentlich war und überall die passenden Einrückungen und so vorgenommen habe.

Ich arbeite mit XProfED und LemonED. Sind da vielleicht solche Funktionen schon eingebaut und ich habe sie nur noch nicht gefunden?

Bin für jeden Tipp dankbar.

Win10 16 GB RAM

Christof
Neuß

Ich habe mal den Quellcode-Formatierer aus der BabyBox probiert.
Leider bekomme ich einen Fehler:

"string parse error in line: 1034"

Grund dafür ist wohl folgendes:
Kompilieren Markieren Separieren

If RZ$="bank21"

    Hide(Tx_MBENCH_01&)
    Hide(PROGRESSBAR1&)
    Re_Text$="  Komprimierung MBench_VRC auf Kundennummern..."+Chr$(10):MSenden(0,0,0,0)
    DoSQL("Drop table T_bank21_MBench_VRC_Komp",1)
    SQL_Befehl$="Select VRC_KDNR AS komp_KDNR, \

Nach dem Backslash geht der String in der nächsten Zeile weiter. Bei XPSE ist das kein Problem. Da ich das ziemlich oft gemacht habe, wäre ein Umschreiben mit Anführungszeichen und "+"-Zeichen ziemlich aufwendig.

Win10 16 GB RAM

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Christof Neuß (01.11.11)

Ich habe mal den Quellcode-Formatierer aus der BabyBox probiert.
Leider bekomme ich einen Fehler:

Hast Du schon mal meinen Editor ( [...]

) versucht ?
F5 und alles ist formatiert.

Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]

XProfan X2
WinXP, SP3 v.3244, P4 3.06GHz

Irgendwann hatte ich das wohl auch mal als "Online-Service" -

die Nity formatiert ohnehin alle Quelltexte und da könnte das ja auch als separates Feature abrufbar sein. ^^

Kompilieren Markieren Separieren

Christof
Neuß

Hallo Andreas,

klasse!!! DANKE!

Sieht schon sehr gut aus. Bestimmt kannst Du mir noch erklären, warum manchmal das ENDPROC nicht erkannt wird? Z.B. hier:

PROC KriterienBearbeiten'---------------------------------------------------------------------------> Dialoganfang

    DECLARE Dialogende%
    DECLARE FALISTVIEW1&
    DECLARE Button1&
    DECLARE Button2&
    DECLARE Ueber$[]
    VAR AenderungsSpalten$="011111"
    VAR FALISTVIEWDLL&=USEDLL("LISTVIEW.DLL")
    VAR DLG&=CREATE("DIALOG",%HWND,"Selektionskriterien erfassen/bearbeiten",180,200,800,270)
    VAR UeberTrans1$=Space$(35)
    VAR UeberTrans2$=Space$(35)
    SetODBCSpalten "TZZZZZ"
    Ueber$[0]="Kundengruppe"
    Ueber$[1]="Anlagevolumen"
    Ueber$[2]="Aktivvolumen"
    Ueber$[3]="Gehalt"
    Ueber$[4]="Klasse/Segment VON"
    Ueber$[5]="Klasse/Segment BIS"
    USEFONT "MS Sans Serif",13,0,0,0,0
    SETDIALOGFONT 1
    FALISTVIEW1& = CREATELISTVIEW(DLG&,%HINSTANCE,0,$FFFFFF,-1,$31)
    LVSQL("Select * from T_Bank_Kriterien",FALISTVIEW1&)
    EnableEdits(FALISTVIEW1&,7)
    SelectColumnEdits(FALISTVIEW1&,addr(AenderungsSpalten$))

    WhileLoop 0,5

        GetColumnName(FALISTVIEW1&,addr(UeberTrans1$),&LOOP)
        UeberTrans2$=Ueber$[&LOOP]
        SetColumnName(FALISTVIEW1&,addr(UeberTrans2$),&LOOP)
        Ueber$[&LOOP]=Trim$(UeberTrans1$)

        if &LOOP>0

            SetColumnAlignment(FALISTVIEW1&,&LOOP,1)

        endif

    EndWhile

    SHOWLISTVIEW(FALISTVIEW1&,0020,0010,0740,0150)
    BUTTON1& =@CREATE("BUTTON",DLG&,"Speichern",0600,0180,0070,0030)
    BUTTON2& =@CREATE("BUTTON",DLG&,"Abbruch"  ,0700,0180,0070,0030)
    InitMessages(DLG&)
    SETFOCUS(DLG&)
    DIALOGENDE%=0

    WHILENOT DIALOGENDE%

        WAITINPUT

        If %KEY=2

            DIALOGENDE%= 1

        ELSEIF CLICKED(BUTTON1&)'BUTTON Speichern

            WhileLoop 0,5

                GetColumnName(FALISTVIEW1&,addr(UeberTrans1$),&LOOP)
                UeberTrans2$=Ueber$[&LOOP]
                SetColumnName(FALISTVIEW1&,addr(UeberTrans2$),&LOOP)
                Ueber$[&LOOP]=Trim$(UeberTrans1$)

            EndWhile

            LV2ODBC("",0,"T_Bank_Kriterien",1,0,FALISTVIEW1&)
            DIALOGENDE%=1

        ElseIF CLICKED(BUTTON2&)'BUTTON Abbruch

            DIALOGENDE%=1

        ENDIF

    ENDWHILE

    DESTROYWINDOW(DLG&)
    CloseMessages(DLG&)
    FREEDLL FALISTVIEWDLL&

EndProc

PROC FilialenBearbeiten

    DECLARE Dialogende%

Win10 16 GB RAM

Christof
Neuß

Haha.... jetzt bin ich drauf reingefallen.
@iF: Tja, den Formatierer hier hätte ich natürlich auch nutzen können. Funzt wohl. Ist nur EVTL. hier und da etwas umständlich.

Im angegenen Code wird bei "EndProc" nicht wieder ausgerückt

Win10 16 GB RAM

Christof
Neuß

Hallo Andreas,

ich hab's gefunden.
Es liegt an der Zeile:

SelectColumnEdits(FALISTVIEW1&,addr(AenderungsSpalten$))

"Select" wird als Beginn einer Struktur interpretiert, obwohl es nicht als Wort alleine steht. Was kann ich denn da machen?

DANKE!

Win10 16 GB RAM