|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
28.11.2008 21:23:16 |
Funny-girl |
|
|
 Aw:VBA - Dekomprimieren von Buchstabenketten |
29.11.2008 05:11:31 |
jh |
|
|
|
29.11.2008 05:33:29 |
jh |
|
|
|
29.11.2008 08:04:15 |
jh |
|
|
|
29.11.2008 23:30:15 |
ich_nochmal |
|
|
Von:
jh |
Datum:
29.11.2008 05:11:31 |
Views:
1269 |
Rating:
|
Antwort:
|
Thema:
Aw:VBA - Dekomprimieren von Buchstabenketten |
Hallo,
keine Ahnung, wozu das gut sein soll (als Fingerübung?)
Dim i As Long ' Zähler
Dim s1 As String ' Eingabe
Dim s2 As String ' Ausgabe
Dim t1 As String ' erstes Zeichen
Dim t2 As String ' zweites Zeichen
Dim n As Byte ' Anzahl (numerisch)
s1 = InputBox("Zeichenkette eingeben:")
If Not s1 = "" Then
For i = 1 To Len(s1) Step 2
t1 = Mid$(s1, i, 1)
t2 = Mid$(s1, i + 1, 1)
If IsNumeric(t2) Then
n = Val(t2)
Else
n = 1
i = i - 1
End If
s2 = s2 & String$(n, t1)
Next i
MsgBox s2
End If
Der Punkt, der dir wohl nicht einfiel, ist der, dass geprüft wird,
ob das jeweils zweite Zeichen eine Zahl ist. Wenn ja, wird es in
eine numerische Variable für die Anzahl umgewandelt, wenn nicht,
ist die Anzahl eben 1, und (wichtig!) der Schleifenzähler wird
um 1 zurückgesetzt, weil ja ein Zeichen im Eingabestring "fehlt".
Gruß
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
28.11.2008 21:23:16 |
Funny-girl |
|
|
Aw:VBA - Dekomprimieren von Buchstabenketten |
29.11.2008 05:11:31 |
jh |
|
|
|
29.11.2008 05:33:29 |
jh |
|
|
|
29.11.2008 08:04:15 |
jh |
|
|
|
29.11.2008 23:30:15 |
ich_nochmal |
|
|