| |
Visual-Basic EinsteigerRe: vbTab einfügen bei einer Textbox | | | Autor: alert | Datum: 20.10.13 16:45 |
| Hallo Zardoz,
vielen Dank genau so habe ich es mir vorgestellt.
Gru, alert | |
vbTab einfügen bei einer Textbox | | | Autor: alert | Datum: 20.10.13 14:06 |
| Hallo @ll,
ich habe da eine Liste unter anderem mit Musiktiteln und möchte
das die KB und oder MB mti einem bzw. mehreren TAB von den Titeln
in einer Reihe getrennt sind.
so sieht es jetzt aus:
Avenged Sevenfold - A Little Peace Of Heaven.mp3 [11,54 MB]
Avenged Sevenfold - Afterlife.mp3 [9,49 MB]
Avenged Sevenfold - Almost Easy Instrumental.mp3 [4,45 MB]
Avenged Sevenfold - Almost Easy.mp3 [6,30 MB]
Avenged Sevenfold - An Epic of Time Wasted.mp3 [3,98 MB]
Avenged Sevenfold - And All Things Will End.mp3 [11,85 MB]
Avenged Sevenfold - Bat Country.mp3 [7,91 MB]
Avenged Sevenfold - Beast And The Harlot.mp3 [9,18 MB]
Avenged Sevenfold - Betrayed.mp3 [10,19 MB]
Avenged Sevenfold - Blinded In Chains.mp3 [10,32 MB]
Avenged Sevenfold - Breaking Their Hold.mp3 [2,74 MB]
Avenged Sevenfold - Brompton Cocktail.mp3 [9,66 MB]
Avenged Sevenfold - Buried Alive.mp3 [15,31 MB]
Avenged Sevenfold - Burn It Down.mp3 [7,98 MB]
Avenged Sevenfold - Carry On.mp3 [3,90 MB]
Avenged Sevenfold - Chapter Four.mp3 [9,22 MB]
Avenged Sevenfold - Clairvoyant Disease.mp3 [7,54 MB]
Avenged Sevenfold - Critical Acclaim.mp3 [8,55 MB]
Avenged Sevenfold - Dancing Dead.mp3 [8,91 MB]
Avenged Sevenfold - Danger Line.mp3 [12,53 MB]
Avenged Sevenfold - Darkness Surrounding.mp3 [11,03 MB]
Avenged Sevenfold - Dear God Instrumental.mp3 [4,20 MB]
Avenged Sevenfold - Dear God.mp3 [10,17 MB]
Avenged Sevenfold - Demons.mp3 [10,13 MB]
Avenged Sevenfold - Desecrate Through Reverence.mp3 [9,24 MB]
und so hätte ich es gerne:
Avenged Sevenfold - A Little Peace Of Heaven.mp3 & vbTab & [11,54 MB] '1x vbTab
Avenged Sevenfold - Afterlife.mp3 & vbTab & vbTab & vbTab & [9,49 MB] '3x vbTab
Avenged Sevenfold - Almost Easy Instrumental.mp3 & vbTab & [4,45 MB] '1x vbTab
Avenged Sevenfold - Almost Easy.mp3 & vbTab & vbTab & vbTab & [6,30 MB] '3x vbTab
Avenged Sevenfold - An Epic of Time Wasted.mp3 & vbTab & vbTab & [3,98 MB] '2x vbTab
Avenged Sevenfold - And All Things Will End.mp3 & vbTab & [11,85 MB] '1x vbTab
Avenged Sevenfold - Bat Country.mp3 & vbTab & vbTab & vbTab & [7,91 MB] '3x vbTab
Avenged Sevenfold - Beast And The Harlot.mp3 & vbTab & vbTab & [9,18 MB] '2x vbTab
Avenged Sevenfold - Betrayed.mp3 & vbTab & vbTab & vbTab & [10,19 MB] '3x vbTab
Avenged Sevenfold - Blinded In Chains.mp3 & vbTab & vbTab & [10,32 MB] '2x vbTab
Avenged Sevenfold - Breaking Their Hold.mp3 & vbTab & vbTab & [2,74 MB] '2x vbTab
Avenged Sevenfold - Brompton Cocktail.mp3 & vbTab & vbTab & [9,66 MB] '2x vbTab
Avenged Sevenfold - Buried Alive.mp3 & vbTab & vbTab & vbTab & [15,31 MB] '3x vbTab
Avenged Sevenfold - Burn It Down.mp3 & vbTab & vbTab & vbTab & [7,98 MB] '3x vbTab
Avenged Sevenfold - Carry On.mp3 & vbTab & vbTab & vbTab & [3,90 MB] '3x vbTab
Avenged Sevenfold - Chapter Four.mp3 & vbTab & vbTab & vbTab & [9,22 MB] '3x vbTab
Avenged Sevenfold - Clairvoyant Disease.mp3 & vbTab & vbTab & [7,54 MB] '2x vbTab
Avenged Sevenfold - Critical Acclaim.mp3 & vbTab & vbTab & [8,55 MB] '2x vbTab
Avenged Sevenfold - Dancing Dead.mp3 & vbTab & vbTab & vbTab & [8,91 MB] '3x vbTab
Avenged Sevenfold - Danger Line.mp3 & vbTab & vbTab & vbTab & [12,53 MB] '3x vbTab
Avenged Sevenfold - Darkness Surrounding.mp3 & vbTab & vbTab & [11,03 MB] '2x vbTab
Avenged Sevenfold - Dear God Instrumental.mp3 & vbTab & vbTab & [4,20 MB] '2x vbTab
Avenged Sevenfold - Dear God.mp3 & vbTab & vbTab & vbTab & [10,17 MB] '3x vbTab
Avenged Sevenfold - Demons.mp3 & vbTab & vbTab & vbTab & vbTab & [10,13 MB] '4x vbTab
Avenged Sevenfold - Desecrate Through Reverence.mp3 & vbTab & [9,24 MB] '1x vbTab
Es soll also nach dem längsten Eintrag ein TAB dazwischen
sein und bei dem kürzesten Eintrag dann so viele TAB bis
sie mit dem längsten Eintrag in einer Reihe stehen.
Gruß, alert | |
Re: vbTab einfügen bei einer Textbox | | | Autor: Zardoz | Datum: 20.10.13 14:43 |
| Hallo alert,
welche VB-Version?
Gruss,
Zardoz | |
Re: vbTab einfügen bei einer Textbox | | | Autor: Manfred X | Datum: 20.10.13 14:46 |
| Hallo
Welche VB-Version verwendet Du?
Der Beitrag sollte dann in ein passendes Einsteiger-Forum (Classic oder Net).
Du könntest die Strings splitten (hinter " - " bzw. ".mpg" oder vor "[")
und die einzelnen Abschnitte in die Spalten eines ListView-Controls
eintragen.
Falls es Tabs sein müssen, wäre bei jedem Teilstring zu prüfen, wie viele
Zeichen er lang ist und diese Länge ist ins Verhältnis zu den Tab-Abständen
zu setzen.
Wie soll diese Liste im Programm verwendet werden?
Daraus ergibt sich die Wahl des passenden Controls.
| |
Re: vbTab einfügen bei einer Textbox | | | Autor: alert | Datum: 20.10.13 15:17 |
| Oh, sorry habe ich glatt vergessen vb6 nutze ich.
Und das ListView-Control wollte ich dafür nicht verwenden da es auch mit TAB in einer Textdatei gespeichert werden soll. Es geht mir dabei mehr um die Übersichtlichkeit.
Gruß, alert | |
Re: vbTab einfügen bei einer Textbox | | | Autor: Zardoz | Datum: 20.10.13 15:35 |
| Hallo alert,
probier' mal dies:
Dim i&, P1&, P2&, Txt$, Lst$()
Lst = Split(Text1.Text, vbCrLf)
P1 = 0
For i = 0 To UBound(Lst)
P2 = InStr(1, Lst(i), "[")
If P2 > P1 Then P1 = P2
Next i
For i = 0 To UBound(Lst)
Txt = Lst(i)
If Trim$(Txt) <> "" Then
P2 = InStr(1, Txt, "[")
Lst(i) = Left$(Txt, P2 - 1) & Space$(P1 - P2 + 8) & Mid$(Txt, P2)
End If
Next i
Text1.FontName = "Courier New"
Txt = Join(Lst, vbCrLf)
Text1.Text = Left$(Txt, Len(Txt) - 2) Gruss,
Zardoz | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
Neu! sevCoolbar 3.0
Professionelle Toolbars im modernen Design!
Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Weitere InfosTipp des Monats TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|