Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Ab 1 Leerzeichen am Anfang einer Zeichenfolge alles davor löschen ?
Autor: alert
Datum: 16.01.03 13:17
Hallo Dieter und hannes, habs jetzt so gelöst das auch die Leerzeichen gleich vorne am Anfang verschwinden. Option Explicit Private Sub Command1_Click() Dim sLines() As String Dim I As Integer Leerzeichen sLines = Split(Text1.Text, vbCrLf) For I = 0 To UBound(sLines) If sLines(I) <> "" Then sLines(I) = Mid$(sLines(I), InStr(sLines(I), " ") + 1) sLines(I) = Left$(sLines(I), InStr(sLines(I), " ") - 1) End If Next I Text1.Text = Join(sLines, vbCrLf) End Sub Private Sub Leerzeichen() Dim sLine() As String Dim I As Integer sLine = Split(Text1.Text, vbCrLf) Text1.Text = "" For I = 0 To UBound(sLine) sLine(I) = LTrim$(sLine(I)) If sLine(I) <> "" Then Text1.Text = Text1.Text & sLine(I) + vbCrLf End If Next I End Sub vielen Dank für eure nette Hilfe... gruß, alert

Ab 1 Leerzeichen am Anfang einer Zeichenfolge alles davor lö...	564	alert	13.01.03 23:36
Re: Ab 1 Leerzeichen am Anfang einer Zeichenfolge alles davo...	360	Dieter	14.01.03 02:02
Re: Ab 1 Leerzeichen am Anfang einer Zeichenfolge alles davo...	396	alert	14.01.03 17:56
klappt leider immer noch nicht	332	alert	15.01.03 11:48
Re: klappt leider immer noch nicht	347	Dieter	15.01.03 12:35
klappt fast...	337	alert	15.01.03 15:00
Re: klappt fast...	334	Dieter	15.01.03 15:37
hmmmmmmmmmmm	337	alert	15.01.03 16:15
Re: hmmmmmmmmmmm	51	hannes	16.01.03 11:35
Re: hmmmmmmmmmmm	334	alert	16.01.03 12:05
Re: hmmmmmmmmmmm	41	hannes	16.01.03 12:09
Re: Ab 1 Leerzeichen am Anfang einer Zeichenfolge alles davo...	333	alert	16.01.03 11:14
Re: Ab 1 Leerzeichen am Anfang einer Zeichenfolge alles davo...	336	alert	16.01.03 13:17

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übersicht

Suchen