---

Hallo,

ich meld mich auch mal wieder, bei mir geht es um folgende Programmzeile:
###

selection1.Search ("Name=Variable*")

##
mein Problem ist, bei der Search funktion findet er nichts.
Ich habe eben Bauteile, die fangen mit einer nummer an, sagen wir mal 1234, hinter der nummer steht dann nochwas, z.B. Reifen rechts oder sowas in der art. Ich lese nun die daten, also 1234 aus einer Tabelle aus, und möchte das bauteil "1234 Reifen rechts" markieren, um es später im macro einzufärben. allerdings weiß ich nicht, wie ich die varable einbaue, schreibe ich jetzt einfach nur in die Klammern "Name=Variable*" oder wie könnte man das lösen?...bitte Helft mir, wäre dankbar. Bei fragen...einfach posten 

MfG
Alex

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

---

Nimmst Du am Besten: selection.search ("Name=1234*,all")

Wenn Du Variablen verwenden willst, dann musst Du den Suchstring vorher zusammenbauen:

Variable = "Name=" & Suchnummer & "*,all"

und dann selection.search (Variable)

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

---

danke für den tip...nur irgendwas funktioniert da nicht, er geht bis zu dieser Zeile und meldet dann "Type missmatch"
weisst du woran das liegen könnte?

Danke schonmal...

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

---

Nur eine Vermutung:

Vielleicht mußt du die Suchnummer (Integer, Single, Double) in eine String-Variable umwandeln. Also eine expliziten String definieren "Dim Str_Suchnummer As String" und dann zuweisen "Str_Suchnummer=Suchnummer". Jetzt diese String-Variable für die Sucheingabe verwenden.

Variable = "Name=" & Str_Suchnummer & "*,all"
selection.search (Variable)

mfg

Martin

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

---

geht leider immernochnicht, er hat irgendwas gegen die suchnummer ich hasse es...
Hier mal der ganze Macro:

###

Sub CATMain()

Dim MyFS As FileSystem
Set MyFS = CATIA.FileSystem

Dim AllText(3) As String
Dim CurrentData As String

Dim i as Integer
Dim PosStart as Integer
Dim PosEnd as Integer
Dim R, G, B, Modul, Kogr, PPG, Sachnummer, Benennung, EVT, BZA, SST, Datum, GTArt

Dim MyFile As File
Set MyFile = MyFS.GetFile("/home/q070151/CATScript/input.csv")

Dim MyStream As CATIATextStream
Set MyStream = MyFile.OpenAsTextStream("ForReading")

Dim StrLine As String

StrLine = MyStream.ReadLine
StrLine = MyStream.ReadLine
StrLine = MyStream.ReadLine
StrLine = MyStream.ReadLine
StrLine = MyStream.ReadLine
StrLine = MyStream.ReadLine
StrLine = MyStream.ReadLine
StrLine = MyStream.ReadLine

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Search("Name=*,all")

Dim visualisation As VisPropertySet
Set visualisation = selection1.VisProperties

visualisation.SetRealColor 0,0,0,1

productDocument1.Product.Update
Do Until MyStream.AtEndOfStream
StrLine = MyStream.ReadLine
MsgBox "Gelesene Zeile = " & StrLine
R = Split(StrLine, "/")
G = Split(StrLine, "/")
B = Split(StrLine, ";")
Modul = Split(StrLine, ";")
Kogr = Split(StrLine, ";")
PPG = Split(StrLine, ";")
Sachnummer = Split(StrLine, ";")
Benennung = Split(StrLine, ";")
EVT = Split(StrLine, ";")
BZA = Split(StrLine, ";")
SST = Split(StrLine, ";")
Datum = Split(StrLine, ";")
GTArt = Split(StrLine, ";")

Dim Str_Sachnummer As String

Str_Sachnummer = Sachnummer

MsgBox Sachnummer

Dim Name as String

Name = CStr("Name=")

Dim all as String

all = CStr("*,all")

Dim suche as String

suche = Name & Str_Sachnummer & all

selection1.Search(suche)

Set visualisation = selection1.VisProperties

visualisation.SetRealColor R,G,B,1

productDocument1.Product.Update
Loop
End Sub
###

Danke schonmal... 

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

---

Liegt es vielleicht an der Zeile

Dim R, G, B, Modul, Kogr, PPG, Sachnummer, Benennung, EVT, BZA, SST, Datum, GTArt

muss diese nicht

Dim R, G, B, Modul, Kogr, PPG, Sachnummer, Benennung, EVT, BZA, SST, Datum, GTArt as String

lauten?

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

---

@SashaM

nein, ist abhängig davon welche Sprache du verwendest.

In richtigem VBA geht zumeist beides, wobei ich aber auch schon Fälle hatte bei dem " as xyz" weglassen musste damit catia es akzeptiert.

------------------
gr33t7 Ronny

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