(850)  Registro

Español
SDK-Helfer/ Tools

ModernXProfan

 
- Página 1 -



Jac
de
Lad
So, ahora en eigenem Hilo.

Hier Es el neuste Versión (diesmal con Ver código fuente), ahora con DragnDrop y erkennt auch Características it Leerzeichen antes el (. Außer /* y */ debería ahora echt alles trabajo...Yo voluntad mich demnächst veces ransetzen y el unaufgeräumten Ver código fuente en un Struktur bringen y el Proggi beschleunigen!

231 kB
Hochgeladen:14.10.2006
Ladeanzahl: 344
Descargar
 
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 Zitat
Absatzweise CitaZeilenweise Cita
 



 
- Página 2 -



Jac
de
Lad
So, el con Listbox y Co klappt ahora, aber sólo si no el Containerfunktion Crear() verwendet se. Außerdem es el Ver código fuente nun algo más rápido. Und el Bearbeitung de ; y , en Cuerdas (para Ejemplo a$=s$,f$) es nun algo effizienter...

231 kB
Hochgeladen:16.10.2006
Ladeanzahl: 113
Descargar
 
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: Es no Ausrede, pero el Wahrheit. Als Yo neulich en Members war Yo festgestellt, dass Yo como vierter de oben aufgelistet voluntad...con Wally como Avatar. Keine Idea wer el como hingemehrt ha, pero yo wars no. Yo Wally sólo runtergeladen y Avatar einstellen para mich eingestellt, así Wally auch en el 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
Tiempo bastante frech gefragt:

Glaubst Usted, daß el una Anwalt interessiert?
 
Programmieren, das spannendste Detektivspiel der Welt.
16.10.2006  ▲
 




Nico
Madysa
Wenn el GEZ Gebühren de Toten y Haustieren verlangen, entonces voluntad se auch garantiert Anwälte encontrar, el el Ausrede en el Boden stampfen voluntad.

Was el Programa angeht: Top! Beim Testen Yo no Fehler gefunden, auch Kommentare voluntad beim @-Verschlingen en Ruhe gelassen.
 
Nico Madysa
16.10.2006  ▲
 




Jac
de
Lad
@Michael: Seguro, sicher...

@Nico: Gracias. Der Ver código fuente liegt sí en, wennde willst kannste todavía folgendes einbauen:

- Reconocer de Blöcken el por /* y */ eingeschlossen voluntad
- Ersetzen des Parámetros de Crear(Listbox, Crear(Sortedlistbox y Crear(Choicebox por Integerwerte (0,1 oder 2; siehe XProfan-10-Ayuda); o. Ersetzen de Crear(SortedListbox por Crear(Listbox con Parámetro 1 (Sortierung)
- Reconocer de Zeilen con al Ende (Weiterführung en el nächsten Línea

Yo habe siempre intenta, dass el Ver código fuente möglichst nahe ans Original herankommt, aber gerade en Leerzeichen muss Yo como desafortunadamente Abstriche hacer y lasse fast todos entfernen; deshalb sieht el Ver código fuente nachher desafortunadamente meistens bastante anders de: El Einrückungen son todos weg. Im Moment weiß Yo auch no, como yo effizient verhindern kann...
 
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
Das lugar Yo no gerade simplemente antes, aber du könntest una Stack mitlaufen dejar, el en proc, mientras que(not/bucle), if, etc. aumenta y beiwend, endwhile, ENDPROC, endif, endselect, etc. erniedrigt se.
Und entonces setzt du todavía con sagen wir veces @Espacio$(stack%) Lerrzeichen davor.
 
Nico Madysa
16.10.2006  ▲
 




Jac
de
Lad
Ähm, el me está a kompliziert...deswegen tener ego sí todavía no gemacht. Hab todavía una bisschen aktualisiert...Crear(sortedlistbox se ahora konsequent en Crear(listbox umgewandelt.

231 kB
Hochgeladen:16.10.2006
Ladeanzahl: 111
Descargar
 
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, algo langsamer:
Yo nehme a, ModernXProfan rattert o más weniger zeilenweise por el Ver código fuente.
Usted überprüfst entonces simplemente, si como una Befehl es, el una Einrücken erfordert.
(z.B. mientras que, proc, if, Select, etc). Wenn una solcher Befehl vorliegt, erhöhst du una variable (nehmen wir veces stack%) en 1. In allen anschließend formatierten Zeilen fügst du al Anfang Espacio(stack%), also stack% Leerzeichen, una. Findest du dagegen una Befehl como EndIf, Wend, EndSelect, ENDPROC, oder schieß-mich-tot-qué-todavía, Luego se el Variable stack% en 1 erniedrigt (dec stack%).
So lugar ego me antes, si klappt es ne otro Cuestión.
 
Nico Madysa
16.10.2006  ▲
 



Uralt
KompilierenMarcaSeparación
##########################################################################
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
Yo blicke hier no bastante por pero es euch frei el Ver código fuente anzupassen y aquí para enviar. Welchen Vorteil se el para mich bringen?
 
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 así una Code-Abhübscher se el código lesbar halten. Einrückungen automatisieren, Schlüsselworte en Großschrift wandeln, usw.

Wobei gerade esta Programas una möglichst große OPTIONEN-Schublade haben debería, porque el Geschmäcker son verschieden.

Der una bevorzugt 2 Leerzeichen para Einrücken, el otro más bien Tabulatoren....

Der una voluntad el Schlüsselworte bastante groß (z.B.: GETBVALUE), el otro más bien en dieser Form (GetBValue)....

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




Michael
Dell
Hallole,

Damit gibts todavía una Problema:
KompilierenMarcaSeparación
If Neq(DuplicateHandle(GetCurrentProcess(),hpiperead&,

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

Statt:
KompilierenMarcaSeparación
If (DuplicateHandle(GetCurrentProcess(),hpiperead&,

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

Kommt el heraus:
KompilierenMarcaSeparación
If (<>)plicateHandle(GetCurrentProcess(),hpiperead&,

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

Apéndice:   Ist de ProFellow! (Pipe)

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

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



◄►

Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

50.968 Views

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

Themeninformationen

Dieses Thema ha 10 subscriber:

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  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Yo möchte no Cookie