功能makechart(标题,Numarray labelarray,颜色,背景颜色,bordersize、最大高度、最大,addvalues)
功能makechart版本3
Jason Borovoy
标题:图表标题
Numarray:图表的值的数组
labelarray:标签对应的值的数组必须现在的我
如果NULL NULL颜色使用不同的酒吧,如果不是NULL所有
背景颜色背景颜色。
bordersize:边框的大小或0无边界。
最大高度:图表不包括标签的最大高度
最大:每列的宽度
addvalues:真或假,如果你想实际值显示
当你调用函数使用:response.write makechart(参数)
其实returnstring会是一个更好的名字
昏暗的tablestring
max是最大表值
昏暗的最大
最大长度最大长度的标签
昏暗的最大长度
昏暗的tempnumarray
昏暗的templabelarray
昏暗的heightarray
昏暗的colorarray
价值乘数表值以获得相关尺寸
昏暗的乘数
如果数据有效
如果最大高度> 0 > 0最大和UBound(labelarray)= UBound(Numarray)然后
colorarray:每一条的颜色如果更多的酒吧然后颜色循环
如果你不喜欢我的选择,改变它们,添加它们,删除
colorarray =阵列(红
templabelarray = labelarray
tempnumarray = Numarray
heightarray =阵()
max = 0
最大长度= 0
tablestring =表的背景颜色= 背景边界= bordersize _
> > > < < TR TD表格边框=0cellspacing =1cellpadding =0>vbcrlf
获得最大值
在tempnumarray每个东西
如果东西>马克斯,那么max =
下一个
计算乘数
乘数=最大高度和最大
填充数组
反= 0,UBound(tempnumarray)
如果tempnumarray(计数器)=最大然后
ReDim Preserve heightarray(计数器)
Heightarray(计数器)=最大高度
其他的
ReDim Preserve heightarray(计数器)
Heightarray(计数器)= tempnumarray(计数器)×乘数
最后如果
下一个
设置标题
tablestring = tablestring<< TR >日合并单元格=UBound(tempnumarray)+ 1
字体脸=宋体、Arial、黑体大小=1> 标题<< /日> < / _
vbcrlf
循环遍历值
反= 0,UBound(tempnumarray)
tablestring =TD tablestring vbtab垂直对齐方式为底部对齐=中心>_
字体脸=宋体、Arial、黑体=1
表border=0cellpadding =0width=最大> >
TR > < TD垂直对齐=底背景颜色=
如果没有空(色)然后
如果颜色是用这种颜色的酒吧
tablestring = tablestring颜色
其他的
如果不是通过循环colorarray
tablestring = tablestring colorarray(计数器模式(UBound(colorarray)+ 1))
最后如果
tablestring tablestring = height=_
圆(heightarray(计数器),2)IMG src=图.webp>width=1height=1
如果addvalues然后
打印实际值
tablestring = tablestring
tempnumarray(计数器)
最后如果
tablestring = tablestring / TD >vbcrlf
下一个
tablestring = tablestring / TR >vbcrlf
马克斯长度计算标签
在labelarray每个东西
如果len(东西)> = MaxLength然后MaxLength = Len(的东西)
下一个
打印标签并设置每个最大长度
在labelarray每个东西
tablestring =TD tablestring vbtab对齐=中心> >_
字体=Verdana,Arial,Helvetica=1> 。
数= 0轮((最大长度-莱恩(东西)) / 2)
tablestring = tablestring
下一个
如果maxLength mod 2 <> 0 tablestring = tablestring
tablestring = tablestring东西
数= 0轮((最大长度-莱恩(东西)) / 2)
tablestring = tablestring
下一个
tablestring = tablestring / TD >vbcrlf
下一个
tablestring = tablestring / /表> < > < > TD / /表> vbcrlf TR
makechart = tablestring
其他的
响应。写误差函数makechart:最大和MaxLength都是更大的_
然后0个或多个标签不等于数值
最后如果
端功能
模糊的东西
昏暗的labelstuff
演示1
=阵列(5、30)
labelstuff =阵列(北京
响应。写makechart(演示1
<脚本>