(936)  S'inscrire

Français
SDK-Helfer/ Tools

ModernXProfan

 
- page 1 -



Jac
de
Lad
So, maintenant dans eigenem Fil.

ici ist qui neuste Version (diesmal avec Voir le texte source), maintenant avec DragnDrop et erkennt aussi Funktionen il Leerzeichen avant dem (. Außer /* et */ devrait maintenant vraie alles marcher...je werde mich bientôt la fois ransetzen et den unaufgeräumten Voir le texte source dans un Struktur apporter et cela Proggi beschleunigen!

231 kB
Hochgeladen:14.10.2006
Downloadcounter: 344
Download
 
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP
14.10.2006  ▲
Vollständiges citation
Absatzweise CitationZeilenweise Citation
 



 
- page 2 -



Jac
de
Lad
So, cela avec Listbox et Co klappt maintenant, mais seulement si pas qui Containerfunktion Créer() verwendet wird. Aussi ist qui Voir le texte source eh bien quelque chose plus rapide. et qui Bearbeitung de ; et , dans Cordes (zum Beispiel a$=s$,f$) ist eh bien quelque chose effizienter...

231 kB
Hochgeladen:16.10.2006
Downloadcounter: 112
Download
 
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP
16.10.2006  ▲
 




Jac
de
Lad
@Michael: c'est aucun Ausrede, mais qui vérité. comme je dernièrement dans Members était habe je festgestellt, dass je comme vierter de dessus aufgelistet werde...avec Wally comme Avatar. je n'en sais rien qui cela là hingemehrt hat, mais je wars pas. je hab Wally seulement runtergeladen et dans Avatar einstellen pour mich eingestellt, avec cela Wally aussi dans den Posts erscheint.
 
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP
16.10.2006  ▲
 




Michael
Wodrich
la fois entier frech gefragt:

crois Du, qui cela une Anwalt intéressé?
 
Programmieren, das spannendste Detektivspiel der Welt.
16.10.2006  ▲
 




Nico
Madysa
si qui GEZ Gebühren de Toten et Haustieren verlangen, ensuite volonté sich aussi garantiert Anwälte trouver, qui qui Ausrede dans den Boden stampfen volonté.

quoi cela Programme angeht: Top! Beim Testen habe je aucun faute trouvé, aussi Kommentare volonté beim @-Verschlingen dans Ruhe gelassen.
 
Nico Madysa
16.10.2006  ▲
 




Jac
de
Lad
@Michael: sûrement, sûrement...

@Nico: merci. qui Voir le texte source liegt oui chez, wennde veux kannste encore folgendes einbauen:

- Erkennen de Blöcken qui par /* et */ eingeschlossen volonté
- Ersetzen des Paramètres de Créer(Listbox, Créer(Sortedlistbox et Créer(Choicebox par Integerwerte (0,1 ou bien 2; siehe XProfan-10-Aider); bzw. Ersetzen de Créer(SortedListbox par Créer(Listbox avec paramètre 1 (Sortierung)
- Erkennen de Zeilen avec am Ende (Weiterführung sur qui prochain la ligne

j'ai toujours versucht, dass qui Voir le texte source possible proche à l' Original herankommt, mais justement chez Leerzeichen muss je là malheureusement Abstriche faire et lasse presque alle entfernen; c'est pourquoi sieht qui Voir le texte source après malheureusement la plus part du temps entier anders aus: qui Einrückungen sommes alle weg. Im Moment sais je aussi pas, comment je cela effizient verhindern peux...
 
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP
16.10.2006  ▲
 




Nico
Madysa
cela lieu je Je ne justement simple avant, mais du könntest une Stack mitlaufen laisser, qui chez proc, tandis que(not/loop), si, etc. augmenté et beiwend, endwhile, endproc, endif, endselect, etc. erniedrigt wird.
et ensuite mets du encore avec dire wir la fois @Space$(stack%) Lerrzeichen devant.
 
Nico Madysa
16.10.2006  ▲
 




Jac
de
Lad
Ähm, c'est mir trop compliqué...deswegen hab ego oui encore pas gemacht. Hab encore un bisschen aktualisiert...Créer(sortedlistbox wird maintenant konsequent dans Créer(listbox umgewandelt.

231 kB
Hochgeladen:16.10.2006
Downloadcounter: 110
Download
 
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP
16.10.2006  ▲
 




Nico
Madysa
Aaaaaalso, quelque chose langsamer:
je prends à, ModernXProfan rattert plus ou bien moins zeilenweise par den Voir le texte source.
Du überprüfst ensuite simple, si là un Befehl ist, qui un Einrücken erfordert.
(z.B. tandis que, proc, si, Select, etc). si un solcher Befehl vorliegt, erhöhst du une variable (prenons la fois stack%) um 1. dans allen anschließend formatierten Zeilen fügst du am Anfang Space(stack%), alors stack% Leerzeichen, un. Findest du dagegen une Befehl comment EndIf, Wend, EndSelect, ENDPROC, ou bien schieß-mich-tot-quoi-encore, ensuite wird qui Variable stack% um 1 erniedrigt (dec stack%).
So lieu ego mir avant, si es klappt ist ne autre Frage.
 
Nico Madysa
16.10.2006  ▲
 



Uralt
KompilierenMarqueSéparation
##########################################################################
PRF-Struktur, a Profan OpenSource Project(theFirst?),started april 2004
Copyright (C) 2004 by DS/iF (!ReGeXiT) on (iF@mxii.com)
__________________________________________________________________________
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 1.1
of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-
1307, USA.
__________________________________________________________________________
Source changed by: [20040707] [IF] [if@mxii.com] <- added xpse syntax
Source changed by: [DATE] [NICK/NAME] [EML]
Source changed by: [DATE] [NICK/NAME] [EML]
Source changed by: [DATE] [NICK/NAME] [EML]
Source changed by: [DATE] [NICK/NAME] [EML]
##########################################################################
decimals 0
def inv(1) if(@%(1),0,1)
declare s$,cx%,ch$,kl%,ln%,insa%,pre$,infle$,maxinsa%,maxln%,frl%,lnp%

proc _end

    end

endproc

proc printfree

    ifnot frl%

        print #2,
        frl%=1
        add lnp%,1

    endif

endproc

proc printit

    parameters s$
    print #2,s$
    add lnp%,1
    frl%=0

endproc

proc printm

    parameters s$,n%
    print s$,n%
    sleep 1000
    close #1
    close #2
    shell notepad _out_.txt
    waitkey
    end

endproc

windowtitle Struktur V1.0 - Profan
windowstyle 24
window 100,100 - 640,480
frl%=0
lnp%=0
infle$=loadfile$(Profan-Programm:,Profan-Quellcode (*.prf)|*.prf|Alle Dateien (*.*)|*.*)

if len(infle$)

    assign #1,infle$
    reset #1
    assign #2,_out_.txt
    rewrite #2
    locate 1,1
    print Datei:,infle$
    kl%=0
    ln%=0
    insa%=0
    maxinsa%=0
    maxln%=0

    whilenot eof(#1)

        input #1,s$
        s$=translate$(s$,chr$(7),)
        s$=trim$(translate$(s$,chr$(9),))
        add ln%,1

        while or(equ$(chr$(9),mid$(s$,1,1)),equ$(chr$(32),mid$(s$,1,1)))

            s$=del$(s$,1,1)

        wend

        casenot len(trim$(s$)) : continue

        ifnot mod(lnp%,25)

            locate 2,1
            print Zeilen:,lnp%
            print maximale Tiefe:,maxinsa%+1

        endif

        case kl% : printm string parse error in line:,lnp%

        ifnot equ$(mid$(s$,1,3),P +chr$(34))

            cx%=0

            while lt(cx%,len(s$)+1)

                add cx%,1
                ch$=mid$(s$,cx%,1)

                if equ$(,ch$)

                    ifnot kl%

                        s$=mid$(s$,1,cx%-1)

                    endif

                endif

                case equ$(ch$,chr$(34)) : kl%=inv(kl%)

                ifnot kl%

                endif

            wend

            s$:=trim$(s$)
            case equ$(WHILE ,upper$(mid$(s$,1,6))) : printfree
            case equ$(REPEAT,upper$(mid$(s$,1,6))) : printfree
            case equ$(WEND,upper$(s$)) : printfree
            case equ$(UNTIL,mid$(upper$(s$),1,5)) : printfree
            case equ$(ENDWHILE,upper$(s$)) : printfree
            case equ$(WHILENOT ,upper$(mid$(s$,1,9))) : printfree
            case equ$(WHILELOOP ,upper$(mid$(s$,1,10))) : printfree
            case equ$(IF ,upper$(mid$(s$,1,3))) : printfree
            case equ$($IFDEF ,upper$(mid$(s$,1,7))) : printfree
            case equ$($IFNDEF ,upper$(mid$(s$,1,8))) : printfree
            case equ$(IFNOT ,upper$(mid$(s$,1,6))) : printfree
            case equ$(PROC ,upper$(mid$(s$,1,5))) : printfree
            case equ$(SUBPROC ,upper$(mid$(s$,1,8))) : printfree
            case equ$(FUNCTION ,upper$(mid$(s$,1,9))) : printfree
            case equ$(PROCEDURE ,upper$(mid$(s$,1,10))) : printfree
            case equ$(ENDPROC,upper$(s$)) : sub insa%,1
            case equ$(ENDIF,upper$(s$)) : sub insa%,1
            case equ$(ENDIF,upper$(s$)) : printfree
            case equ$($ENDIF,upper$(s$)) : endsub insa%,1
            case equ$($ENDIF,upper$(s$)) : printfree

            if equ$(ELSEIF ,upper$(mid$(s$,1,7)))

                sub insa%,1
                printfree

            elseif equ$(ELSE,upper$(mid$(s$,1,4)))

                printfree
                sub insa%,1

            endif

            case equ$(UNTIL,upper$(mid$(s$,1,5))) : sub insa%,1
            case equ$(WEND,upper$(mid$(s$,1,4))) : sub insa%,1
            case equ$(ENDWHILE,upper$(mid$(s$,1,8))) : sub insa%,1
            case lt(insa%,0) : printm Insafailure in line:,lnp%

            if gt(insa%,maxinsa%)

                maxinsa%=insa%
                maxln%=lnp%

            endif

            pre$=mkstr$(chr$(9),insa%)

            if len(trim$(s$))

                printit add$(pre$,s$)

            endif

            case equ$(REPEAT,upper$(mid$(s$,1,6))) : add insa%,1
            case equ$(WHILE ,upper$(mid$(s$,1,6))) : add insa%,1
            case equ$(WHILENOT ,upper$(mid$(s$,1,9))) : add insa%,1
            case equ$(WHILELOOP ,upper$(mid$(s$,1,10))) : add insa%,1

            if equ$(ELSEIF ,upper$(mid$(s$,1,7)))

                add insa%,1
                printfree

            elseif equ$(ELSE,upper$(mid$(s$,1,4)))

                printfree
                add insa%,1

            endif

            case equ$(PROC ,upper$(mid$(s$,1,5))) : add insa%,1
            case equ$(SUBPROC ,upper$(mid$(s$,1,8))) : add insa%,1
            case equ$(PROCEDURE ,upper$(mid$(s$,1,10))) : add insa%,1
            case equ$(FUNCTION ,upper$(mid$(s$,1,09))) : add insa%,1
            case equ$($IFDEF ,upper$(mid$(s$,1,7))) : add insa%,1
            case equ$($IFDEF ,upper$(mid$(s$,1,7))) : printfree
            case equ$(IF ,upper$(mid$(s$,1,3))) : add insa%,1
            case equ$(IF ,upper$(mid$(s$,1,3))) : printfree
            case equ$(IFNOT ,upper$(mid$(s$,1,6))) : add insa%,1
            case equ$(IFNOT ,upper$(mid$(s$,1,6))) : printfree
            case equ$(WHILENOT ,upper$(mid$(s$,1,9))) : printfree
            case equ$(WHILELOOP ,upper$(mid$(s$,1,10))) : printfree
            case equ$(REPEAT,upper$(mid$(s$,1,6))) : printfree
            case equ$(WHILE ,upper$(mid$(s$,1,6))) : printfree
            case equ$(ENDIF,upper$(s$)) : printfree
            case equ$($ENDIF,upper$(s$)) : printfree
            case equ$(ENDPROC,upper$(s$)) : printfree
            case equ$(WEND,upper$(s$)) : printfree
            case equ$(UNTIL,upper$(mid$(s$,1,5))) : printfree
            case equ$(ENDWHILE,upper$(s$)) : printfree
            case lt(insa%,0) : printm Insafailure in line:,lnp%

        endif

    wend

    close #1
    close #2
    locate 2,1
    print Zeilen:,lnp%
    print maximale Tiefe:,maxinsa%+1,in Zeile,maxln%
    sleep 2000
    shell notepad _out_.txt

endif

end
 
16.10.2006  ▲
 




Jac
de
Lad
je blicke ici pas entier par mais es steht euch libre den Voir le texte source anzupassen et ici trop posten. Welchen Vorteil soll cela pour mich apporter?
 
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP
18.10.2006  ▲
 




Michael
Wodrich
Na so un Code-Abhübscher soll den Code lesbar tenir. Einrückungen automatisieren, Schlüsselworte dans Großschrift wandeln, usw.

Wobei justement cet Programme une possible grand OPTIONEN-Schublade avons devrait, car qui Geschmäcker sommes verschieden.

qui une bevorzugt 2 Leerzeichen zum Einrücken, l'autre lieber Tabulatoren....

qui une veux qui Schlüsselworte entier grand (z.B.: GETBVALUE), l'autre lieber dans cette forme (GetBValue)....

belle Grüße
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
19.10.2006  ▲
 




Michael
Dell
Hallole,

avec cela gibts encore un Problem:
KompilierenMarqueSéparation
If Neq(DuplicateHandle(GetCurrentProcess(),hpiperead&,

    GetCurrentProcess(),Addr(htmpread&),0,1,2),0)pre>

Statt:
KompilierenMarqueSéparation
If (DuplicateHandle(GetCurrentProcess(),hpiperead&,

    GetCurrentProcess(),Addr(htmpread&),0,1,2) <> 0)pre>

venez cela heraus:
KompilierenMarqueSéparation
If (<>)plicateHandle(GetCurrentProcess(),hpiperead&,

    GetCurrentProcess(),Addr(htmpread&),0,1,2),0)pre>

Nachtrag:   Ist aus ProFellow! (Pipe)

P.S.: Finde dein Programme prima !!!
 
Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! 
19.10.2006  ▲
 



◄►

répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

50.780 Views

Untitledvor 0 min.
Uwe Lang26.05.2023
H.Brill02.05.2023
Jens-Arne Reumschüssel08.07.2022
Klaus Kohlhepp08.02.2021
plus...

Themeninformationen

cet Thema hat 10 participant:

Jac de Lad (34x)
iF (6x)
Nico Madysa (4x)
Michael Wodrich (4x)
Dietmar Horn (2x)
Peter Max Müller (2x)
Dieter Zornow (1x)
Frank Abbing (1x)
unbekannt (1x)
Michael Dell (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie