[PvtPayne]

HI erstmal!
Gibts hier Leute die sich Mit Turbo Pascal auskennen und gerne an einem Programm, das ich geschrieben habe rumnörgeln wollen? es funktioniert leider nicht so ganz und auf die Weise finde ich vielleicht heraus was es ist.
Also wills sich mal Jemand ansehen?

Wäre echt spitze!

[Rika]

Wenn du das Programm nicht postest werden wir das wohl nie herausfinden. Ich persönlich kenne mich jedenfalls sehr gut mit Turbo Pascal und Object Pascal aka Delphi aus.

[PvtPayne]

Wollte nur erstmal wissen ob sich überhaupt jemand die Mühe machen würde:-D

Also hier is mal das Programm (da fehlt noch was, und zwar das einfügen von absätzen in ne text datei und das apseichern unter neuem namen__ brauche da bißchen Hilfe)


und fehler im code halt:-P wäre nett wenn du mal drüber schauen wrüdest.


*EDIT*
Hab das Programm jetzt noch mal komplett neu geschrieben!

Gute Nachricht : Es läuft!

Schlechte Nachricht : Nicht so wies soll….



Also Ziel ist es, dass das Programm den code eines anderen Programms einließt und schön formatiert, einrückt usw.

Ich habe mir also eine Liste gemacht mit den Schlüsselworten und diese strings zugewiesen und vergleiche jetzt den code Zeile für Zeile mit diesen schlüsselwörtern. Je nach Wort soll ein Leerzeichen eingefügt bzw. entfernt werden und Leerzeilen eingefügt werden. Das Funktioniert wie folgt: Ich lese die originale Datei ein und schreibe sie in eine neue, schön formatierte…

Das Problem ist jetzt:



Ich weiß nicht wie ich Absätze erstelle (bitte also um nen Tipp )

Und zweitens bekomme ich jedes Mal wenn das Programm durchläuft ne Fehlermeldung das das File nicht zum schreiben geöffnet sei, und ich finde einfach nicht heraus wieso! Jetzt hoffe ich, dass du, als erfahrener TP User das Problem erkennst und mir mitteilst, damit ichs verbessern kann. Ist wirklich wichtig!




hier mein neuer code:

Program indent;

USES CRT;

VAR
      lzl2,lzl3,lzl4                                 : string;
      lzl1,lzl5                                      : string;
      inF,ouF                                        : text;
      ort                                            : string;
      nl                                             : integer;
      lz1,lz2,lz3,lz4                                : string;
      abs                                            : string;
      i                                              : integer;
      zeile                                          : string;
      z                                              : string;
      abs1,abs2,abs3,abs4,abs5,abs6,abs7,abs8,abs9   : string;
      leer                                           : string;


BEGIN
 nl:=0;
 leer:=(' ');
 lzl1:=('BEGIN');
 lzl2:=('VAR');
 lzl3:=('PROGRAM');
 lzl4:=('USES');
 lzl5:=('CONST');
 lz1:=('BEGIN');
 lz2:=('END;');
 lz3:=('END.');
 lz4:=('do');
 abs1:=(');');
 abs2:=('*)');
 abs3:=('integer;');
 abs4:=('boolean;');
 abs5:=('byte;');
 abs6:=('real;');
 abs7:=('string;');
 abs8:=('text;');
 abs9:=('longint;');




 WRITELN ('Indent, von ********* und ************** ');
 WRITELN ('Dieses Programm formatiert den code ihrer Pascal-Programms');
 delay(5000);
 CLRSCR;
 WRITELN ('Bitte geben sie jetzt den Standort ihrer *.pas datei an');
 READLN (ort);
 ASSIGN (inF,ort);
 WRITELN ('Dies ist der code in seiner urspruenglichen Form');
 delay(4000);
 RESET(inF);
 WHILE NOT eof(inF) DO BEGIN
  READLN (inF,zeile);
  WRITELN (zeile);
 end;
 WRITELN ('Um weiter zu machen Taste druecken');
 readln;
 close(inF);

 ASSIGN (ouF,ort);

 WHILE NOT EOF(ouf) DO BEGIN
   WRITE(ouF);
   READLN (ouF,zeile);
   z:=zeile;
   IF z=lzl2 THEN BEGIN
     
     WRITE (' ');
     READ (z);
     write(z);
   END ELSE BEGIN
     IF z=lzl3 THEN BEGIN
      
       WRITE (' ');
       READ (z);
       write(z);    
     END ELSE BEGIN
       IF z=lzl4 THEN BEGIN
         
         WRITE (' ');
  READ (z);
         write(z);       
       END ELSE BEGIN
         IF z=lzl5 THEN BEGIN
          
           WRITE (' ');
    READ (z);
           write(z);         
         END ELSE BEGIN
    IF z=lz1 THEN BEGIN
      nl:=(nl+1);
      
             WRITE(leer:(1+nl),z);
    END ELSE BEGIN
      IF z=lz2 THEN BEGIN
        nl:=(nl-1);
        
               WRITE(leer:(1+nl),z);
      END ELSE BEGIN
        IF z=lz3 THEN BEGIN
          nl:=0;
          
                 WRITE(leer:(1+nl),z);
        END ELSE BEGIN
          IF z=lz4 THEN BEGIN
     nl:=(nl+1);
            
                   WRITE(leer:(1+nl),z);


        END;
             END;
           END;
         END;
       END;
     END;
   END;
  END;
