title image


Smiley Re: Regexp

Sub Test()    Dim RetVal As String        RetVal = GetString("123456789", 2)End SubFunction GetString(Input1 As String, Input2 As Long) As String        Dim LokalString As String    Dim Counter As Long        LokalString = Trim(Input1)        If Len(LokalString) < Input2 Or Input2 < 1 Then        'Längenangabe passt nicht, dann String komplett zurückgeben        GetString = LokalString        Exit Function        ElseIf Len(LokalString) Mod Input2 <> 0 Then        'Stringlänge ist nicht ganzzahlig teilbar        If Input2 Mod 2 <> 0 Then            Counter = -1                    Else            Counter = 1                    End If        GetString = Left(LokalString, Input2 + Counter)        LokalString = Right(LokalString, Len(LokalString) - (Input2 + Counter))    End If    'Rest aufteilen    For Counter = 1 To Len(LokalString) Step Input2        GetString = GetString & Space(1) & Mid(LokalString, Counter, Input2)            Next Counter    GetString = Trim(GetString)    End Function


Wer weiß schon, was er nicht weiß...(ich zähle mich auch dazu) Holger

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: