Lettura file di testo - STRINGGRID

[alexarmato66]

Dovrei caricare delle coordinate X e Y da un file DXF (TXT)  in una StringGrid.
All'interno del file le coordinate si ripetono iniziando con la stringa VERTEX
Es:

VERTEX
  8
0
10
 9.2299999999999997E+001   // coordinata X
20
 8.5000000000000000E+000   // coordinata Y
30
0.00
0
VERTEX
  8
0
10
-5.2000000000000000E+001
20
 0.0000000000000000E+000
30
0.00
0
SEQEND
  0

La procedura dovrebbe fermarsi quando incontra la stringa SEQEND

Qualncuno può fornirmi un'esempio

[DragoRosso]

Questo come base, poi sistemala tu con errori (record malformati) oppure usa un classe al posto del record:

Codice: [Seleziona]

//Definizione del record VERTEX
type TVertex = record
   Dummy1: integer;
   Dummy2: integer;
   Dummy3: integer;
   X: double;
   Dummy4: integer;
   Y: double;
   Dummy5: integer;
   Dummy6: double;
   Dummy7: integer;
end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    fVertici: array of TVertex;
  public
    { Public declarations }
    function Carica(const NomeFile: string): boolean;
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

//Funzione per il caricamento dei dati
function TForm1.Carica(const NomeFile: string): boolean;
var tempFile: TEXTFILE;
    valore: string;
begin
  Result := false;
  try
    if Fileexists(NomeFile) then
      begin
        //File da aprire
        AssignFile(tempfile, NomeFile);
        //Sola lettura
        Reset(tempfile);
        //finchè non siamo a fine file
        while not eof(tempfile) do
          begin
            //leggi una riga
            readln(tempfile, valore);
            //Se abbiao terminato esci dal loop
            if UPPERCase(Trim(valore)) = 'SEQEND' then
              break;
            //Iniziamo la procedura per la lettura dei vertici
            if UPPERCase(Trim(valore)) = 'VERTEX' then
              begin
                //Incrementa di 1 la dimensione dell'array
                setlength(fVertici, length(fVertici)+1);
                //Inserisci nell'ultima posizione appena "aggiunta"
                with fVertici[length(fVertici)-1] do
                  begin
                    readln(tempfile, Dummy1);
                    readln(tempfile, Dummy2);
                    readln(tempfile, Dummy3);
                    readln(tempfile, X);            // !!!!!!!!!!!!! ATTENZIONE AL FORMATO DEL DECIMALE (punto o virgola)
                    readln(tempfile, Dummy4);
                    readln(tempfile, Y);            // !!!!!!!!!!!!! ATTENZIONE AL FORMATO DEL DECIMALE (punto o virgola)
                    readln(tempfile, Dummy5);
                    readln(tempfile, Dummy6);
                    readln(tempfile, Dummy7);
                  end;
              end;
           end;
        Result := True;
        CloseFile(tempfile);
      end;
  except on e: exception do
    begin
      Result := false;
      CloseFile(tempfile);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Carica('prova.txt');
  //Qua ha il tuo array dei vertici, inserire nella griglia non dovrebbe essere un problema.
end;

end.

Ciao

[Stilgar]

Io avrei usato una TStringList.
Sono delle schegge a caricare i file di testo.
Poi si utilizza il puntatore a carattere per fare un miniparser.


Si tratta di riconoscere test e valori numerici, per lo scanner del testo/generatore di tocken.
Non serve nemmeno farsi un albero AST.


Ma è una questione di gusti.


Stilgar

[DragoRosso]

Si, si poteva fare anche con una TStringList, ma nel modo proposto ci si trova gia l'array dei vertici bello pronto nel suo formato nativo.

