title image


Smiley Eigene Function
Dim i as integerDim Z as StringDim Hälfte as StringPublic Function Teilenbei(Zeichenfolge As String, Zeichen As String, VH As Integer)'Zeichenfolge ist der String, aus dem ein Teil zurückgegeben werden soll'Zeichen ist ein String, bei dessen erstem auftreten die Zeichenfolge geteilt werden soll'VH =1 gibt den vordere Hälfte der Zeichenfolge, VH = 2 die hintere Hälfte zurückOn Error GoTo Fehler'***** Wenn VH = 2 dann wird zweite Hälfte zurückgegeben i = 1 Z = "" Hälfte = "" '***** erste Hälfte der Zeichenfolge zurückgeben Do Until Mid((Zeichenfolge), i, 1) = Zeichen Or i = Len(Zeichenfolge) Hälfte = Left(Zeichenfolge, i) i = i + 1 Loop If VH = 2 Then '***** zweite Hälfte zurückgeben Hälfte = Right(Zeichenfolge, Len(Zeichenfolge) - i) End IfTeilenbei = HälfteExit FunctionFehler:Teilenbei = "Fehler#"End FunctionIch hoffe es hilftBirgit

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: