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, 5444 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
PHP
gelöst Php regex und Array (5)

Frage von Thomas91 zum Thema PHP ...

C und C++
gelöst Anzahl der Buchstaben in einem String Element Array C++ (3)

Frage von Protected zum Thema C und C ...

C und C++
String einlesen in Array und wieder ausgeben von hinten (4)

Frage von Protected zum Thema C und C ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (21)

Frage von Xaero1982 zum Thema Microsoft ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Windows Update
Treiberinstallation durch Windows Update läßt sich nicht verhindern (14)

Frage von liquidbase zum Thema Windows Update ...

DSL, VDSL
Problem mit variernder Internetgeschwindigkeit (12)

Frage von schaurian zum Thema DSL, VDSL ...