vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Visual-Basic Einsteiger
Re: Mein Anfänger-Code 
Autor: ModeratorDieter (Moderator)
Datum: 17.01.02 10:57
Hallo Lutz,

hier also der Code, der Deine Daten-Arrays automatisch nach Nachname+Vorname sortiert: 
<code>  <font color=green>' Array nach Nachname+Vornamen sortieren</font>
  <font color=#000099>Dim</font> I <font color=#000099>As</font> <font _
    color=#000099>Integer</font>
  <font color=#000099>ReDim</font> arrTemp(MaxAnzahl) <font _
  color=#000099>As</font> <font color=#000099>String</font>
 
  <font color=green>' zunächst die einzelnen Daten-Arrays ( 
  ' Nachname+Vorname)</font>
  <font color=green>' in ein temporäres Gesamt-Array speichern</font>
  <font color=#000099>For</font> I = 1 <font color=#000099>To</font> MaxAnzahl
    <font color=green>' Umlaute im Namen ersetzen</font>
    arrTemp(I) = Replace(Nachname(I), "Ä", "Ae")
    arrTemp(I) = Replace(arrTemp(I), "Ö", "Oe")
    arrTemp(I) = Replace(arrTemp(I), "Ü", "Ue")
    arrTemp(I) = Replace(arrTemp(I), "ä", "ae")
    arrTemp(I) = Replace(arrTemp(I), "ö", "oe")
    arrTemp(I) = Replace(arrTemp(I), "ü", "ue")
    arrTemp(I) = Replace(arrTemp(I), "ß", "ss")
 
    arrTemp(I) = arrTemp(I) + "|" + Vorname(I) + "|" + _
      Telefon1(I) + "|" + Adresse(I) + "|" + _
      PLZ(I) + "|" + Ort(I) + "|" + Nachname(I)
  <font color=#000099>Next</font> I
 
  <font color=green>' jetzt das temporäre Array via QuickSort</font>
  <font color=green>' alphabetisch sortieren</font>
  QuickSort arrTemp()
 
  <font color=green>' Temp-Array wieder in die einzelnen Daten-Arrays</font>
  <font color=green>' zerlegen</font>
  <font color=#000099>Dim</font> sItem <font color=#000099>As</font> Variant
  <font color=#000099>For</font> I = 1 <font color=#000099>To</font> MaxAnzahl
    sItem = Split(arrTemp(I), "|")
    Nachname(I) = sItem(6)
    Vorname(I) = sItem(1)
    Telefon1(I) = sItem(2)
    Adresse(I) = sItem(3)
    PLZ(I) = sItem(4)
    Ort(I) = sItem(5)
  <font color=#000099>Next</font> I</code>
Cu
Dieter
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
String alphabetisch sortieren276Lutz Ebbing30.12.01 09:22
Re: String alphabetisch sortieren2.120ModeratorDieter30.12.01 11:21
Re: String alphabetisch sortieren236Lutz Ebbing30.12.01 12:33
Re: String alphabetisch sortieren2.216ModeratorDieter30.12.01 13:39
Re: String alphabetisch sortieren221Lutz Ebbing16.01.02 18:04
Re: String alphabetisch sortieren1.654ModeratorDieter16.01.02 23:44
Re: Mein Anfänger-Code243Lutz Ebbing17.01.02 10:07
Re: Mein Anfänger-Code1.696ModeratorDieter17.01.02 10:57
Re: Mein Anfänger-Code222Lutz Ebbing17.01.02 13:07

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