Io, tendenzialmente uso lo TStringList se ho un input ben definito tipo un CSV o simile e sò perfettamente cosa stò leggendo. Nel caso specifico il file è un DXF, quindi cosa ci si trova non è del tutto noto. Ed effettuare lo TStringList solo per la parte "VERTEX", bhè non penso ci sia un guadagno che bilanci poi l'extra elaborazione da fare.

Sono d'accordo che poi è una questione di gusti, di stile e di esperienza sopratutto. Io tendenzialmente se dovessi leggere file DXF frequentemente cercherei di farmi una classe.

Ciao ciao

[Stilgar]

Eh, magari c'è pure in lettore di DXF già bello e pronto.


Sarebbe da vedere nella libreria fpvectorial.


E' tra i formati supportati.


https://wiki.lazarus.freepascal.org/fpvectorial


 


Stilgar

[DragoRosso]

Non penso voglia entrare nell'argomento DXF direttamente, parlare di formati cad (tra cui DXF) è alquanto complesso. Ritengo voglia esporre solo alcuni dati del file (per computi metrici ?).

Tieni presente che i vari formati sono stati dall'89 in poi in evoluzione continua e non c'è ne uno compatibile all'altro (dxf v95 e dxf v2000 sono diversi). Lo stesso pregiatissimo Autocad (copyright del leggittimo proprietario) ha negli anni avuto qualche gabola con la compatibilità.

Adottare un programma di lettura vettoriale potrebbe portare ad una serie di problematiche che forse il ns. utente potrebbe non volr affrontare.

Comunque pubblicità e cultura vanno sempre bene. Proverò il componente indicato per vedere come si comporta con i vari formati e le varie versioni.

Ciao

[alexarmato66]

GRAZIE !!! Era quello che cercavo di fare  DragoRosso.
Se poi volessi modificare il codice dando un inizio di lettura (POLIGONO1) come dovrei fare?
Es:

POLIGONO1
VERTEX
  8
0
10
 9.2
20
 8.5
30
0.00
0
VERTEX
  8
0
10
-5.2
20
 0.25
30
0.00
0
SEQEND
  0

[DragoRosso]

Non chiedermi anche le mesh .... 
.....

Codice: [Seleziona]

type TVertex = record
   Dummy1: integer;
   Dummy2: integer;
   Dummy3: integer;
   X: double;
   Dummy4: integer;
   Y: double;
   Dummy5: integer;
   Dummy6: double;
   Dummy7: integer;
end;

type TPoligono = array of TVertex;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    //fVertici: TPoligono;
    //Rcoolta di vertici (eg POLIGONI)
    fFiguraComplessa: array of TPoligono;
  public
    { Public declarations }
    function Carica(const NomeFile: string): boolean;
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}


function TForm1.Carica(const NomeFile: string): boolean;
var tempFile: TEXTFILE;
    valore: string;
    tempindice: integer;
begin
  Result := false;
  SetLength(fFiguraComplessa, 1);
  SetLength(fFiguraComplessa[0], 0);
  try
    if Fileexists(NomeFile) then
      begin
        AssignFile(tempfile, NomeFile);
        Reset(tempfile);
        while not eof(tempfile) do
          begin
            readln(tempfile, valore);
            if UPPERCase(Trim(valore)) = 'SEQEND' then
              break;
            //se leggo "POLIGONOxxxxx" senza aver trovato almeno un vertice allora non incremento la struttura
            if (Pos('POLIGONO', UPPERCase(Trim(valore))) > 0) and (Length(fFiguraComplessa[0]) > 0) then
              begin
                setlength(fFiguraComplessa, length(fFiguraComplessa)+1);
                setlength(fFiguraComplessa[length(fFiguraComplessa)-1], 0);
              end;
            if UPPERCase(Trim(valore)) = 'VERTEX' then
              begin
                setlength(fFiguraComplessa[length(fFiguraComplessa)-1], length(fFiguraComplessa[length(fFiguraComplessa)-1])+1);
                //per semplicità .....
                tempindice := length(fFiguraComplessa[length(fFiguraComplessa)-1])-1;
                with fFiguraComplessa[length(fFiguraComplessa)-1][tempindice] do
                  begin
                    readln(tempfile, Dummy1);
                    readln(tempfile, Dummy2);
                    readln(tempfile, Dummy3);
                    readln(tempfile, X);
                    readln(tempfile, Dummy4);
                    readln(tempfile, Y);
                    readln(tempfile, Dummy5);
                    readln(tempfile, Dummy6);
                    readln(tempfile, Dummy7);
                  end;
              end;
           end;
        Result := True;
      end;
  except on e: exception do
    begin
      Result := false;
      CloseFile(tempfile);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Carica('prova.txt');
