|
Autor
|
Thema: HEX-Werte über EXCEL-VBA in ASCII-Datei speichern (4222 mal gelesen)
|
mundal
Mitglied
Techniker
   Beiträge: 320
Registriert: 14.02.2005
|
erstellt am: 09. Feb. 2009 14:50  <-- editieren / zitieren -->   Unities abgeben:          
|
KlaK
Ehrenmitglied V.I.P. h.c.
Dipl. Ing. Vermessung, CAD- und Netz-Admin
Beiträge: 2624
Registriert: 02.05.2006 AutoCAD LandDesktop R2 bis 2004
Civil 3D 2005 - 2014
Plateia, Canalis
Visual Basic
|
erstellt am: 09. Feb. 2009 15:19 <-- editieren / zitieren --> Unities abgeben: Nur für mundal 
|
mundal
Mitglied
Techniker
Beiträge: 320
Registriert: 14.02.2005
|
erstellt am: 09. Feb. 2009 15:24 <-- editieren / zitieren --> Unities abgeben:
Hallo Klaus, wir generieren über ein VBA-Skript aus EXCEL heraus eine CNC-Datei,
sprich eine ASCII-Datei.
Die CNC-Schnittstelle erwartet zu Beginn einer jeden Zeile (Satzes)
die 02 in HEX
am Satzende
die 03 in HEX Das Zeilenende wird mit CR LF abgeschlossen. Das ist die Aufgabenstellung. Gruss
Joachim Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KlaK
Ehrenmitglied V.I.P. h.c.
Dipl. Ing. Vermessung, CAD- und Netz-Admin
Beiträge: 2624
Registriert: 02.05.2006 AutoCAD LandDesktop R2 bis 2004
Civil 3D 2005 - 2014
Plateia, Canalis
Visual Basic
|
erstellt am: 09. Feb. 2009 15:38 <-- editieren / zitieren --> Unities abgeben: Nur für mundal
Damit geht es: Code:
Dim ff
ff = FreeFile 'Nächsten freien Handle holen
Open "e:\test.asc" For Output As #ffPrint #ff, Chr(&O2); 'schreibt Hex 02 ohne Zeile abzuschließen
Print #ff, "Anweisungen"; ' <= Hier Deinen Text
Print #ff, Chr(&O3) ' schreibt Hex 03 und fügt Zeilenende ( &0D &0A )an Close ff
Grüße,
Klaus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
okl
Mitglied
Wirtsch-Ing (Maschbau)
Beiträge: 157
Registriert: 21.04.2006 3,6 mHz, 2 GB RAM, NVIDIA Quadro FX 1300, Pro/E Wildfire 3, Win XP Prof SP2, Office, VS 2005, VB 6, VS Express
|
erstellt am: 12. Feb. 2009 11:39 <-- editieren / zitieren --> Unities abgeben: Nur für mundal
Moin zusammen, @Klaus: habe nur einen kleinen Änderungsvorschlag: Da FreeFile die nächste verfügbare Dateinummer zurückgibt, sollte diese Var auch als Integer deklariert werden. In Deinem Code ist die Variable ff als Variant deklariert, da kein expliziter Typ angegeben wurde. Code:
Dim ff As Integer
Nichts für ungut, Dein Code wird sicher (oder wahrscheinlich, da ich kein CNC-Mensch bin) funktionieren, aber ich mag diese unsauber definierten Variablen einfach nicht. Grüße, Ole Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KlaK
Ehrenmitglied V.I.P. h.c.
Dipl. Ing. Vermessung, CAD- und Netz-Admin
Beiträge: 2624
Registriert: 02.05.2006 AutoCAD LandDesktop R2 bis 2004
Civil 3D 2005 - 2014
Plateia, Canalis
Visual Basic
|
erstellt am: 12. Feb. 2009 23:07 <-- editieren / zitieren --> Unities abgeben: Nur für mundal
Hallo Ole, Hast ja recht, ich mag es auch nicht, wenn die Variablen nicht vollständig definiert sind *andernasepackt*. War zu diesem Zeitpunkt in der Arbeit und hatte nur mal kurz zur Ablenkung die Favorienforen angesehen. Bei so einfachen Lösungen kann man auch bei Hektik schnell mal eine Antwort schreiben, auch wenns kein Echo drauf gibt   hats dem Joachim vielleicht geholfen. Grüße, Klaus  Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mundal
Mitglied
Techniker
Beiträge: 320
Registriert: 14.02.2005
|
erstellt am: 13. Feb. 2009 06:55 <-- editieren / zitieren --> Unities abgeben:
Hallo Zusammen, ich bedanke mich für Eure Antworten, besonders bei Klaus. Tut mir leid wenn ich mich jetzt erst melde und bedanke. Eure Tipps haben mir geholfen, das Problemchen ist gelöst -
fantastisch - Jetzt noch einen schönen Tag @all - auch wenn heute Freitag der 13te ist - ;-) Gruß
Joachim Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
