Autor
|
Thema: HEX-Werte über EXCEL-VBA in ASCII-Datei speichern (4234 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 |
| Betriebstechniker (m/w/d) Pipelines | Land und Standort: Deutschland, Wesseling, Gundersheim Evonik, eines der weltweit führenden Unternehmen der Spezialchemie, steht für attraktive Geschäfte und Innovationskraft. Wir arbeiten in einer vertrauensvollen und ergebnisorientierten Unternehmenskultur, ausgerichtet auf profitables Wachstum und die Steigerung des Unternehmenswertes. In über 100 Ländern profitieren wir von Kundennähe und führenden Marktpositionen.... | Anzeige ansehen | Feste Anstellung |
|
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 |