[Gelöst] ExcelBuffer Import ohne Punkte

9. Mai 2007 17:31

Hallo zusammen.
Ich mache grad einen Excelimport. Dabei stört mich nur dass ich nach dem Import in den Codefeldern "Tausender-Trennpunkte" habe. Die sollen da aber nicht sein.
Anscheinend wird mein Wert automatisch als Zahl in der Excelbuffer-Tabelle interpretiert.
Ich kann natürlich in jedes Feld bei Excel reingehen und ein ' vor den Wert zu setzen, damit der Wert richtig interpretiert wird, aber das ist doch irgentwie doof.
Gibt es Da eine tolle Lösung?
Oder muß ich gar die Punkte in einer Nachverarbeitung "rausnehmen"?

Falls keiner mein Problem versteht editiere ich Morgen den Beitrag nochmal, jetzt ist Feierabend.
8-)
Zuletzt geändert von Holzer am 10. Mai 2007 09:24, insgesamt 1-mal geändert.

9. Mai 2007 18:15

Hi Holzer,

ich habe das Problem auch gehabt und habe es in der Nachbearbeitung gelöst:
Code:
IF (rExcelBuffer."Column No." = 1) THEN BEGIN
  iPosition := STRPOS(rExcelBuffer."Cell Value as Text",'.');
  IF iPosition <> 0 THEN BEGIN
    rExcelBuffer."Cell Value as Text" := DELSTR(rExcelBuffer."Cell Value as Text",iPosition,1);
    rExcelBuffer.MODIFY;
  END;
END;

Ob dies nun die eleganteste Lösung ist, wer weiß... :-)

10. Mai 2007 09:23

Moin Falc,
ist zwar nicht schön aber läuft wie ne eins! :mrgreen:
Na dann erstmal schönen dank!

PS: Interessante Signatur ;-)