function.vbs

来自「access+asp.net还行吧」· VBS 代码 · 共 19 行

Function isBool(object)
	isBool = CBool(object)
End Function

Function formatFloatNumber(float)
	formatFloatNumber = FormatNumber(float, 2, -1)
End Function

Function replaceText(temp, text)
	if text="" then
		replaceText = temp
		exit function
	end if
	
	dim rgExp
	rgExp = "<font color=red>"& text &"</font>"

	replaceText = Replace(temp, text, rgExp, 1, -1, 1)
End Function