22980
Goto Top

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!

Content-Key: 23147

Url: https://administrator.de/contentid/23147

Ausgedruckt am: 28.03.2024 um 13:03 Uhr

Mitglied: Biber
Biber 09.01.2006 um 15:35:29 Uhr
Goto Top
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]
Mitglied: gemini
gemini 09.01.2006 um 18:13:49 Uhr
Goto Top
... 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
Mitglied: gemini
gemini 09.01.2006 um 19:34:15 Uhr
Goto Top
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 face-wink

Gruß
gemini

PS: Is glaub ich das erste Mal, dass ich weniger Zeilen habe als du
Mitglied: Biber
Biber 09.01.2006 um 19:53:15 Uhr
Goto Top
...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*...
Mitglied: 22980
22980 10.01.2006 um 08:29:46 Uhr
Goto Top
Sehr gut Jungs!
Vielen Dank!