Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

nochmal verzwickt
Autor: Franz
Datum: 25.11.01 18:29
also die Api Funktion ist echt nicht schlecht. Nur wird damit ein Ordner einfach abgetrennt. Ich hab mich mal hingesetzt und diese Funktion geschrieben. Private Sub Command1_Click() If Len(Text1.Text) >= 30 Then b = Left(Text1.Text, 15) For n = 1 To Len(b) If Not Right(b, 1) = "\" Then a = Mid(b, 15 - n, 1) End If If a = "\" Then b = Left(b, 15 - n - 1) & "..." Exit For End If Next If Len(b) = 15 Then b = b & "..." End If Text2.Text = b a = "" b = "" n = "" '-------------------------------------------------- b = Right(Text1.Text, 15) For n = 1 To Len(b) If Not Left(b, 1) = "\" Then a = Mid(b, 0 + n, 1) End If If a = "\" Then b = "\" & Right(b, 15 - n) '& "..." Exit For End If Next If Len(b) = 15 Then b = b '& "..." End If Text2.Text = Text2.Text & b Else Text2.Text = Text1.Text End If End Sub Hab aber das Gefühl die hat ein paar Bugs. Also es wäre nett wenn ihr mir mal diese Funktion mit Split als fertigen Code geben könntet.

nochmal verzwickt	74	Franz	25.11.01 18:29
Re: nochmal verzwickt	260	Dieter	25.11.01 23:31

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