Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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, 5468 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
Batch & Shell
gelöst Leere Array-Werte aus einem Array entfernen (3)

Frage von ToniHo zum Thema Batch & Shell ...

VB for Applications
gelöst VBA Textbox fokussieren und Daten über Button eintragen (1)

Frage von Aximand zum Thema VB for Applications ...

Microsoft Office
gelöst VBA Excel Problem mit UserForm, ListBox und TextBox (12)

Frage von abuelito zum Thema Microsoft Office ...

Visual Studio
gelöst VB bestimmte Stelle im Bild highlighten wenn MouseOver Textbox? (9)

Frage von PixL86 zum Thema Visual Studio ...

Neue Wissensbeiträge
Viren und Trojaner

FinFisher: Internetprovider schieben Spitzelopfern Malware unter

(1)

Information von kaiand1 zum Thema Viren und Trojaner ...

Humor (lol)

Wo ist der Fehler auf dem Bild?

(17)

Information von the-buccaneer zum Thema Humor (lol) ...

Windows Update

Offenbar erneutes MS-Update mit Fehlerschleife (2012 R2)

Information von VGem-e zum Thema Windows Update ...

Heiß diskutierte Inhalte
Lizenzierung
Programm soll in verschiedenen Versionen lizenziert sein (20)

Frage von Yanmai zum Thema Lizenzierung ...

Humor (lol)
Wo ist der Fehler auf dem Bild? (17)

Information von the-buccaneer zum Thema Humor (lol) ...

Windows Userverwaltung
Ordner-Rechte für Dom.Admin einschränken? (13)

Frage von kilobyte zum Thema Windows Userverwaltung ...