vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

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

Fortgeschrittene Programmierung
Re: String auf vielen Einzelteilen zusammensetzen 
Autor: Zardoz
Datum: 25.04.19 17:48

Hallo Bernd,
ich habe noch eine Möglichkeit ohne Collection.
Trage alle Texte (auch die Doppelten) in ein
Array ein und rufe die Funktion Array_to_Str auf.
Private Function Array_to_Str(TxtLst() As String) As String
 
  Dim i&, Txt$, C$
 
  Call QuickSort(TxtLst, LBound(TxtLst), UBound(TxtLst))
  C = Chr$(1)
  Txt = C
  For i = LBound(TxtLst) To UBound(TxtLst)
    If Txt = TxtLst(i) Then
      TxtLst(i) = C
    Else
      Txt = TxtLst(i)
    End If
  Next i
  Array_to_Str = Join(Filter(TxtLst, C, False))
 
End Function
 
Private Sub QuickSort(SortArr() As String, ByVal LB As Long, ByVal UB As Long)
 
  Dim P1&, P2&, Pivot$, Tmp$
 
  P1 = LB
  P2 = UB
  Pivot = SortArr((P1 + P2) / 2)
  Do
    Do While SortArr(P1) < Pivot: P1 = P1 + 1: Loop
    Do While SortArr(P2) > Pivot: P2 = P2 - 1: Loop
    If P1 <= P2 Then
      Tmp = SortArr(P1): SortArr(P1) = SortArr(P2): SortArr(P2) = Tmp
      P1 = P1 + 1
      P2 = P2 - 1
    End If
  Loop Until P1 > P2
  If LB < P2 Then Call QuickSort(SortArr, LB, P2)
  If P1 < UB Then Call QuickSort(SortArr, P1, UB)
 
End Sub

Gruss,

Zardoz

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
String auf vielen Einzelteilen zusammensetzen1.292Benne08.04.19 12:19
Re: String auf vielen Einzelteilen zusammensetzen680Zardoz08.04.19 13:35
Re: String auf vielen Einzelteilen zusammensetzen686Benne08.04.19 16:05
Re: String auf vielen Einzelteilen zusammensetzen664Benne08.04.19 16:46
Re: String auf vielen Einzelteilen zusammensetzen678Manfred X08.04.19 18:09
Re: String auf vielen Einzelteilen zusammensetzen638Benne25.04.19 16:22
Re: String auf vielen Einzelteilen zusammensetzen653Benne25.04.19 16:42
Re: String auf vielen Einzelteilen zusammensetzen650Zardoz25.04.19 17:00
Re: String auf vielen Einzelteilen zusammensetzen635Benne25.04.19 17:28
Re: String auf vielen Einzelteilen zusammensetzen652Zardoz25.04.19 17:48
Re: String auf vielen Einzelteilen zusammensetzen640Benne26.04.19 09:01
Re: String auf vielen Einzelteilen zusammensetzen638Manfred X25.04.19 20:11
Re: String auf vielen Einzelteilen zusammensetzen632Benne26.04.19 09:04
Re: String auf vielen Einzelteilen zusammensetzen631Manfred X26.04.19 09:54

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-2024 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