end;

Ciao

[alexarmato66]

  GRAZIE!!!

[DragoRosso]

Eh, magari c'è pure in lettore di DXF già bello e pronto.
Sarebbe da vedere nella libreria fpvectorial.
E' tra i formati supportati.
https://wiki.lazarus.freepascal.org/fpvectorial
 
Stilgar

Provato, ma non sono riuscito a leggere nemmeno un dei file DXF che ho .... compreso un DXF che dovrebbe provenire da un autocad LT2000 (dovrebbe ma non ne ho la certezza).

Il file viene letto ma sembra che non riconosca i vertici (tutti a zero ?), non ci ho perso più di tanto tempo. Quando avrò un pò più di tempo approfondirò

EDIT: file di esempio, non è quello LT ...

Ciao

[doc]

@ alexarmato66

Scommetto che è un "aggiornamento" del tuo programma VCAP....
Stai forse cercando il modo di fargli importare direttamente la sezione da un file DXF?

[Stilgar]

Alex.
Domanda, cosa rappresentano le singole righe?


VERTEX <-Tipo?
  8 <-Lunghezza blocco?
0 <-??
10 <- Tipo dato successivo?
 9.2299999999999997E+001   // coordinata X <-Valore
20 <- Tipo dato successivo?
 8.5000000000000000E+000   // coordinata Y <-Valore
30 <- Tipo dato successivo?
0.00 <-Valore
0<- Fine Blocco?


Stilgar

[doc]

@ Stilgar

Se vedi qui è spiegato abbastanza bene https://digilander.libero.it/carlopala/vb/dxf.htm; certo che il sito di Autodesk http://docs.autodesk.com/ACD/2014/ITA/index.html?url=files/GUID-D939EA11-0CEC-4636-91A8-756640A031D3.htm,topicNumber=d30e530297 è più completo.
Il problema dei file DXF (scambio di informazioni tra i diversi programmi di grafica vettoriale), anche se sono dei semplici file di testo, è che negli anni ne sono usciti una marea di tipi diversi.

[DragoRosso]

Ti aggiorno io per quello che sò (riferimento: http://docs.autodesk.com/ACD/2011/ENU/filesDXF/WS1a9193826455f5ff18cb41610ec0a2e719-79c8.htm)

VERTEX <- (testo)
  8 <- (non noto)
0 <-(non noto)
10 <- (tipo integer, dato successivo punto X in OCS o WCS)
 9.2299999999999997E+001   <- coordinata X FLOAT
20 <- (tipo integer, dato successivo puntoY in OCS o WCS)
 8.5000000000000000E+000   <- coordinata Y FLOAT
30  <- (tipo integer, dato successivo punto Z in OCS o WCS)
0.00   <- coordinata Z FLOAT
0<- (non noto)

Un riferimento per un pacchetto free è in python https://ezdxf.readthedocs.io/en/stable/index.html, io uso CADVCL in Pascal (a pagamento) che mi legge tutto ccompresi STEP, DWG, STL, .... etc ....

Ciao

[doc]

@ DragoRosso

Il codice di gruppo 8 definisce il Layer sul quale dovrà essere collocato il segmento.
Purtroppo....DXF che usi, impostazioni che trovi!!!