Herzlich Willkommen, lieber Gast!
  Sie befinden sich hier:

  Forum » FAQ Visual Basic / VBA / VB.Net » Leerzeichen im String wegschneiden

Forum | Hilfe | Team | Links | Impressum | > Suche < | Mitglieder | Registrieren | Einloggen
  Quicklinks: MSDN-Online || STL || clib Reference Grundlagen || Literatur || E-Books || Zubehör || > F.A.Q. < || Downloads   

Autor Thread - Seiten: > 1 <
000
06.04.2006, 16:55 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)


Hallo!

Manchmal brauch man eine kleine Funktion, um die Leerzeichen (" ") am Anfang und/oder am Ende eines Strings wegzuschneiden.
Z.b. bei einem Konsolenprogramm... Man übergibt "test" jedoch gibt man ausversehen ein Leerzeichen ein: " test " => "test"...

Dafür habe ich eine kleine Funktion gebastelt.

Syntax:
DelLeerzeichen(UrsprungsString As String, LinksSchneiden As Boolean, RechtsSchneiden As Boolean) As String

[b]DelLeerzeichen[b/]: Name der Funktion
[b]UrsprungsString[b/]: String, von dem die Leerzeichen weggeschnitten werden sollen.
[b]LinksSchneiden[b/] (Boolean): True/False Wert, der angibt ob Leerzeichen LINKS im String weggeschnitten werden oder nicht.
[b]RechtsSchneiden[b/] (Boolean): True/False Wert, der angibt ob Leerzeichen RECHTS im String weggeschnitten werden oder nicht.


Visual Basic:
Public Function DelLeerzeichen(UrsprungsString As String, _
LinksSchneiden As Boolean, RechtsSchneiden As Boolean) As String

Dim i As Integer

DelLeerzeichen = UrsprungsString

For i = 1 To Len(DelLeerzeichen)
If LinksSchneiden = True Then If Left(DelLeerzeichen, 1) = " " Then DelLeerzeichen = Right(DelLeerzeichen, Len(DelLeerzeichen) - 1)
If RechtsSchneiden = True Then If Right(DelLeerzeichen, 1) = " " Then DelLeerzeichen = Left(DelLeerzeichen, Len(DelLeerzeichen) - 1)
Next i
End Function



Beispiel:


Visual Basic:
Private Sub Form_Load()
Me.Width = 7000
Me.Caption = "            .Leerzeichen in der Form.Caption.     "
Me.Show

'Beidseitig wegschneiden
MsgBox "Form.Caption komplett ohne Leerzeichen:" & vbCrLf & _
"""" & DelLeerzeichen(Me.Caption, True, True) & """"

'Links nicht wegschneiden (Nur rechts wegschneiden)
MsgBox "Form.Caption ohne Leerzeichen rechts:" & vbCrLf & _
"""" & DelLeerzeichen(Me.Caption, False, True) & """"

'Rechts nicht wegschneiden (Nur links wegschneiden)
MsgBox "Form.Caption ohne Leerzeichen links:" & vbCrLf & _
"""" & DelLeerzeichen(Me.Caption, True, False) & """"

End Sub


--
Mit freundlichen Grüßen
Audron, audron@sxene.de
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
001
06.04.2006, 17:17 Uhr
Windalf
Der wo fast so viele Posts wie FloSoft...
(Operator)


Wie wärs mit Replace...
--
...fleißig wie zwei Weißbrote
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
002
06.04.2006, 17:47 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)


Wie wäre es mit Trim? ^^

Bei Replace gehts nicht nur links oder nur rechts e.t.c.
--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Dieser Post wurde am 06.04.2006 um 17:48 Uhr von Audron-AT-www editiert.
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
Seiten: > 1 <     [ FAQ Visual Basic / VBA / VB.Net ]  


ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: