22980
Jan 09, 2006, updated at Jan 10, 2006 (UTC)
7499
5
0
Mit VBS best. Zeichen aus einer Variable ausschneiden und in eine neue speichern
Folgendes Problem:
Ich habe eine Variable mit dem Inhalt "2005_12_25_01" die ich aufteilen möchte, um sie am Ende als "25.12.2005" in eine neue Variable zu speichern.
Wie kann ich das machen, dass ich z.B. die Zeichen 1 bis 4, 6 bis 7 und 9 bis 10 in eigene Variablen speichern kann?
Bin für jeden Tipp dankbar!
Ich habe eine Variable mit dem Inhalt "2005_12_25_01" die ich aufteilen möchte, um sie am Ende als "25.12.2005" in eine neue Variable zu speichern.
Wie kann ich das machen, dass ich z.B. die Zeichen 1 bis 4, 6 bis 7 und 9 bis 10 in eigene Variablen speichern kann?
Bin für jeden Tipp dankbar!
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 23147
Url: https://administrator.de/contentid/23147
Printed on: April 28, 2024 at 06:04 o'clock
5 Comments
Latest comment
Moin seeerg,
kopier Dir die folgenden Zeilen in Dein Projekt, dann erkennst Du das Prinzip.
Dim m, n, o, p As String
m = "2005_12_25_01"
p = Left(m, 4)
o = Mid(m, 6, 2)
p = Right(m, 2)
Debug.Print "m: " & m & " |n: " & n & "|o: " & o & "|p: " & p
Gruß Biber
[Edit nach gemini's Posting]
Gut, ein bisschen konkreter auf die Frage bezogen könnte ich es auch versuchen...*gg
StrDate="2005_12_25_01"
StrYear=Left(StrDate,4)
StrMonth=Mid(StrDate,6,2)
StrDay=Mid(StrDate,7,2)
StrDateGerman= StrDay & "." & StrMonth & "." & StrYear
' Ergebnis "25.12.2005"
[/Edit]
kopier Dir die folgenden Zeilen in Dein Projekt, dann erkennst Du das Prinzip.
Dim m, n, o, p As String
m = "2005_12_25_01"
p = Left(m, 4)
o = Mid(m, 6, 2)
p = Right(m, 2)
Debug.Print "m: " & m & " |n: " & n & "|o: " & o & "|p: " & p
Gruß Biber
[Edit nach gemini's Posting]
Gut, ein bisschen konkreter auf die Frage bezogen könnte ich es auch versuchen...*gg
StrDate="2005_12_25_01"
StrYear=Left(StrDate,4)
StrMonth=Mid(StrDate,6,2)
StrDay=Mid(StrDate,7,2)
StrDateGerman= StrDay & "." & StrMonth & "." & StrYear
' Ergebnis "25.12.2005"
[/Edit]
... eine andere Möglichkeit:
strDate = "2005_12_25_01"
arrDate = Split(strDate,"_")
Das Array hat jetzt 4 Felder, die du wie Variablen verwenden kannst
arrDate(3) = 01
arrDate(2) = 25
arrDate(1) = 12
arrDate(0) = 2005
gemini
strDate = "2005_12_25_01"
arrDate = Split(strDate,"_")
Das Array hat jetzt 4 Felder, die du wie Variablen verwenden kannst
arrDate(3) = 01
arrDate(2) = 25
arrDate(1) = 12
arrDate(0) = 2005
gemini
Gut, ein bisschen konkreter auf die Frage bezogen könnte ich es auch versuchen...*gg
Yep, Biber, weil halt auch der Script Host mit der Variablentypisierung nicht soviel anfangen kann.... und beim debug.print wirft es ihn dann komplett aus der Bahn
Gruß
gemini
PS: Is glaub ich das erste Mal, dass ich weniger Zeilen habe als du
...uuups, gemini,
hast natürlich recht.
Ich war gedanklich total bei Access/VBA-Projekten statt bei VBS. *kopfschüttel*
Außerdem habe ich nebenbei telefoniert *rausred....
@22980
Konzentrier Dich auf die Lösung im zweiten Beitrag..
Ich habe hier die Antwort auf eine noch gar nicht gestellte Frage gegeben.
..so was..*immer noch kopfschüttelt*...
hast natürlich recht.
Ich war gedanklich total bei Access/VBA-Projekten statt bei VBS. *kopfschüttel*
Außerdem habe ich nebenbei telefoniert *rausred....
@22980
Konzentrier Dich auf die Lösung im zweiten Beitrag..
Ich habe hier die Antwort auf eine noch gar nicht gestellte Frage gegeben.
..so was..*immer noch kopfschüttelt*...
Sehr gut Jungs!
Vielen Dank!
Vielen Dank!
