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
|
