JSP+VBScript+Word
真是难以想象，一天的时间，我也整出来了一个 VBScript 的应用，看来微软的这些东西还是有那么点可取之处的，别的不说，就说 word 里录制宏和 word 里带的 Vb 的帮助文档，就省去了不少麻烦。废话不多少，代码说话。
需求为：查询某种类型的记录，然后在表格中显示其部分属性，并按照月份分成几个小表格，打印到 word 中，并将此 word 内容作为另一种记录的一个附件。
写了个测试例子，贴代码
首先是个 Bean
package com.test;
public class Bean {
public String title;
public String date;
public String status;
public Bean(String title,String date,String status){
this.title = title;
this.date = date;
this.status = status;
}
public String getDate() {
return date;
}
public void setDate(String date) {
this.date = date;
}
public String getStatus() {
return status;
}
public void setStatus(String status) {
this.status = status;
}
public String getTitle() {
return title;
}
public void setTitle(String title) {
this.title = title;
}
}
JSP中按照月份分组部分
Bean bean1 = new Bean("测试一","2007-11-12","已办理");
Bean bean2 = new Bean("测试二","2007-12-12","已办理");
Bean bean3 = new Bean("测试三","2008-10-12","已办理");
Bean bean4 = new Bean("测试四","2008-11-12","已办理");
Bean bean5 = new Bean("测试五","2007-11-20","已办理");
Bean bean6 = new Bean("测试六","2008-11-12","已办理");
ArrayList list = new ArrayList();
list.add(bean1);
list.add(bean2);
list.add(bean3);
list.add(bean4);
list.add(bean5);
list.add(bean6);
String[] yearAndMonth = new String[48];//4*12=48，存储某年某月
for(int i = 0;i < yearAndMonth.length;i ++){//数组初始化
yearAndMonth[i] = "";
}
HashMap hp = new HashMap();//存放某年某月的记录列表
int index = 0;//数组的索引
for(int i = 0;i < list.size();i ++){
Bean bean = (Bean)list.get(i);
String beginTime = bean.getDate();
boolean needAdd = true;//标记是否需要添加
for(int j = 0;j < index;j ++){
if(beginTime.substring(0,7).equals(yearAndMonth[j])){//如果某年某月已经有记录
needAdd = false;//不需要添加
break;
}
}
if(needAdd){//需要添加
yearAndMonth[index] = beginTime.substring(0,7);//改写数组对应索引处的值
//新建List保存记录并存储到Map
ArrayList listByTime = new ArrayList();
listByTime.add(bean);
hp.put(beginTime.substring(0,7),listByTime);
index ++;
}else{//不需要添加
//从Map中得到对应的List，并在此添加记录
((ArrayList)hp.get(beginTime.substring(0,7))).add(bean);
}
}
for(int j = 0;j < index;j ++){
out.print(yearAndMonth[j]);
out.println("<br>");
if(hp.get(yearAndMonth[j])!=null){
ArrayList a = (ArrayList)hp.get(yearAndMonth[j]);
out.print("有"+a.size()+"个：");
for(int x = 0;x < a.size();x ++){
Bean bean = (Bean)a.get(x);
out.print(bean.getDate()+" ");
}
out.println("<br>");
}
}
然后是写入到制定位置的word文件中
<script language="vbscript">
function writeListToWord()
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.GetFile("E://test.doc")
MyFile.Copy ("E://test1.doc")
Set myDocApp = CreateObject("Word.Application")
myDocApp.Visible = True
myDocApp.Activate
set myDoc = myDocApp.Documents.Open("E://test1.doc")
'Set myDoc = myDocApp.Documents.Add()
Set objSelection = myDocApp.Selection
<%
for(int j = 0;j < index;j ++){
if(hp.get(yearAndMonth[j])!=null){
ArrayList a = (ArrayList)hp.get(yearAndMonth[j]);
%>
Set table1 = objSelection.Tables.Add(objSelection.Range, <%=a.size()+1%>, 3)
Set Table1 = myDoc.Tables(<%=j+1%>)
Table1.Cell(1,1).Range.Text = "标题"
Table1.Cell(1,2).Range.Text = "发布时间"
Table1.Cell(1,3).Range.Text = "状态"
<%
for(int x = 0;x < a.size();x ++){
Bean bean = (Bean)a.get(x);
%>
Table1.Cell(<%=x+2%>,1).Range.Text = "<%=bean.getTitle()%>"
Table1.Cell(<%=x+2%>,2).Range.Text = "<%=bean.getDate()%>"
Table1.Cell(<%=x+2%>,3).Range.Text = "<%=bean.getStatus()%>"
<%
}
%>
for i = 1 To Table1.Rows.Count
objSelection.MoveDown
next
objSelection.TypeText "新的循环开始"&vbCrLf
<%
}
}
%>
myDoc.close()
myDocApp.quit()
Set MyFile = fso.GetFile("E://test1.doc")
MyFile.Copy ("E://test.doc")
MyFile.delete()
end function
</script>
OK，代码就是这些了，但是测试的话要加入受信站点，既允许读写本地文件