---

Ob ich eine Datei als Step203 oder Step214 exportiere, die Datei hat in beiden Fällen die Endung .step.

Weiß jemand, wie man an einem Step-File erkennen kann, welches Format sich darin verbirgt?

Hintergrund:
Ich habe ein Makro geschrieben, welches mir recht komfortabel Revisionsstände von SWX-Dateien in verschiedensten Formaten sichert. Ich möchte jetzt überprüfen und anzeigen, ob es entsprechende Dateien schon gibt, bevor sie ahnungslos überschrieben werden.

In meinem Makro kann ich auswählen, ob ich eine Datei als Step203 oder Step214 exportiere. Wenn schon eine Step-Datei existiert, wie kann ich herausfinden, ob sie im 203- oder 214-Format ist?

Piet

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Die Datei könnte man mit einem Editor öffnen. In dieser müsste es dann erkennen können.

------------------
Gruss Frank O.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

So was in der Art (Export) habe ich auch mal gemacht.

Du gibtst praktisch eine Extension an, z.B. ".iges" oder ".x_t". Wähle für die STEP Dateien doch einfach "214.step" bzw. "203.step".

Bsp:
Testdatei.sldprt --> Testdatei.iges
Testdatei.sldprt --> Testdatei.x_t
Testdatei.sldprt --> Testdatei214.step
Testdatei.sldprt --> Testdatei203.step

Finde ich legitim 

------------------
Gruß, der Teddibaer

Besucht mich doch mal ...
----------------
Es gibt nichts Gutes, ausser man tut es 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Jo, so funktioniert's:

    Dim fs As Object
    ...
    Set fs = CreateObject("Scripting.FileSystemObject")
    ...
          If fs.FileExists(CheckFile(1)) Then
                Dim Output As Object    'TextStream
                Set Output = fs.OpenTextFile(CheckFile(1), 1, False)    'öffnet die Step-Datei
                Dim StepZeile As String
                Do Until StepZeile Like "*FILE_DESCRIPTION*"    'sucht die Zeile mit der File_Description
                    StepZeile = Output.ReadLine()              'liest die Zeile aus
                Loop
                Output.Close
                If StepZeile Like "*203*" Then                  ' erkennt das Step203-Format
                    frmEingabe.chkPrtStep203.ForeColor = &HFF&
                    frmEingabe.chkPrtStep203 = True
                ElseIf StepZeile Like "*214*" Then              ' erkennt das Step204-Format
                    frmEingabe.chkPrtStep214.ForeColor = &HFF&
                    frmEingabe.chkPrtStep214 = True
                Else
                    MsgBox "Step-Dateiformat nicht erkannt"
                End If
            End If

Da es im Normalfall nur um Einzelteile geht, oder um kleine Baugruppen, geht das sehr schnell.

Vielen Dank an Euch alle!

Piet

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP