| |
Visual-Basic EinsteigerRe: 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.
| |
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: 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 | |
Re: 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 | |
| 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 |
|
|
sevISDN 1.0
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats Neu! sevDTA 3.0 Pro
SEPA mit Kontonummernprüfung
Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Weitere Infos
|