---

Hallo,

wie kann ich eine Txt-Datei öffnen (c:\test.txt)?

Um Notepad aufzurufen reicht:
Catia.SystemService.ExecuteProcessus ("c:\Windows\Notepad.exe")

Exel-Datei:

Sub CATMain()

Set xlApp = CreateObject("Excel.Application")

Set MyXL = GetObject(, "Excel.Application")

If Err.Number <> 0 Then ExcelWasNotRunning = True

Err.Clear

Set MyXL = GetObject("c:\Test.xls")

MyXL.Application.Visible = True

MyXL.Parent.Windows(1).Visible = True

End Sub

Vielen Dank und Grüße

Georg

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

---

Hallo GeorgK,

stellt dieser Beitrag eine Frage oder eine Information dar?

Wenn es eine Frage ist, dann ist der Hintergrund aus meiner Sicht nicht unwichtig: Was willst Du mit der Text-Datei bzw. den Informationen darin anstellen...?

Zum Verarbeiten der Text-Datei kann man auch "Stream" samt Unterbefehle nutzen...

mfg,
Lusilnie

------------------

Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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

---

Hallo Lusilnie,

ich möchte die Datei mit Notepad öffnen um sie ansehen zu können.

Danke

Georg

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

---

Servus
Unter "cmd" (Eingabeauforderung) reicht:

Code:

---

C:\Windows\notepade.exe c:\text.txt

---

Um eine txt-Datei zu öffnen. Vielleicht hilft es dir weiter.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd,

vielen Dank. Manchmal sieht man den Wald vor lauter Bäumen nicht.

Grüße

Georg

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

---

Guten Abend,

ich möchte gerne eine gespeicherte txt. Datei öffnen.

Code:

---

Sub CATMain()

Dim ADoc As Document
Set ADoc = CATIA.Documents.Open("C:\Users\Peter\Documents\Test\Nullpunkte.txt")

End Sub

---

Muss ich statt "Document" als "File" deklarieren damit es so funktioniert?

Gruß
Peter

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

---

Servus
Such mal in der V5Automation.chm nach "OpenAsTextStream".

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

txt_oeffnen.JPG

Bekomme einen Fehler wenn ich so programmiere wie bei der V5Automation.chm (siehe Anhang)

Code:

---

Sub CATMain()

Dim oFileSys As FileSystem
    Set oFileSys = CATIA.FileSystem

Dim sFilOu As String
    sFilOu = "C:\Users\Peter\Documents\Test\Nullpunkte.txt"

Dim Datei As File

Set Datei = oFileSys.GetFile(sFilOu)

Set oStream = oFilOu.OpenAsTextStream("ForReading")

End Sub

---

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

---

Servus
Sind die Referenzen gesetzt? (bzw welche sind bei dir gesetzt?)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Welche Referenzen meinst du?

Gruß
Peter

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

---

der Bernd meint damit

VBA /Tools/References

Es kann aber auch sein, dass Du

Dim oFileSys As Object

schreiben musst.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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