Top-Themen

Aktuelle Themen (A bis Z)

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, 5493 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
Linux
Zeile in einer Textdatei nach Wortlänge sortieren und Zeilen mit Sondernzeichen ( Ascii-Art ) löschen
gelöst Frage von heinz-olafLinux12 Kommentare

Guten Tag an alle Mitglieder, ich habe ein Problem: für ein Projekt habe ich mehere txt-Dateien. Die Dateien sind ...

Peripheriegeräte
Handscanner Erweiterung mit Ascii
Frage von rocco61Peripheriegeräte4 Kommentare

Hallo zusammen, es geht um einen Honeywell MS9520 Handscanner Auf dem Gerät ist es möglich ein CR einzustellen um ...

Visual Studio
Anbindung von Textboxen an Datenbank
gelöst Frage von ForgottenRealmVisual Studio8 Kommentare

Hallo Ich stehe vor einem, wahrscheinlich sehr schnell zu lösendem, Problem mit ein paar TextBoxen, einer Combobox und dem ...

VB for Applications
Checkbox Text in eine Textbox
gelöst Frage von GERz0cKErZVB for Applications4 Kommentare

Hallo, ich möchte, dass wenn ich eine Checkbox anklicke der Text der Checkbox in einer Textbox erscheint, und wenn ...

Neue Wissensbeiträge
Microsoft

Update KB4073578 für AMD CPU (Spectre und Meltdown Lücke)

Information von sabines vor 3 StundenMicrosoft

Wegen Problemen (BOSD, nicht startende PCs) wurde das Update KB4056897 und KB4056894 für AMD CPUs zurückgezogen. Dieses Update KB4073578 ...

Mac OS X

MacOS wo ist die Tilde ?

Tipp von Alchimedes vor 16 StundenMac OS X1 Kommentar

Hallo, ich hab eine MacOS qwertz Keyboard auf US Layout umgestellt da die Sonderzeichen besser erreichbar sind. Leider fehlt ...

Datenschutz

Weitere Informationen zum Sicherheitsproblem BeA

Information von Penny.Cilin vor 23 StundenDatenschutz

Im folgenden ein weiterer Bericht über die Sicherheitsprobleme von Bea. Fataler Konstruktionsfehler im besonderen elektronischen Anwaltspostfach Gruss Penny

Windows 10

Systemdienste behalten nach Win10 inplace-Upgrade nicht die ggf. modifizierte Startart bei

Tipp von DerWoWusste vor 1 TagWindows 103 Kommentare

Stellt Euch vor, Ihr habt ein Win10 System und modifiziert dort die Startart von Systemdiensten. Zum Beispiel wollt Ihr ...

Heiß diskutierte Inhalte
Batch & Shell
Anmeldevorgang für Informatikraum (Schule) unter Windows
Frage von IngenieursBatch & Shell24 Kommentare

Hey zusammen, ich werde in naher Zukunft den Informatik Raum meiner jetzigen Schule von dem aktuellen Betreiber übernehmen (Vertrag ...

Windows 10
Netbook erkennt Soundkarte nicht - keinerlei Info zum Hersteller und Modell vom Netbook und Hardware bekannt
Frage von fyrb38Windows 1019 Kommentare

Guten Tag, meine Schwester reist in einigen Wochen für ein paar Monate ins Ausland und hat sich dafür ein ...

Batch & Shell
AD-Abfrage in Batchdatei und Ergebnis als Variable verarbeiten
gelöst Frage von Winfried-HHBatch & Shell19 Kommentare

Hallo in die Runde! Ich habe eine Ergänzungsfrage zu einem alten Thread von mir. Ausgangslage ist die Batchdatei, die ...

Microsoft Office
Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei
Anleitung von SarekHLMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...