END;
END.

Dieser Beitrag wurde von PvtPayne bearbeitet: 05. Juni 2004 - 10:07

[PvtPayne]

hi!
hab noch ne andere version gebastelt, die funst aber auch net so ganz...File not open for input..

hab rewrite(ouF) eingesetzt, geht aber trotzdem net, warum?

Program indent;

USES CRT;

VAR
      lzl2,lzl3,lzl4                                 : string;
      lzl1,lzl5                                      : string;
      inF,ouF                                        : text;
      ort,ziel                                            : string;
      nl                                             : integer;
      lz1,lz2,lz3,lz4                                : string;
      abs                                            : string;
      i                                              : integer;
      zeile                                          : string;
      z                                              : string;
      abs1,abs2,abs3,abs4,abs5,abs6,abs7,abs8,abs9   : string;
      leer                                           : string;


BEGIN
 nl:=0;
 leer:=(' ');
 lzl1:=('BEGIN');
 lzl2:=('VAR');
 lzl3:=('PROGRAM');
 lzl4:=('USES');
 lzl5:=('CONST');
 lz1:=('BEGIN');
 lz2:=('END;');
 lz3:=('END.');
 lz4:=('do');
 abs1:=(');');
 abs2:=('*)');
 abs3:=('integer;');
 abs4:=('boolean;');
 abs5:=('byte;');
 abs6:=('real;');
 abs7:=('string;');
 abs8:=('text;');
 abs9:=('longint;');




 WRITELN ('Indent, von ********* und ************** ');
 WRITELN ('Dieses Programm formatiert den code ihrer Pascal-Programms');
 WRITELN ('Bitte  taste druecken');
 READLN;
 CLRSCR;
 WRITELN ('Bitte geben sie jetzt den Standort ihrer *.pas datei an');
 READLN (ort);
 ASSIGN (inF,ort);
 WRITELN ('Bitte geben sie an, wo der fertig formatierste code gespeichert werden soll');
 READLN (ziel);
 ASSIGN (ouF,ziel);
 WRITELN ('Dies ist der code in seiner urspruenglichen Form');
 WRITELN ('Bitte Taste druecken');
 READLN;
 RESET(inF);
 WHILE NOT eof(inF) DO BEGIN
  READLN (inF,zeile);
  WRITELN (zeile);
 end;
 WRITELN ('Um weiter zu machen Taste druecken');
 readln;
 close(inF);


 RESET(inF);
 REWRITE (ouF);
 WRITE(ouF);
 WHILE NOT EOF(inF) DO BEGIN
  RESET(inF);
  
  WRITE(ouF);
 WHILE NOT EOF(ouF) DO BEGIN
   RESET(inF);
   
   WRITE(ouF);
   READLN (inF,zeile);
   z:=zeile;
   IF z=lzl2 THEN BEGIN
     
     WRITE (' ');
     READ (z);
     write(z);
   END ELSE BEGIN
     IF z=lzl3 THEN BEGIN
       
       WRITE (' ');
       READ (z);
       write(z);
     END ELSE BEGIN
       IF z=lzl4 THEN BEGIN
         
         WRITE (' ');
  READ (z);
         write(z);
       END ELSE BEGIN
         IF z=lzl5 THEN BEGIN
           
           WRITE (' ');
    READ (z);
           write(z);
         END ELSE BEGIN
    IF z=lz1 THEN BEGIN
      nl:=(nl+1);
            
             WRITE(leer:(1+nl),z);
    END ELSE BEGIN
      IF z=lz2 THEN BEGIN
        nl:=(nl-1);
              ;
               WRITE(leer:(1+nl),z);
      END ELSE BEGIN
        IF z=lz3 THEN BEGIN
          nl:=0;
                 
                 WRITE(leer:(1+nl),z);
        END ELSE BEGIN
          IF z=lz4 THEN BEGIN
     nl:=(nl+1);
                   
                   WRITE(leer:(1+nl),z);

               CLOSE(inF);
               CLOSE(ouF);
        END;
             END;
           END;
         END;
       END;
     END;
   END;
  END;
END;
END;
END.

Dieser Beitrag wurde von PvtPayne bearbeitet: 05. Juni 2004 - 12:48

[Rika]

Wie ich's dir schon gemailt habe, dein Programm ist absolut versaut. Konzept, Implementierung und Form, haut alles nicht hin.

[PvtPayne]

verdammt....

[PvtPayne]

Wegen deinem Vorschlag. Ich glaube du hast da was verwechselt, ich programmiere unter Turbo Pascal und nicht utner Delphi, paar kleine Unterschiede sind da schon TP kennt die Befehle switch und case nicht...

[PvtPayne]

Ich hab also ne Zeile also STRING und will wissen ob eine anderer STRING in dieser zeile vorkommt.

also wenn STRING1 in STRING2 vorhanden ist, dann....

wie übersetz ich das nach pascal?