vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2022
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Zeichen im String löschen 
Autor: ModeratorDieter (Moderator)
Datum: 04.05.22 06:46

Ich habe mir für solche Zwecke einmal universelle Funktionen geschrieben, die ich hierzu benutzen kann, bspw.: TrimLeft

sTitalbetrag = TrimLeft(Format(nBetrag, "##'###'##0.00"), "'")
Beliebige Zeichen am Anfang und/oder Ende eines Strings entfernen

Und hier meine Funktion:
' Entfernt alle angegebenen Zeichen links vom String
Public Function TrimLeft(ByVal Value As String, _
  Optional ByVal Char As String = " ", _
  Optional ByVal nCount As Long = 0) As String
 
  If Len(Value) > 0 Then
    If Char = " " Then
      TrimLeft = LTrim$(Value)
    Else
      Dim nLen As Long
 
      nLen = Len(Char)
      If nCount > 0 Then
        Dim i As Long
        While Len(Value) > 0 And Left$(Value, nLen) = Char And i < nCount
          Value = Mid$(Value, nLen + 1)
          i = i + 1
        Wend
      Else
        While Len(Value) > 0 And Left$(Value, nLen) = Char
          Value = Mid$(Value, nLen + 1)
        Wend
      End If
    End If
  End If
 
  TrimLeft = Value
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Zeichen im String löschen231crosstravel03.05.22 19:07
Re: Zeichen im String löschen99ModeratorDieter04.05.22 06:46
Re: Zeichen im String löschen60eierlein04.05.22 18:54
Re: Zeichen im String löschen78Kuno6004.05.22 20:46
Re: Zeichen im String löschen63crosstravel05.05.22 14:06

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2022 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel