---

Hallo an Alle,

das CATScript von Jens Hansen wollte ich für mich anpassen.
Nur erkennt er nicht, was ich eignetlich möchte.
Wenn der f1.name mit VE* beginnt soll er das erste Teil ausführen, wenn nicht das zweite.

If f1.name Like "VE*" then
Dim LastExtPos As Integer
LastExtPos = InStrRev(f1.name,".",-1)
f1.name = Left (f1.name, LastExtPos)

PFADAUSGABE = folderoutput & f1.name & ".ps"
PartDocument1.ExportData PFADAUSGABE, "ps"

else

Dim LastExtPos1 As Integer

LastExtPos1 = InStrRev(f1.name,"-",-1)
f1.name = Left (f1.name, LastExtPos1)

end if
PFADAUSGABE = folderoutput & f1.name & ".ps"
PartDocument1.ExportData PFADAUSGABE, "ps"

s = s & f1.name
s = s & vbCrLf

Was ist hier noch zu beachten?

Danke für jede Hilfe.

Schöne Grüße
Feyza : )

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

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

---

Hi Feyza,

vielleicht hilft der folgende Befehl Dir weiter:

If Left(f1.name,2) = "VE" Then
Else
End If

------------------
Tschüß, Dieter

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

---

Hallo Dieter,

danke für Deine Hilfe.
Das Script funktioniert jetzt : )

Schöne Grüße aus Nürnberg
Feyza : )

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

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

---

Hallo Kollegen,

ich habe ein ähnliches Problem und komme nicht weiter

Habe einen Parameter40 der kann Werte annehmen welche mit "center...."beginnen.

Kann ich in meiner Schleife die ersten Stellen des Wertes verarbeiten?

ElseIf Param40(Param40,2) = "ce" Then

Im Moment bekomme ich die Meldung " Typen unverträglich"

Gruß

Norbert

------------------
V5R18
Catia + Smarteam

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

---

Servus
Versuch es mal mit:
ElseIf left(Param40,2) = "ce" Then

Gruß
Bernd

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

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

---

Hallo,

sollte es nicht heißen:

ElseIf left(Param40.Value,2) = "ce" Then

Gruß
Bertel

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

---

Hallo Bertel, hallo Bernd,

vielen Dank für eure Hilfe, jetzt ist mir das mit dem "left" klargeworden.
Funktionieren tut :

ElseIf left(Param40,2) = "ce" Then

sobald ich das Value noch mit dazunehme erhalte ich den Fehler "Objekt erforderlich"

LG

Norbert

------------------
V5R18
Catia + Smarteam

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

---

Versuch es mal mit

.ValueAsString

Gruss Timber

------------------
Wenn alle Stricke reissen, nehm ich ein Drahtseil

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