✔ String umwandeln / auflösen

[lituxsa]

Hallo zusammen,
ich möchte gerne folgende Programmzeile erstellen:

K =Mid(myFBInfo, Min, 1) Or Mid(FBInfo(1), Min, 1) Or Mid(FBInfo(2), Min, 1)
K > 0

Die Werte von FBInfo sind aber in einem Array. Ich habe versucht mir diese Zeile über einen String zusammen zu bauen:

strNamen = "Mid(FBInfo(" & 1 & "), Min, 1)"
For p = 2 To objRecips.Count
strNamen = strNamen & " or "
strNamen = strNamen & "Mid(FBInfo(" & p & "), Min, 1)"
next
und dann den String strNamen in eine Zahl umzuwandeln: k = CVar(strNamen)

Aber das funktioniert nicht! Hat jemand eine Idee, wie ich den String umwandel bzw. auflöse?

Vielen Dank und viele Grüße

 

[Elvan]

Hi lituxsa,

erstmal CVar wandelt dir das in einen Varianten um und in den umzuwandeln ist, glaub ich, Quatsch, denn dann könntes du ja besster strNamen gleich als Varianten deklariern.
Strings in Integer oder long Werte zu wandeln geht mit Cint und Clng, aber dann darf der String kein einziges Zeichen mehr enthalten.
Was meinst Du denn mit "auflösen"? Also in Luft ist ganz einfach strNamen = ""

 

[lituxsa]

Hallo Elvan,
Danke für die Antwort.
Es geht mir darum, die obige Programmzeile K= mid(FBinfo(1),Min,1) or mid(fbinfo(2),Min,1) zu programmieren.
Ich wollte die Zeile per String zusammenbauen und dann halt auflösen, da in K nach obigem Beispiel ein numerischer Wert enthalten sein muss.
So, jetzt habe ich mich aber auf den Weg begeben und es anders gelöst.
Gruß

 

[Elvan]

Ach soo:

if Mid(myFBInfo, Min, 1) Or Mid(FBInfo(1), Min, 1) Or Mid(FBInfo(2), Min, 1) > 0 then

end if

dann meinst Du wohl das, oder ?