String
From: Joachim Gohlke (anonymous_at_discussions.microsoft.com)
Date: 08/31/04
- Next message: name: "Re: (Outlook-)Popupfenster automatisch schließen?"
- Previous message: Christian Pontow: "Re: FileExists mit Wildcards"
- In reply to: Kathrin Cords: "String"
- Messages sorted by: [ date ] [ thread ]
Date: Mon, 30 Aug 2004 19:30:37 -0700
>-----Originalnachricht-----
>Hallo zusammen,
>ich habe eine String vorliegen, welcher mehrere Delimeter
>aufweist z.B. "-", ".", "_" und "=" (z.B. Test-Test-
>Test=Test.Test-Test=Test).
>Nun muss ich Teile des Strings auslesen und neu
>zusammenbauen. Wie schaffe ich es am einfachsten?
>
>Viele Grüße
>Kathrin
>.
>
Hallo Kathrin,
1. entscheide Dich für einen favorisiertes Trennzeichen,
z.B. "-".
2. ersetze mit der Replace-Funktion alle anderen
Trennzeichen durch das favorisierte Zeichen
3. erzeuge mit der Split-Funktion ein Array mit den
einzelnen Teilstrings
4. ausgelesen des gewünschten Teilstrings über den
Arrayindex
' String mit dem Originaltext.
strOrig = "Test-Test-Test=Test.Test-Test=Test"
' Favorisiertes Trenzeichen.
strFav = "-"
' Array der möglichen Trennzeichen anlegen.
arrTZ = Array(".", "_", "=")
' Trennzeichen ersetzen.
for intI = 0 to UBound(arrTZ)
strOrig = Replace(strOrig, arrTZ(intI), strFav)
next
' Bearbeiteten Text in ein Array packen.
arrResu = Split(strOrig, strFav)
' Mal kucken was drin steht.
for intI = 0 to Ubound(arrResu)
MsgBox arrResu(intI)
next
Grüsse us Kölle Joachim
- Next message: name: "Re: (Outlook-)Popupfenster automatisch schließen?"
- Previous message: Christian Pontow: "Re: FileExists mit Wildcards"
- In reply to: Kathrin Cords: "String"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|