---

Hallo zusammen,

ich habe mal wieder ein Problem.
Ich möchte ein CATProduct öffnen. Den Namen des Productes bekomme ich aus einem Textfile, aber das funktioniert irgendwie nicht. In meinem Textfile steht der Name des Productes und der Pfad in "". Mein Programm sieht wie folgt aus:

Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents
Dim productDocument1 As Document
Dim filesystem1 As Object
Set filesystem1= CATIA.FileSystem
Dim file As Object
Dim TextStr As CATIATextSteam
Dim Pfad As String

Set file = filesystem1.GetFile ("I:\tmp\product_namen_alt.txt")
Set TextStr = file.OpenAsTextStream ("ForReading")
Pfad = TextStr.ReadLine
MsgBox Pfad
Set productDocument1 = documents1.Open(Pfad)

End Sub

Wenn ich jetzt den Namen nicht einlese, sondern der Variablen Pfad den Namen fest zuweise funktioniert es:

Pfad = "I:/produkte/MASTER.CATProduct"
Set productDocument1 = documents1.Open(Pfad)

Warum und warum funktioniert mein einlesen nicht?

Danke
Gruß Hasim

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

---

Hallo!

Ich hab das Problem so gelöst:

Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents
Dim productDocument1 As Document
Dim filesystem1 As Object
Set filesystem1 = CATIA.FileSystem
Dim file As Object
Dim Pfad As String

FileNum = FreeFile()
Open ("d:\temp\info.txt") For Input As FileNum
Input #FileNum, Pfad
Input #FileNum, Datei
Close #FileNum

Set productDocument1 = documents1.Open(Pfad & Datei)

End Sub

Der Pfad und der Dateiname der zu öffnenden CATIA-Dateien sind in einem Textfile abgespeichert, wie z.B.:
d:\temp\CATIA_FEM\
Product1.CATProduct

=> hier OHNE ""; WICHTIG: in zwei Zeilen!
Bei solchen Dateioperationen Fehlermeldungen bei fehlenden Dateien nicht vergessen:

Set fs = CreateObject("Scripting.FileSystemObject")
'...
FolderExists = fs.FolderExists(Pfad)
'...
FileExists = fs.FileExists(Pfad & "info.txt")
'...
If FolderExists = False Then
  MsgBox ("Pfad " & Pfad & " does not exist!!!")
  End  'Programm beenden
End If

If FileExists = False Then
  MsgBox ("Datei " & Pfad & "info.txt does not exist!!!")
  End  'Programm beenden
End If

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

---

Hi,

danke für deine Antwort. Ich wollte jetzt das Macro von dir testen, aber es bleibt immer in der Zeile mit dem Befehl:

Open ("d:\temp\info.txt") For Input As FileNum

stehen und bringt die Fehlermeldung:

Description: Anweisungsende erwartet
Statement: Open ("d:\temp\info.txt") For Input

Ich verstehe es nicht. Ich habe jetzt in der Doku geschaut, da finde ich aber auch nichts zu diesen Befehl. Kannst du mir vielleicht nochmal helfen?

Danke Hasim

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

---

Hallo!

"Open ... for Input As ..." ist ein allgemeiner VB Befehl (Google: Visual Basic Open for input => sehr viele Beispiele, Probleme,...)

Mein Ansatz hat bei mir immer funktioniert. Ich habe mir aber auch mal kurz dein Makro nochmal angeschaut. Du könntest noch folgendes probieren:

Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents
Dim productDocument1 As Document
Dim filesystem1 As Object
Set filesystem1 = CATIA.FileSystem
Dim file As Object
Dim TextStr As TextStream
Dim Pfad As String

Set file = filesystem1.GetFile("d:\temp\info1.txt")
Set TextStr = file.OpenAsTextStream("ForReading")
Pfad = TextStr.ReadLine
'MsgBox Pfad
Set productDocument1 = documents1.Open(Pfad)

End Sub

=> alles gleich wie vorher, nur die Variable "TextStr" als "TextStream" definieren, nicht als "CATIATextStream". Pfad dann einfach ohne "..." in erste Zeile Textfile speichern:

d:\temp\CATIA_FEM\Part1.CATPart

Funktioniert bei mir.

Martin

[Diese Nachricht wurde von steirerhubsi am 27. Jul. 2004 editiert.]

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

---

Hallo Martin,

vielen Dank für deine Hilfe. Jetzt läuft mein Programm doch. Hab keine Ahnung an was das mal wieder lag.

Gruß
Simone

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