replace midt i str

str = Replace(str,"-01-","-JAN-")

En fuldautomatisk replace, hvis det har interesse

months = Array("JAN", "FEB", "MAR", "APR", "MAJ", "JUN", "JUL", "AUG", "SEP", "OKT", "NOV", "DEC")

Set re = New RegExp
re.Pattern = "-(\d+)-"
Set m = re.Execute(str)
whatmonth = m(0).SubMatches(0)

str = Replace(str, "-" & whatmonth & "-", "-" & months(Int(whatmonth)-1) & "-")

Og hvis datostrengen altid ser sådan ud, er det måske lidt overkill med regex :o

whatmonth = Mid(str, 4, 2)

Når nu du har en dato kan du så ikke bruge FormatDate(date, format) hvor format kan være en af :

vbgeneraldate
vblongdate
vbshortdate
vblongtime
vbshorttime

Alternativt vil jeg foreslå dig at du laver en funktion, som kan formaterer en dato, som du ønsker det.

IMHO, det er altså lidt hat at replace sig ud af det.

kryptos> ingen af de vbxxxxxx giver mig en tre-bogstavskombination, derfor vil jeg forsøge mig med Replace muligheden.

ranglen> 05/01-2006 00:13:12 = hvor svært kan der være :) det er jo logisk. Jeg har brugt din fuldautomatiske kode, takker. Hvis du har tid, vil jeg gerne, at du forklare koden. Jeg har ikke før brugt RegExp.

svar plz ;)

svar