Text einer Variablen zurückgeben

[steddys]

Hallo zusammen,

ich habe eine Variable, die "Zeilen" heißt. Der Inhalt lautet z.B. "Harry 2010".

Ich möchte die Variable nun so kürzen, das mir nur noch der Text bis zur ersten Zahl ausgegeben wird, also "Harry". Hat jmd. eine Idee?

Viele Grüße

Sebastian

[Brad_Turpin]

Hallo Sebastian,

Wie waere es mit dieser Vorgehensweise?

 

Zeilen = "Harry 2010"

NumStr = val(Zeilen)

NumPos = InStr(Zeilen, NumStr)

IF NumPos > 1 THEN Zeilen = Trim(Left(Zeilen, NumPos-1))

MsgBox Zeilen

Brad Turpin

DIAdem Product Support Engineer
National Instruments

[steddys]

Hallo Brad,

vielen Dank für die schnelle Hilfe! Leider habe ich immer noch ein Problem damit! 

Es würde viell. gehen, ich habe aber mehrere Fälle, wo es nicht mehr funktoniert!

Folgende Fälle habe ich:

1) Zeilen = "Harry 2010"

2) Zeilen = "Harry"                                      (hier geht es nicht mehr, da er keinen numerischen Wert findet!)

3) Zeilen = "Harry 2010 Verantwortlicher"

4) Zeilen = "Harry F. 2010"

5) Zeilen = "Harry / Sally 2010"

Es wäre also super, wenn alles vor der ersten Zahl ausgegeben wird, auch wenn keine Zahl in der Variablen drin steckt (wie bei 2 z.B.)! Alles andere kann gelöscht werden bzw. interessiert nicht!

Vielen Dank!

Sebastian

[ralfn]

Hallo Sebastian,

die Left-Funktion wird weiterhelfen:

Left-Funktion

Gibt eine bestimmte Anzahl von Zeichen ab dem ersten (linken) Zeichen einer Zeichenfolge zurück.

Left(Zeichenfolge, Länge)

Weitere VBS-Befehle finden sich im VBS-Sprachverzeichnis: DIAdem-Hilfe -> Programmierreferenz -> Allgemeines zu Scripten -> VBScript -> VBScript Sprachverzeichnis

Viele Grüße,
Ralf N.

[ralfn · Accepted solution]

Dim cString, sString

sString = "Hallo 123"

Dim iCount
For iCount = 1 To Len(sString)
  cString = Mid(sString,iCount,1)
  If ( (cString >= "0") And (cString <= "9") ) Then Exit For
Next

Call MsgBoxDisp( Trim(Left(sString,iCount-1)) )

Message Edited by ralfn on 05-04-2010 11:22 AM

[steddys]

Hallo Ralf,

vielen Dank, das ist es!

Viele Grüße Sebastian