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, 5464 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 ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Internet
gelöst Jeden morgen Internet-Probleme (59)

Frage von pjrtvly zum Thema Internet ...

DSL, VDSL
VDSL Signal via PowerLine an Fritzbox - Möglich? (19)

Frage von Seichobob zum Thema DSL, VDSL ...

Windows Server
Benutzer sperrt sich immer wieder im Active Directory Contoller (18)

Frage von Kirdy1301 zum Thema Windows Server ...