Frågan#1
vill att att om man skriver [bg=#FFFFFF] i ett formulär så ska en tabel blir den bakgrunds färgen.. men det är bara om bg=#något man kanske inte behöver reg.exp för detta? men hur gör man?
if sats i regular exp?
7 svar · 286 visningar · startad av voigtann1
if instr(lcase(rs("innehall")),"<body bgcolor") > 0 then
låter bra LarsG.. men hur får jag ut =red, =#FFFFFF tex då?
Nåt sånt här kanske... :)
Dim sCode, sColor
sCode = "dmvlmv[bg=#FFFFFF]sdvsd"
Dim objRegExp, m
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = True
objRegExp.Pattern = "\[bg\=[^\]]*\]"
Set m = objRegExp.Execute(sCode)
Set objRegExp = Nothing
If m.Count Then
sColor = Mid(m.Item(0), 5, Len(m.Item(0)) - 5)
End If
Set m = Nothing
är 'm' färgeren eller?
m är ett matchcollectionobject. Och ur det objektet kan man hämta ut färgen. Och det gör jag och lagrar färgen i sColor.
är det bara att kontrollera sen om scolor <> "" then typ?