mmi consult - tipps und tricks blog

Manchmal beinhalten Zeichenketten Zeichen aus anderen Zeichensätzen. Diese können mit nachfolgendem Script schnell ersetzt werden. Function ReplaceChars(Byval sSource As String) As String D .. mehr

Function Left (sourceString As String, searchString As String) As String pos% = Instr(sourceString, searchString) If pos% 0 Then pos% = pos% -1 Left = Left(sourceString, p .. mehr

Function LeftBack (sourceString As String, searchString As String) As String For i% = Len(sourceString) To 1 Step -1 sourceStringBack$=sourceStringBack$ & Mid(sourceString, i%, .. mehr

Function Right (sourceString As String, searchString As String) As String pos% = Instr(sourceString, searchString) length% = Len(sourceString) start% = length% - pos% .. mehr

Function RightBack (sourceString As String, searchString As String) As String For i% = Len(sourceString) To 1 Step -1 sourceStringBack$=sourceStringBack$ & Mid(sourceString, i%, .. mehr

Function Word (sourceString As String, separator As String, number As Integer) As String searchString$=SourceString & separator ' add one separator to catch also the last substring .. mehr

Function Implode( valueToImplode, Seperator As String) As String '=== Returns the value of the list or array imploded into a single string using separator '--- If not array or list then quit .. mehr

Function Explode( valueToExplode As String, Seperator As String) As Variant '=== Gets the ValueToAdd and uses the Seperator as the '=== delimiter to populate the Strings Array Dim Strings .. mehr