vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 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: Wörter Sortieren 
Autor: Danzi
Datum: 19.11.09 11:12
Hallo,

da sind eine Menge "Fehler" drin:

1.
Zuerst fragst Du ab, ob es sich um einen Punkt oder Komma etc. handelt.
Anstatt in der Folge nun sofort die Anweisung
wort = wort + vbNewLine
auszuführen, wandelst Du mit
Mid(unsort, i, 1) = Chr(255)
das Zeichen in das Zeichen 255 um, um dann später wieder abzufragen, ob es sich um das Zeichen 255 handelt. Das weißt Du doch schon!

2.
While Asc(Mid(unsort, i, 1)) < 255
wort = wort + Mid(unsort, i, 1)
End While
Hier mißbrauchst Du eine Schleife, die keine ist, da sie - jedenfalls so, wie Du sie verwendest - immer nur einmal durchlaufen wird und in ihr sich nichts ändert. Richtig wäre:
If Asc(Mid(unsort, i, 1)) < 255 Then
wort = wort + Mid(unsort, i, 1)
End If

3.
Du hast die If-Then-Verzweigung (nicht If-Schleife !!!) gewählt. Die ist aber für den konkreten Fall nicht optimal. Du solltest hier besser Select Case verwenden: 
Dim i As Long
Dim unsort As String
Dim wort As String
 
For i = 1 To Len(unsort)
    Select Case Mid(unsort, i, 1)
    Case " ", ".", ":", ",", ";", "?", "!", "-"
        'Sortierung
        wort = wort + vbNewLine
        'Ausgabe der Wörter
    Case Else
        wort = wort + Mid(unsort, i, 1)
    End Select
    Me.prbStatus.Value = i
Next
Me.txtSortiert.Text = wort
Wie Du siehst, sind nun irgendwelche ASCII-Werte, Abfragen und Ersetzungen völlig überflüssig. Der Code ist kurz und wesentlich schneller!

Beitrag wurde zuletzt am 19.11.09 um 11:23:21 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Wörter Sortieren2.229tanjar1718.11.09 16:53
Re: Wörter Sortieren1.146sudave18.11.09 17:12
Re: Wörter Sortieren1.023tanjar1718.11.09 18:35
Re: Wörter Sortieren1.162sudave18.11.09 19:50
Re: Wörter Sortieren1.031tanjar1719.11.09 08:33
Re: Wörter Sortieren1.062Danzi19.11.09 11:12
Re: Wörter Sortieren999Dirk19.11.09 11:39
Re: Wörter Sortieren997Danzi19.11.09 11:43
Re: Wörter Sortieren1.015Dirk19.11.09 13:18
Re: Wörter Sortieren975Danzi19.11.09 13:36

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