Emailsignatur einlesen

[ronaldo84]

Hallo.

Ich habe ein Problem. Und zwar möchte ich Emailsignaturen in eine Datenbank eintragen. Ich lese sie dazu in ein Array ein. Mein Problem ist nur das die Signaturen ja immer unterschiedlich sind. Und an einer anderen Stelle stehen.
Telefonnummern, Fax, Handy, Email und Homepage kriege ich ja raus. Aber den Rest?
Bei den PLZ könnte ich ja eigentlich den String durchsuchen ob ein Zahl mit mehr als 4 Stellen, und ein Text vorhanden ist. Aber wie kann ich das umsetzten?
Weiß da jemand rat?
Bei dem Namen könnte ich es so machen das ich den string dann durchsuche ob drt nur Buchstaben vorhanden sind. Gibt es da eine Möglichkeit wie isNumeric bei zahlen? Oder muss ich wirklich jedes einzelne Zeichen des Strings einlesen und dann abfragen ob es eine Zahl ist? Weiß jemand weiter?
Danke

Edit: Okay das mit der PLZ habe ich jetzt raus.

	If (IsNumeric(Left$(subbody(x), "6"))) Then
			  'MsgBox (subbody(x))
			  plzfound = True
		End If

Wäre aber dankbar wenn mir jemand einen Trick verraten kann wie ich rausfinde, ob ein String nur Buchstaben enthält. Ohne ein Schleife wenn es geht.

 

[ronaldo84]

Okay. Es ist eine ganz schöne Fummelarbeit, aber es geht voran. Ich stehe nur noch vor dem PRoblem, das er auch leere Arrayfelder ausgibt. Ich versuche schon mit folgender Abfrage dies zu verhindern.
Habe ich irgendeine Möglichkeit übersehen?

If ((subbody(x) <> vbNullString) And (subbody(x) <> "") And (IsNull(subbody(x)) = False) And (IsEmpty(subbody(x)) = False)) Then
Msgbox(subbody(x))
end if

Die Msgbox ist bei den entsprechenden Zeilen vollkommen leer.