Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Sortieren von eine Textbox in VB6 (nach ascii) wie Bubblesort ohne Array nur

Frage Entwicklung VB for Applications

Mitglied: JuanJespar

JuanJespar (Level 1) - Jetzt verbinden

25.06.2009, aktualisiert 16:05 Uhr, 5459 Aufrufe, 2 Kommentare

Hallo Liebes Foum,
wieder mal ein kleines Problem was bestimmt ziemlich leicht zu lösen ist (VB)

Ich möchte gern eine TextBox die mit einem Text befüllt ist ( http://juanjespar.dyndns.org/upload/Text.JPG )
sortieren, und zwar der reihenfolge nach wie die Zeichen in Ascii sind ( http://juanjespar.dyndns.org/upload/Sort.JPG )

Hoffe das ist gut erklärt was ich möchte.

Hier noch mein mom. Code (is eh falsch)

01.
Option Explicit 
02.
 
03.
Private Sub btsortieren_Click() 
04.
Dim iLauf As Integer, intZeileA As Integer, IntZeileB As Integer 
05.
Dim strText As String 
06.
Dim strTextinhalt As String 
07.
Dim Pruefen As Boolean 
08.
Dim test As Integer 
09.
 
10.
strText = tbtext.Text 
11.
    For iLauf = 1 To Len(strText) 
12.
        Pruefen = True 
13.
            intZeileA = Asc(Mid(strText, iLauf, 1)) 
14.
            IntZeileB = intZeileA + 1 
15.
                If intZeileA < IntZeileB Then 
16.
                    test = Asc(Mid(strText, intZeileA, 1)) 
17.
                    intZeileA = IntZeileB 
18.
                    strTextinhalt = strTextinhalt & Chr(test) 
19.
'                    strTextinhalt = Chr(IntZeileB) + strTextinhalt 
20.
                End If 
21.
    Next iLauf 
22.
    tbtext.Text = strTextinhalt 
23.
End Sub 
24.
 
25.
Private Sub btcancel_Click() 
26.
    End 
27.
End Sub 
28.
 
29.
'                strTextinhalt = Chr(intZeileA) 
30.
'                Chr(intZeileA) = Chr(IntZeileB) 
31.
'                Chr(IntZeileB) = strTextinhalt

Schonmal ielen lieben dank an Die, die Helfen können!
Mitglied: JuanJespar
25.06.2009 um 17:31 Uhr
Hier die antwort

01.
Option Explicit 
02.
 
03.
Private Sub btsortieren_Click() 
04.
Dim iLauf As Integer 
05.
Dim strText As String 
06.
Dim strTextinhalt As String 
07.
Dim Pruefen As Boolean 
08.
Dim intLaenge As Integer 
09.
Dim strErgebniss As String 
10.
 
11.
strText = tbtext.Text 
12.
    For iLauf = 33 To 255 
13.
        Pruefen = True 
14.
                For intLaenge = 1 To Len(strText) 
15.
                    If Asc(Mid(strText, intLaenge, 1)) = iLauf Then 
16.
                    strErgebniss = strErgebniss & Chr(iLauf) 
17.
                    End If 
18.
                Next intLaenge 
19.
        Pruefen = False 
20.
    Next iLauf 
21.
    strTextinhalt = strTextinhalt & strErgebniss 
22.
    tbtext.Text = strTextinhalt 
23.
End Sub 
24.
 
25.
Private Sub btcancel_Click() 
26.
    End 
27.
End Sub
Bitte warten ..
Mitglied: bastla
25.06.2009 um 17:33 Uhr
Hallo JuanJespar!

Versuch es damit (weil Du ja "Bubblesort" wolltest):
01.
strText = tbtext.Text 
02.
'Sortieren 
03.
N = Len(strText) 
04.
For i = 1 To N - 1 
05.
    For j = 1 To N - 1 
06.
        If Mid(strText, j, 1) > Mid(strText, j + 1, 1) Then 
07.
            Mid(strText, j, 2) = Mid(strText, j + 1, 1) & Mid(strText, j, 1) 
08.
        End If 
09.
    Next 'j 
10.
Next 'i 
11.
strText = Trim(strText) 
12.
 
13.
'Gruppieren 
14.
i = 1 
15.
Do 
16.
    If Mid(strText, i, 1) <> Mid(strText, i + 1, 1) Then 
17.
        strText = Left(strText, i) & " " & Mid(strText, i + 1) 
18.
        i = i + 1 
19.
    End If 
20.
    i = i + 1 
21.
Loop While i < Len(strText) 
22.
tbtext.Text = strText
Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Datenbanken
gelöst SQL-Dateien sortieren, kombinieren und filtern (6)

Frage von derapfelsaft zum Thema Datenbanken ...

Visual Studio
gelöst C-Sharp WPF MVVM ListView mit TextBox SelectionChanged Event (2)

Frage von mayho33 zum Thema Visual Studio ...

Microsoft Office
gelöst Excel Tabelle nach Spalte sortieren und Daten auf Tabellenblätter separieren (4)

Frage von Fastinator zum Thema Microsoft Office ...

Neue Wissensbeiträge
Windows 10

Windows 8.x oder 10 Lizenz-Key aus dem ROM auslesen mit Linux

(6)

Tipp von Lochkartenstanzer zum Thema Windows 10 ...

Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(40)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Heiß diskutierte Inhalte
Windows 10
gelöst Windows 10 Home "Netzlaufwerk nicht bereit" (19)

Frage von Oggy01 zum Thema Windows 10 ...

Exchange Server
gelöst RU 17 Exchange 2010 . Erfahrungen? (10)

Frage von keine-ahnung zum Thema Exchange Server ...

Datenbanken
gelöst MySQL Zeiterfassungs-Problematik (wer ist eingecheckt) (9)

Frage von NativeMode zum Thema Datenbanken ...

Windows Server
Festplatten Ruhezustand Windows Server 2016 (8)

Frage von ahaeuser zum Thema Windows Server ...