---

Hallo Ihr Spezialisten,

ich habe mal wieder was. Wahrscheinlich schon hundert mal gemacht aber gefunden habe ich nix.

Folgendes:

Ich habe ein Product mit mehreren CatParts. Diese CatParts werden mit einem anderen anderen Macro und einer bestimmten Namenskonvention in eine Datenbank geschrieben. Die Datenbank generiert eine zufällige Nummer für jedes Catpart. Ich kann derzeit die zufällig angelegte Nummer in ein txt File schreiben (temporär). Nun möchte ich allerdings  dass dieses Part das gerade gespeichert wurde den neuen Namen mit der Nummer an nimmt. Also quasi eine umbenennung des CatPart mit dem Namen aus einem TXT File.

Kann mir da jemand helfen?

Gruß Kay

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

---

Ok Ich habe es dann doch hinbekommen.

Code:

---

Dim oPrtdoc As PartDocument
Dim prtname As String

Public Sub getprismanumber()

Dim iFile As Integer
iFile = FreeFile
Dim sFile As String, sTemp() As String
ReDim sTemp(0)
sFile = "C:\tmp\files.txt"
Open sFile For Input As #iFile
  Do While Not EOF(iFile)
    ReDim sTemp(UBound(sTemp) + 0)
    Line Input #iFile, sTemp(UBound(sTemp))
  Loop
Close #iFile
For iFile = LBound(sTemp()) To UBound(sTemp())
'MsgBox sTemp(iFile) 'abfrage txtzeile
prtname = sTemp(iFile)
Next iFile

Set oPrtdoc = CATIA.ActiveDocument

' MsgBox prtname ' abfrage in String

oPrtdoc.Product.PartNumber = prtname

End Sub

---

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