Saveas Problem (Dassault Systemes - PLM Solutions/CATIA V5 Programmierung)

Zitat:
Original erstellt von bgrittmann:
Servus Lucas
Wie sieht dein Code für das SaveAs (und die Herstellung des Dateinamens aus)?
Ggf reicht das Angeben mit Dateiendung bei SaveAs aus.
Was machst du wenn Umlaute oder andere Sonderzeichen in der PartNumber vorkommen?
Gruß
Bernd

Hallo Bernd
Ich tausche Polnische Buchstaben (und anders) mit:

Code:

Public Function RemoveNonASCII(str As String) As String
Dim i As Integer
For i = 1 To Len(str)
If Not (AscW(Mid(str, i, 1)) = 61 Or (AscW(Mid(str, i, 1)) >= 48 And AscW(Mid(str, i, 1)) <= 57) Or (AscW(Mid(str, i, 1)) >= 65 And AscW(Mid(str, i, 1)) <= 90) Or AscW(Mid(str, i, 1)) = 95 Or (AscW(Mid(str, i, 1)) >= 97 And AscW(Mid(str, i, 1)) <= 122)) Then 'It's an ASCII character
Select Case AscW(Mid(str, i, 1))
'----------------------------------------------------------------ZNAKI POLSKIE-----------------------------------------------------
Case 260 'Mid(RemoveNonASCII, i, 1) = ChrW(261)
str = Replace(str, ChrW(260), "A")
Case 261 'Mid(RemoveNonASCII, i, 1) = ChrW(261)
str = Replace(str, ChrW(261), "a")
Case 262 'Mid(str, i, 1) = ChrW(263)
str = Replace(str, ChrW(262), "C")
Case 263 'Mid(str, i, 1) = ChrW(263)
str = Replace(str, ChrW(263), "c")
Case 280 'Mid(str, i, 1) = ChrW(281)
str = Replace(str, ChrW(280), "E")
Case 281 'Mid(str, i, 1) = ChrW(281)
str = Replace(str, ChrW(281), "e")
Case 323 'Mid(str, i, 1) = ChrW(324)
str = Replace(str, ChrW(323), "N")
Case 324 'Mid(str, i, 1) = ChrW(324)
str = Replace(str, ChrW(324), "n")
Case 211 'Mid(str, i, 1) = ChrW(243)
str = Replace(str, ChrW(211), "O")
Case 243 'Mid(str, i, 1) = ChrW(243)
str = Replace(str, ChrW(243), "o")
Case 321 'Mid(str, i, 1) = ChrW(322)
str = Replace(str, ChrW(321), "L")
Case 322 'Mid(str, i, 1) = ChrW(322)
str = Replace(str, ChrW(322), "l")
Case 346 'Mid(str, i, 1) = ChrW(347)
str = Replace(str, ChrW(346), "S")
Case 347 'Mid(str, i, 1) = ChrW(347)
str = Replace(str, ChrW(347), "s")
Case 379 'Mid(str, i, 1) = ChrW(380)
str = Replace(str, ChrW(379), "Z")
Case 380 'Mid(str, i, 1) = ChrW(380)
str = Replace(str, ChrW(380), "z")
Case 377 'Mid(str, i, 1) = ChrW(378)
str = Replace(str, ChrW(377), "Z")
Case 378 'Mid(str, i, 1) = ChrW(378)
str = Replace(str, ChrW(378), "z")
'----------------------------------------------------------------ZNAKI SPECJALNE-----------------------------------------------------
Case 32
str = Replace(str, ChrW(32), "_")
Case 248 'Mid(str, i, 1) = ChrW(378)
str = Replace(str, ChrW(248), "D")
'Case Else
'str = Replace(str, Mid(str, i, 1), "_")
End Select
End If
Next i
RemoveNonASCII = str
End Function

und spiechern unter mit:

Code:

Function zapisz(Product As Product, sPath As String)
Set oDoc = Product.ReferenceProduct.Parent
sName = RemoveNonASCII(Product.PartNumber)
If Not CATIA.FileSystem.FileExists(sPath & sName) = True Then
If Left(Right(sName, 2), 1) = "." Then
sName = sName & ".CATPart"
End If
oDoc.SaveAs (sPath & sName)
Else
sStatus = MsgBox("Złożenie o tej nazwie istnieje już na dysku! Chcesz ręcznie zmienić nazwę?", vbOKCancel, "Plik o tej nazwie już istnieje!")
If sStatus = "Yes" Then
sName = InputBox("Podaj nową, unikalną nazwę pliku: ", "Nowa nazwa pliku", sName & ".1")
Else
sStatus2 = MsgBox("Przerwano na życzenie użytkownika", vbOKOnly, "Anuluj")
End If
End If
End Function

Das Problem mit Namen habe ich mit:

Code:

If Left(Right(sName, 2), 1) = "." Then
sName = sName & ".CATPart"
End If

gelöst.
Was noch funct nict ist das hier:

Code:

If Not CATIA.FileSystem.FileExists(sPath & sName) = True Then
If Left(Right(sName, 2), 1) = "." Then
sName = sName & ".CATPart"
End If
oDoc.SaveAs (sPath & sName)
Else
sStatus = MsgBox("Złożenie o tej nazwie istnieje już na dysku! Chcesz ręcznie zmienić nazwę?", vbOKCancel, "Plik o tej nazwie już istnieje!")
If sStatus = "Yes" Then
sName = InputBox("Podaj nową, unikalną nazwę pliku: ", "Nowa nazwa pliku", sName & ".1")
Else
sStatus2 = MsgBox("Przerwano na życzenie użytkownika", vbOKOnly, "Anuluj")
End If
End If

Die Makro soll der Benutzer sagen, das der Datei existiert schon und wie soll die neue Instanz gespiechert sein. Aber es sieht mir aus, dass so wie so, es einfach speicherst uber die existierte Datei . Ich hoffe das mein Deutsch is gut genug zu die Erklarung

Gruss
Lucas

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