VB6 Zeichenkette suchen

Hallo,
ich möchte ein string-deklariertes Array durchsuchen
a) nach einer Zahl (eigentlich einem numerischen Wert)
b) nach dem Zeichen „1a“ bzw. "2a … „6a“

Gibt es zu a) etwas fertiges wie „ISTZAHL“ in Excel?
Bei b) möchte ein langes „1a“ OR „2a“ OR … vermeiden.

vG
der_kps

ich möchte ein string-deklariertes Array durchsuchen
a) nach einer Zahl (eigentlich einem numerischen Wert)
b) nach dem Zeichen „1a“ bzw. "2a … „6a“

Gibt es zu a) etwas fertiges wie „ISTZAHL“ in Excel?
Bei b) möchte ein langes „1a“ OR „2a“ OR … vermeiden.

Hallo Klaus,

a) isnumeric()

b) mir unklar was du da willst, vielleicht so:

Sub tt()
Dim arrTest, T As Long
Const Such As String = "#1a#2a#3a#4a#5a#6a#"
arrTest = Array("ee", "1a", "t6", "3a")
For T = LBound(arrTest) To UBound(arrTest)
 If InStr(Such, "#" & arrTest(T) & "#") Then MsgBox arrTest(T)
Next T
End Sub

Gruß
Reinhard

Hallo Klaus,

ich vermute, daß Du in Deinem String-Array nach der Zahl in der Zeichenkette suchst.

Val(„5a“)

liefert die 5. Oder suchst Du nach dem „a“?

Instr(2,„5a“,„a“)

bringt es Dir.
Du mußt nur für ein-, zwei- oder dreistellige Zahlen vorsorgen. Die Zahl könntest Du mit der Left- oder der Mid-Funktion abmachen und Deinen String dann weiterverarbeiten.

M.

Danke für die Hilfe!
Es geht (immer noch) um eine Zensurenliste. In den Datensätzen => 1 sind in den Feldern 20 bis 650 irgendwo Noten eingetragen, deren Feldindex ich benötige. Im Datensatz 0 finde ich zum gefundenen Feldindex die Bezeichnung des Fachs.
Note 1…6 für aktuelle Fächer, 1a…6a für für abgeschlossene Fächer und n für nicht erteilte Fächer.
Ich habe was mit isnumeric und left/right gebastelt: Funktioniert!

vG
der_kps