reg.exp med 01 och 1

1 svar · 170 visningar · startad av voigtann1 12 jan. 2003

voigtann1Medlem sedan juni 20019 519 inlägg

Frågan12 jan. 2003 09:56#1

for i = 1 to 12
objRegExp.Pattern = "(....)\-(" & right("0" & i,2) & ")\-(..)" 
f2 = objRegExp.Replace(f2,"$3 " & lcase(monthname(i, true)) & " $1") 
next

Jag vill att den skriver:
1 maj 2003 isället för
01 maj 2003

enkelt?

voigtann1Medlem sedan juni 20019 519 inlägg

13 jan. 2003 08:14#2

fick göra skriva så här:

for i = 1 to 9
objRegExp.Pattern = "(....)\-(" & right("0" & i,2) & ")\-0(.)" 
f2 = objRegExp.Replace(f2,"$3 " & lcase(monthname(i, true)) & " $1") 
next

for i = 10 to 12
objRegExp.Pattern = "(....)\-(" & right("0" & i,2) & ")\-(..)" 
f2 = objRegExp.Replace(f2,"$3 " & lcase(monthname(i, true)) & " $1") 
next