title image


Smiley Re: Wie bekomme ich aus einem STRING alle LEERZEICHEN raus??
Z.B. mit meiner Funktion StrCollapse:Function StrCollapse(St)'' Funktionswert: Liefert Zeichenkette in kollabierter Form zurück' (Leerzeichen und Sonderzeichen werden ignoriert)Dim I, Res, Ch As String * 1On Error GoTo Err_StrCollapse Res = "" If Not IsNull(St) Then Ch = " " For I = 1 To Len(St) Ch = Mid$(St, I, 1) If Asc(Ch) > 32 Then Res = Res & Ch Next I End If If Len(Res) > 1 Then If Mid(Res, Len(Res), 1) = " " Then Res = Mid(Res, 1, Len(Res) - 1) End If StrCollapse = ResExit_StrCollapse: Exit FunctionErr_StrCollapse: MsgBox Err.Description Resume Exit_StrCollapseEnd Functionoder hiermit (etwas allgemeiner):Public Function StrSubs(S, Subs, Optional Repl = "", Optional N = 0)'' Teilzeichenkette Subs in Zeichenkette S durch Repl ersetzen' Ersetzung maximal n mal ausführen, wenn n > 0, sonst alle ersetzen'Dim FPos As Integer, I As Integer, Res As StringOn Error GoTo Er If IsNull(S) Then StrSubs = Null: GoTo Ex If IsNull(Subs) Then StrSubs = S: GoTo Ex Res = S I = 0 FPos = InStr(1, Res, Subs) Do While FPos > 0 I = I + 1 If N > 0 And I > N Then Exit Do If FPos > 1 Then Res = Mid(Res, 1, FPos - 1) & Repl & Mid(Res, FPos + Len(Subs)) Else Res = Repl & Mid(Res, FPos + Len(Subs)) End If FPos = InStr(FPos + Len(Repl), Res, Subs) Loop StrSubs = ResEx: Exit FunctionEr: MsgBox Err.Description Resume ExEnd FunctionStrSubs(MeinFeld," ","") bzw. auf "deutsch": StrSubs(MeinFeld;" ";"") ist dann das, was du brauchst...Reinhard


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: