亚洲mv大片欧洲mv大片,国产精品国产亚洲精品,国产一区二区三区免费

Struts2利用stream直接输出Excel

Fri, 19 Sep 2008 01:57:00 GMT

在利用网��展�C�查询结果时�Q�经�怼�遇到要求导出成Excel的需求。采用这�U�方法可以定制输出的格式和内容（�q�不支持合�ƈ单元格和公式�Q�，生成真正的Excel格式�Q�不是csv�Q�的Excel�?br /> 一、struts.xml

    "-//Apache Software Foundation//DTD Struts Configuration 2.0//EN"
    "http://struts.apache.org/dtds/struts-2.0.dtd">

                    application/vnd.ms-excel
                    excelStream
                    filename="standard.xls"
                    1024

二、Struts2�?Action

package demo;
public class ExcelAction {
private InputStream excelStream; // 需要生成getter和setter

    public String execute() throws Exception {
        StringBuffer excelBuf = new StringBuffer();
        excelBuf.append("BookName").append("\t").append("Year").append("\t").append("author").append("\n");
        excelBuf.append("Thinking in Java").append("\t").append("2001").append("\t").append("Eckel").append("\n");
        excelBuf.append("Spring in action").append("\t").append("2005").append("\t").append("Rod").append("\n");
        String excelString = excelBuf.toString();
        logger.debug("result excel String: " + excelString);
        excelStream = new ByteArrayInputStream(excelString.getBytes(), 0, excelString.length());
        return "excel";
    }

// getter and setter
...
}

三、Jsp��面

<%@ taglib prefix="s" uri="/struts-tags"%>

李徏�?/a> 2008-09-19 09:57 发表评论

Fri, 19 Sep 2008 01:49:00 GMT

<%@ page language="java" import="java.util.*" pageEncoding="UTF-8"%>
<%@ page import="java.io.*" %>
<%
String path = request.getContextPath();
String basePath = request.getScheme() + "://"
+ request.getServerName() + ":" + request.getServerPort()
+ path + "/";
%>

    My JSP 'createD.jsp' starting page

<%
 String pathStr = request.getRealPath("/upload");
 pathStr = pathStr + "\\Sub";//��要建立的目录�\�?
 out.println(pathStr);
 //建立代表Sub目录的File对象�Q��ƈ得到它的一个引�?
 File d = new File(pathStr);
 if (d.exists()) {//��查Sub目录是否存在
 d.delete();
 out.println("Sub目录存在�Q�已删除");
 } else {
 d.mkdir();//建立Sub目录
 out.println("Sub目录不存在，已徏�?);
 }
 %>

李徏�?/a> 2008-09-19 09:49 发表评论

Fri, 19 Sep 2008 01:47:00 GMT

首先取得当前的磁盘�\径，指定要徏立的文�g的�\径，再进行检查，假如文�g不存在，则徏立这个文�Ӟ��假如文�g存在�Q�则删除�q�个文�g�?br /> 　　
　　CreateDelete.jsp
　　
　　<%@ page contentType="text/Html; charset=GB2312"%>
　　<%@ page import="Java.io.*" %>
　　<%@ page language="java" %>
　　
　　
　　文�g的徏立与删除
　　
　　
　　
　　文�g的徏立与删除

<%
　　//建立代表目前目录位置中File.txt档的File变量, �q�由fileName变量变数引用
　　String path = request.getRealPath("/jsphosting/wenjian");
　　File fileName = new File(path, "File.txt");
　　//��查File.txt是否存在
　　if(fileName.exists())
　　{
　　//删除File.txt�?br /> 　　fileName.delete();
　　//输出目前所在的目录路径
　　out.println(path + "\File.txt");
　　%>
　　存在, 已完�?br /> 　　删除
　　<%
　　}
　　else
　　{
　　//在目前的目录下徏立一个名为File.txt的文字档
　　fileName.createNewFile();
　　//输出目前所在的目录路径
　　out.println(path + "\File.txt");
　　%>
　　不存�?lt;/FONT>, 已完�?br /> 　　建立
　　<%
　　}
　　%>
　　
　　
　　
　　昄��目录中的文�g
　　
　　首先建立要显�C�的目录的FILE对象�Q�然后调用LISTFILES�Ҏ��Q�该�Ҏ��q�回一个FILE对象数组�Q�显�C�数�l�中的所有元素即可�?br /> 　　
　　ListFile.jsp
　　
　　<%@ page contentType="text/html; charset=GB2312"%>
　　<%@ page language="java" %>
　　<%@ page import="java.io.*" %>
　　
　　
　　取得目录中的文�g
　　
　　
　　
　　取得目录中的文�g

<%
　　//取得目前目录的磁盘目�?br /> 　　String path = request.getRealPath("/jsphosting/wenjian");
　　//建立代表目前目录位置的d变量
　　File d = new File(path);
　　//取得代表目录中所有文�?br /> 　　File list[] = d.listFiles();
　　%>
　　�?lt;Font color = red><%= path%>目录下的文�g有（每个文�g有其相应的功能）

<%= list[i].getName() %>

　　<%
　　}
　　%>

��d��文�g中的字符
　　
　　直接调用FILEREADER对象的READ�Q�）�Ҏ��d��所要显�C�的字符
　　
　　ReadAll.jsp
　　
　　<%@ page contentType="text/html; charset=GB2312" %>
　　<%@ page language="java" %>
　　<%@ page import="java.io.*" %>
　　
　　
　　��d��文�g内容
　　
　　
　　
　　��d��文�g内容

<%
　　String path = request.getRealPath("/jsphosting/wenjian");
　　//取得目前目录在伺服端的实际位�|?br /> 　　FileReader fr = new FileReader(path + "\File.txt");
　　//建立FileReader变量,�q�设定由fr变量变数引用
　　int c = fr.read();
　　//从文件中��d��一个字�?br /> 　　while(c != -1)
　　//判定是否已读到文件的�l�尾
　　{
　　out.print((char)c);
　　//输出��d��到的数据
　　c = fr.read();
　　//从文件中��d��数据
　　if(c == 13)
　　//判定是否为断行字�?br /> 　　{
　　out.print("
");
　　//输出分行标签
　　fr.skip(1);
　　//略过一个字�?br /> 　　c = fr.read();
　　//��d��一个字�?br /> 　　}
　　}
　　//关闭文�g
　　fr.close();
　　%>
　　
　　
　　
　　��数据写入文�?br /> 　　
　　通过调用FILEWRITER对象的WRITE�Q�）�Ҏ��向文件中写入数据
　　
　　Write.jsp
　　
　　<%@ page contentType="text/html; charset=GB2312"%>
　　<%@ page language="java" %>
　　<%@ page import="java.io.*" %>
　　
　　
　　��数据写入文�?lt;/TITLE> 　　</HEAD> 　　<BODY> 　　<CENTER> 　　��数据写入文�?lt;/FONT> 　　</CENTER> 　　 　　<HR> 　　 　　<% 　　String path = request.getRealPath("/jsphosting/wenjian"); 　　//取得目前目录在伺服端的实际位�|?br /> 　　FileWriter fw = new FileWriter(path + "\File.txt"); 　　//建立FileWrite对象,�q�设定由fw对象变量引用 　　//��字串写入文�?br /> 　　fw.write("大家�?"); 　　fw.write("��大家学习jsp愉快�Q?); 　　fw.write("希望大家能够深入了解jsp技术！"); 　　fw.close(); 　　//关闭文�g 　　%> 　　写入文�g内容�?lt;/P> 　　 　　<% 　　FileReader fr = new FileReader(path + "\File.txt"); 　　//建立FileReader对象,�q�设定由fr对象变量引用 　　BufferedReader br = new BufferedReader(fr); 　　//建立BufferedReader对象,�q�设定由br对象变量引用 　　String Line = br.readLine(); 　　//��d��一行数�?br /> 　　out.println(Line + " "); 　　//输出��d��得的数据 　　br.close(); 　　//关闭BufferedReader对象 　　fr.close(); 　　//关闭文�g 　　%> 　　 　　</BODY> 　　</HTML> 资料引用:http://www.knowsky.com/367146.html <div align=right><a style="text-decoration:none;" href="http://www.aygfsteel.com/HappyJava/" target="_blank">李徏�?/a> 2008-09-19 09:47 <a href="http://www.aygfsteel.com/HappyJava/articles/229865.html#Feedback" target="_blank" style="text-decoration:none;">发表评论</a></div> </article> <article> <h1>关闭myeclipse的Quick Update自动更新功能</h1> Thu, 04 Sep 2008 02:26:00 GMT <div id="wmqeeuq" class="clear">Windows > Preferences > MyEclipse > Community Essentials, 把选项 "Search for new features on startup"的前勑֎�掉即�? </div> <div align=right><a style="text-decoration:none;" href="http://www.aygfsteel.com/HappyJava/" target="_blank">李徏�?/a> 2008-09-04 10:26 <a href="http://www.aygfsteel.com/HappyJava/articles/226856.html#Feedback" target="_blank" style="text-decoration:none;">发表评论</a></div> </article> <article> <h1>MyEclipse开发JSP��面假死问题解决办法</h1> Thu, 04 Sep 2008 02:25:00 GMT <div id="wmqeeuq" class="postbody">Eclipse3.2安装完MyEclipse 在开发jsp�Ӟ��只要一�?#8220;.”号弹出提�C�后MyEclipse��死了，没有响应�Q�最后只能整个关掉，重启一下。问题还是存在�?br /> 解决办法�Q?/span> 拔了�|�线��好�?具体什么原因正在查�? 要想�q�接�|�线可以使用�q�有一个办法就是修改一个打开的方�?br /> 具体操作�Q?br /> 在eclipse里选中jsp文�g�Q�右键，打开方式�Q?gt;会显�C�有MyEclipse JSP Editor 选择�q�项卛_��Q�如果选择 MyEclipse Visual JSP Designer �q�项��׃��有前面说的问题了�?</div> <h1 class="postTitle"><a class="postTitle2" id="AjaxHolder_ctl01_TitleUrl" >关闭myeclipse的Quick Update自动更新功能</a> </h1> <div id="wmqeeuq" class="clear"></div> <div id="wmqeeuq" class="postBody">Windows > Preferences > MyEclipse > Community Essentials, 把选项 "Search for new features on startup"的前勑֎�掉即�? </div> <div align=right><a style="text-decoration:none;" href="http://www.aygfsteel.com/HappyJava/" target="_blank">李徏�?/a> 2008-09-04 10:25 <a href="http://www.aygfsteel.com/HappyJava/articles/226855.html#Feedback" target="_blank" style="text-decoration:none;">发表评论</a></div> </article> <article> <h1>实现Eclipse自动提示功能</h1> Thu, 04 Sep 2008 02:05:00 GMT <div id="wmqeeuq" class="articleTitle"> </div> <div id="wmqeeuq" class="articleContent" id="articleBody"> <div> Eclipse中默认是输入"."后出现自动提�C�，用于�c�L��员的自动提示�Q�可是有时候我们希望它能在我们输入�cȝ��首字母后��出现自动提�C�，可以节省大量的输入时��_��虽然按alt + /会出现提�C�，但还是要多按一�ơ按键，太麻烦了�Q��?/font> 从Window -> preferences -> Java -> Editor -> Content assist -> Auto-Activation下，我们可以�?."号后面加入我们需要自动提�C�的首字�q�，比如"ahiz"�?/font> 然后我们回到Eclipse的开发环境，输入"a"�Q�提�C�就出现了�?/font> 但是我们可以发现�Q�这个Auto-Activation下的输入框里最多只能输�?个字母，也许是Eclipse的开发�h员担心我们输入的太多会媄响性能�Q�但计算机的性能不用白不用，所以我们要打破�q�个限制�?/font> 其实上面都是铺垫�Q�制造一下气氛，以显得我们下面要做的事情很牛似的�Q�其实不�Ӟ��一切都很简单。嘿�?:) �?."后面随便输入几个字符�Q�比�?abij"�Q�然后回到开发环境，File -> export -> general -> preferences -> 选一个地方保存你的首选项�Q�比如C:\a.epf 用�Q何文本编辑器打开a.epf�Q�查扑֭��W�串“abij”�Q�找��C��后，替换�?#8220;abcdefghijklmnopqrstuvwxyz”�Q��M��是你想怎样��怎样�Q�！然后回到Eclipse�Q�File -> import -> general -> preferences -> 导入刚才的a.epf文�g。此时你会发现输入�Q何字�q�都可以得到自动提示了。爽�Q�！�Q?/font> 最后：自动提示弹出的时间最好改�?00毫秒以下�Q�这样会比较爽一点，不然你都完事了，自动提示才弹出来:)�Q�不�q�也要看机器性能�?/font> </div> </div> <div align=right><a style="text-decoration:none;" href="http://www.aygfsteel.com/HappyJava/" target="_blank">李徏�?/a> 2008-09-04 10:05 <a href="http://www.aygfsteel.com/HappyJava/articles/226849.html#Feedback" target="_blank" style="text-decoration:none;">发表评论</a></div> </article> <article> <h1>eclipse.ini说明</h1> Tue, 02 Sep 2008 06:41:00 GMT <div id="wmqeeuq" class="tit"> </div> <table style="table-layout: fixed"> <tbody> <tr> <td> <div id="wmqeeuq" class="cnt" id="blog_text">-vmargs -Xms128M -Xmx512M -XX:PermSize=64M -XX:MaxPermSize=128M �q�里有几个问题： 1. 各个参数的含义什么？ 2. ��Z��么有的机器我��?Xmx�?XX:MaxPermSize都设�|��ؓ512M之后Eclipse可以启动�Q�而有些机器无法启动？ 3. ��Z��上面的参数写入到eclipse.ini文�gEclipse没有执行对应的设�|�？ 下面我们一一�q�行回答 1. 各个参数的含义什么？ 参数�?vmargs的意思是讄��JVM参数�Q�所以后面的其实都是JVM的参��C��Q�我们首先了解一下JVM内存��理的机�Ӟ��然后再解释每个参��C��表的含义�?br /> �?Heap)和非�?Non-heap)内存 �?照官方的说法�Q?#8220;Java 虚拟机具有一个堆�Q�堆是运行时数据区域�Q�所有类实例和数�l�的内存均从此处分配。堆是在 Java 虚拟机启动时创徏的�?#8221;“在JVM中堆之外的内存称为非堆内�?Non-heap memory)”。可以看出JVM主要��理两种�c�d��的内存：堆和非堆。简单来说堆��是Java代码可及的内存，是留�l�开发�h员��用的�Q�非堆就是JVM留给自己用的�Q�所以方法区、JVM内部处理或优化所需的内�?如JIT�~�译后的代码�~�存)、每个类�l�构(如运行时常数池、字�D�和�Ҏ��数据)以及�Ҏ��和构造方�?的代码都在非堆内存中�? 堆内存分�?br /> JVM初始分配的内存由-Xms指定�Q�默认是物理内存�?/64�Q�JVM最大分配的内存�?Xmx 指定�Q�默认是物理内存�?/4。默认空余堆内存��于40%�Ӟ��JVM��׃��增大堆直�?Xmx的最大限�Ӟ��I�Z��堆内存大�?0%�Ӟ��JVM会减��堆直到- Xms的最��限制。因此服务器一般设�|?Xms�?Xmx相等以避免在每次GC 后调整堆的大��? 非堆内存分配 JVM使用-XX:PermSize讄��非堆内存初始��|��默认是物理内存的1/64�Q�由XX:MaxPermSize讄��最大非堆内存的大小�Q�默认是物理内存�?/4�? JVM内存限制(最大�? �?先JVM内存限制于实际的最大物理内�?废话�Q�呵�?�Q�假讄��理内存无限大的话�Q�JVM内存的最大��D��操作�pȝ��有很大的关系。简单的说就32位处理器虽然可控内存�I�间�?GB,但是具体的操作系�l�会�l�一个限�Ӟ��q�个限制一般是2GB-3GB�Q�一般来说Windows�pȝ��下�ؓ1.5G-2G�Q�Linux�pȝ�� 下�ؓ2G-3G�Q�，�?4bit以上的处理器��׃��会有限制了�? 2. ��Z��么有的机器我��?Xmx�?XX:MaxPermSize都设�|��ؓ512M之后Eclipse可以启动�Q�而有些机器无法启动？ 通过上面对JVM内存��理的介�l�我们已�l�了解到JVM内存包含两种�Q�堆内存和非堆内存，另外JVM最大内存首先取决于实际的物理内存和操作�pȝ��。所以说讄��VM参数��D��E�序无法启动主要有以下几�U�原因： 1) 参数�?Xms的值大�?Xmx�Q�或�?XX:PermSize的值大�?XX:MaxPermSize�Q?br /> 2) -Xmx的值和-XX:MaxPermSize的��d��过了JVM内存的最大限�Ӟ��比如当前操作�pȝ��最大内存限�Ӟ��或者实际的物理内存�{�等。说到实际物�?内存�q�里需要说明一点的是，如果你的内存�?024MB�Q�但实际�pȝ��中用到的�q�不可能�?024MB�Q�因为有一部分被硬件占用了�? 3. ��Z��上面的参数写入到eclipse.ini文�gEclipse没有执行对应的设�|�？ 那�ؓ什么同��L��参数在快��h��式或者命令行中有效而在eclipse.ini文�g中是无效的呢�Q�这是因为我们没有遵守eclipse.ini文�g的设�|�规则： 参数形如“��?�?#8221;�q�种形式�Q�中间有�I�格的需要换行书写，如果��g��有空格的需要用双引号包括�v来。比如我们��?vm C:\Java\jre1.6.0\bin\javaw.exe参数讄��虚拟机，在eclipse.ini文�g中要写成�q�样�Q?br /> -vm C:\Java\jre1.6.0\bin\javaw.exe 按照上面所说的�Q�最后参数在eclipse.ini中可以写成这个样子： -vmargs -Xms128M -Xmx512M -XX:PermSize=64M -XX:MaxPermSize=128M 实际�q�行的结果可以通过Eclipse�?#8220;Help”-“About Eclipse SDK”�H�口里面�?#8220;Configuration Details”按钮�q�行查看�?br /> 另外需要说明的是，Eclipse压羃包中自带的eclipse.ini文�g内容是这��L��Q?br /> -showsplash org.eclipse.platform --launcher.XXMaxPermSize 256m -vmargs -Xms40m -Xmx256m �?�?#8211;launcher.XXMaxPermSize�Q�注意最前面是两个连接线�Q�跟-XX:MaxPermSize参数的含义基本是一��L��Q�我觉得唯一的区别就是前者是eclipse.exe启动的时候设�|�的参数�Q�而后者是eclipse所使用的JVM中的参数。其实二者设�|�一个就可以了，所以这里可以把 –launcher.XXMaxPermSize和下一行��?注释掉�? 3. 其他的启动参数�?如果你有一个双核的CPU�Q�也许可以尝试这个参�? <code>-XX:+UseParallelGC</code> 让GC可以更快的执行。（只是JDK 5里对GC新增加的参数�Q?/p> </div> </td> </tr> </tbody> </table> <div align=right><a style="text-decoration:none;" href="http://www.aygfsteel.com/HappyJava/" target="_blank">李徏�?/a> 2008-09-02 14:41 <a href="http://www.aygfsteel.com/HappyJava/articles/226379.html#Feedback" target="_blank" style="text-decoration:none;">发表评论</a></div> </article> <article> Tue, 02 Sep 2008 06:20:00 GMT <div class="wmqeeuq" id="art" style="margin: 15px" width="560">刚才安装了swt Designer�Q�发现提�C�公能没有了�?br /> 解决�Ҏ��Q?br /> windows�Q?gt;preferences->java->Editor->Code Assist �?/p> auto�Q�activetion中的Enable auto-activetion选项要勾选上 �q�里面有个时间的讑֮�是�ؓ提示代码讑֮�的显�C�时间。你可以�Ҏ��自己的情况设定�?/p> 但都不能自动提示�Q�查了查以前eclipse 的设�|�才扑ֈ��Q�window->Preferences->Java->Editor->Content Assist->Advanced 上面的选项卡Select the proposal kinds contained in the 'default' content assist list: 中把 Other Java Proposals 选项打上勑ְ�可以了�?/span> 另注�Q?/p> 有些情况在eclipse中安装插件时代码自动功能失效�Q�同样可以用以上方式修改回来�?/p> </div> <div align=right><a style="text-decoration:none;" href="http://www.aygfsteel.com/HappyJava/" target="_blank">李徏�?/a> 2008-09-02 14:20 <a href="http://www.aygfsteel.com/HappyJava/articles/226367.html#Feedback" target="_blank" style="text-decoration:none;">发表评论</a></div> </article> <article> <h1>java调用.dll文�g</h1> Mon, 04 Aug 2008 02:47:00 GMT 一.在程序用jnative调用window�?/span>dll 1. 安装 http://sourceforge.net/projects/jnative 解压后得�?/span>3个文�Ӟ��JNativeCpp.dll�Q?/span>libJNativeCpp.so�Q?/span>JNative.jar�Q�其中： JNativeCpp.dll 攑֜�windows/system32目录�?/span> libJNativeCpp.so linux下��?/span> JNative.jar 导入工程�?/span> 2. 使用 2.1. 加蝲dll文�g JNative可��用两�U�方式加�?/span>dll文�g�Q?/span> a.使用System.loadLibrary加蝲,使用此方法可加蝲�pȝ��目录中的dll文�g�?/span> b.可以先把dll文�g复制�?/span>system32目录下，使用文�g前缀名作为参数来加蝲dll文�g。��?/span>System.load加蝲,此方法参��Cؓdll文�g全�\径名�?/span> 2.2. 调用函数 a、首先创�?/span>JNative对象�Q?/span> JNative jnative = new JNative(dll文�g�?/span>, 函数�?/span>); b、设�|�返回值类型： jnative.setRetVal(Type.INT); c、设�|�参�?/span> jnative.setParameter(0, Type.STRING, …); //讄��W�一个参��Cؓ字符�?/span> jnative.setParameter(1, Type.INT, String.valueof(…)); //讄��W�二个参��Cؓ整数 d、执�?/span> n.invoke(); e、获取返回�?/span> Integer.parseInt(jnative.getRetVal()); 3.实例 import org.xvolks.jnative.JNative; import org.xvolks.jnative.Type; import org.xvolks.jnative.exceptions.NativeException; import org.xvolks.jnative.pointers.Pointer; import org.xvolks.jnative.pointers.memory.HeapMemoryBlock; public class Test { public static void main(String[] args) throws NativeException, IllegalAccessException { JNative v=new JNative("Kernel32.dll","GetModuleFileNameA"); int i = 0; v.setRetVal(Type.INT); Pointer pName = new Pointer(new HeapMemoryBlock(1024)); v.setParameter(i++, 0);//module handle v.setParameter(i++, pName);//pFileName v.setParameter(i++, 1024);//nSize v.setRetVal(Type.INT); v.invoke(); int ret = Integer.parseInt(v.getRetVal()); if (ret == 0) { // return "null"; System.err.println( "GetModuleFileName failed!"); } else { String path = pName.getAsString().substring(0, ret); pName.dispose(); v.dispose(); System.out.println("current process's path is:"+path); } } } 4.注意: �?/span>JNative中用�?/span>JDK1.5的一些特性，如枚举、静态引入等�Q�所以在JDK1.4下是不能用的�?/span> �?/span>.在程序用jawin调用window�?/span>dll jawin 可以�?/span>dll中的�Ҏ��q�行调用�Q�也可以调用com中的�Ҏ��.内部�q�提供了一个工��P��直接�?/span> com�l��g导出�?/span> java的类�Q�个��为很方便�?/span> 下面是我们作的一个测试，很顺利便通过了�?/span> 1、下�?/span>jawin�Q?/span>http://jawinproject.sourceforge.net/�?/span> 2、配�|�： a.��?/span>jawin.jar放于%JAVA_HOME%"jre"lib"ext�?/span>�?/span> b.��?/span>jawin.dll放于c:"winnt"system32下。否则将出现错误�Q?/span>COMException : no jawin in java.library.path�Q?/span> 也可��?/span>jawin.dll放于每个��目目录下�?/span> c.��x��?/span>Editplus中调�?/span>Jawin/NJawin的例子，可以通过�?/span>而在Eclipse中有时还会出上面的错误：COMException : no jawin in java.library.path�?/span> d.�?/span>Eclipse中，菜单->window->preference->Java->installed JREs ��原来的remove,重新��Z��个指��C��?/span>java sdk目录�?/span> ok了�?/span> 3、程序测试： import org.jawin.FuncPtr; import org.jawin.ReturnFlags; public class GfJawinTest { public static void main(String[] args) { try { FuncPtr msgBox = new FuncPtr("USER32.DLL", "MessageBoxW"); msgBox.invoke_I(0, "Hello From a DLL", "From Jawin", 0, ReturnFlags.CHECK_NONE); } catch (Exception e) { e.printStackTrace(); } } } 4.利用jawin调用com�l��g, �?/span>word: //创徏word import org.jawin.DispatchPtr; import org.jawin.win32.Ole32; public class CreateWord { public static void main(String[] args) { try { Ole32.CoInitialize();// 初始�?/span> DispatchPtr app = new DispatchPtr("Word.Application");// 创徏word对象 app.put("Visible",true); // �?/span>word可见 DispatchPtr docs=(DispatchPtr)app.get("Documents"); // 获得document对象集合 DispatchPtr doc=(DispatchPtr)docs.invoke("Add"); // 新增一个文�?/span> app.invoke("Activate"); // �Ȁ�z�d��前文�?/span> DispatchPtr objTextFont=(DispatchPtr)((DispatchPtr)doc.get("Content")).get("Font"); // 取得Font对象 objTextFont.put("Name","黑体"); // 讄��字体 objTextFont.put("Size","48"); // 讄��字号 DispatchPtr docSelection=(DispatchPtr)app.get("Selection"); // 取得Selection对象 docSelection.invoke("TypeText","Jawwintesttext!"nJawin��试文本�?/span>"); // 使用TypeText�Ҏ��d��文本 doc.invoke("SaveAs","d:""jawintest.doc"); // 保存文档(保存�?/span>C盘根目录�?/span>) doc.invoke("Close"); // 关闭当前文档�Q�去掉前面的注释�W��ƈ重新�~�译后可生效 app.invoke("Quit"); // 退�?/span>Word�Q�去掉前面的注释�W��ƈ重新�~�译后可生效 Ole32.CoUninitialize(); // 释放对象 } catch (Exception e) { e.printStackTrace(); } } } //打开word import org.jawin.DispatchPtr; import org.jawin.win32.Ole32; public class OpenWord { public static void main(String[] args) { try { Ole32.CoInitialize(); DispatchPtr app = new DispatchPtr("Word.Application"); app.put("Visible", true); DispatchPtr docs = (DispatchPtr) app.get("Documents"); DispatchPtr doc = (DispatchPtr) docs.invoke("Open", "d:""word.doc"); Ole32.CoUninitialize(); } catch (Exception e) { e.printStackTrace(); } } } //调用word中的另存�?/span>,保存�?/span>.html import org.jawin.DispatchPtr; import org.jawin.win32.Ole32; public class Word2Html { public static void main(String[] args) { String path = "e://17001939578.doc"; int iPos = path.lastIndexOf("."); String fileExtName = path.substring(iPos + 1); String fileMainName = path.substring(0, iPos); fileExtName = fileExtName.toLowerCase(); try { Ole32.CoInitialize(); // 初始�?/span> DispatchPtr app = new DispatchPtr("Word.Application"); // 创徏word对象 app.put("Visible", false); // 讄��word不可�?/span> DispatchPtr docs = (DispatchPtr) app.get("Documents"); // 取得Documents对象 DispatchPtr doc = (DispatchPtr) docs.invoke("Open", path); // 打开指定�?/span>word文�g doc.invoke("SaveAs", fileMainName + ".html"); // 另存�?/span>HTML文�g app.invoke("quit"); // 关闭word Ole32.CoUninitialize(); // 释放对象 System.out.println(""n转换完成�Q?/span>"); System.out.println(""n文�g名：" + fileMainName + ".html"); } catch (Exception e) { System.out.println(""n该文件不存在�Q�或者其他错�?/span>(如：�q�行环境问题)�Q?/span>"); } } } <div align=right><a style="text-decoration:none;" href="http://www.aygfsteel.com/HappyJava/" target="_blank">李徏�?/a> 2008-08-04 10:47 <a href="http://www.aygfsteel.com/HappyJava/articles/219839.html#Feedback" target="_blank" style="text-decoration:none;">发表评论</a></div> </article> <article> <h1>delphi日期函数</h1> Tue, 22 Jul 2008 07:14:00 GMT <div id="wmqeeuq" class="date"> </div> <table style="table-layout: fixed"> <tbody> <tr> <td> <div id="wmqeeuq" class="cnt" id="blog_text">Day 开头的函数 �? Unit DateUtils function DateOf(const Avalue: TDateTime): TDateTime; 描述 使用 DateOf 函数用来把一�?TDateTime �c�d��的变量�{变成一�? 只带有日期的 TDateTime �c�d��变量�? 例如�Q? showmessage(DateTimetostr(dateof(now()))); 你得到的�?2003/03/19 �?showmessage(DateTimetostr((now()))); 得到的是 2003/03/19 10:50:49 ●function DateTimeToStr(DateTime: TDateTime): string; 描述 DateTimeToString 函数��?TDateTime �c�d��的参�?DateTime 转换成一�? 字符�Ԍ��使用�l�定的全局变量 ShortDateFormat 的格式，旉��部分按照 �l�定的全局变量 LongTimeFormat 的格式�? 其中 DateTime 为零的部分将不会昄��出来�? 例如�Q? ShortDateFormat:=’yyyy mm dd’; showmessage(DateTimetostr((now()))); 你将得到�Q?003 03 19 10:50:49 ●procedure DateTimeToString(var Result: string; const Format: string; DateTime: TDateTime); 描述�Q? DateTimeToString �Ҏ��TDateTime�c�d��的参数DateTime 按照由参数Format提供的格�? 转化成字�W�串�Q��ƈ保存在Result中�? 对于Format的格式类型，��L�� Date-Time format strings 的帮助�? 例如�Q? DateTimeToString(result,’yyyy mm dd’,now()); 那么 result的结果�ؓ�Q?003 03 19 10:50:49 ●procedure DateTimeToSystemTime(DateTime: TDateTime; var SystemTime: TSystemTime); 描述�Q? 有时��Z��调用API函数来��用系�l�时��_��你可以��?DateTimeToSystemTime �Ҏ��Q�来��一�? TDateTime �c�d��的时间变量�{换成一�?TSystemTime �c�d��?�pȝ��旉��? ●function DateTimeToUnix(const Avalue: TDateTime ): Int64; 描述�Q? 使用 DateTimeToUnix 函数来将一�?TDateTime 型时间变量�{换成一个相应的 Unix 格式 的日期和旉��? Unix date-and-time values are encoded as the number of seconds that have elapsed since midnight at the start of January 1, 1970. ●function DateToStr(Date: TDateTime): string; 描述�Q? 使用 DateToStr 函数能得�?TDateTime 日期旉��c�d��的日期部分。日期的转换格式依赖�? 全局变量 ShortDateFormat�? ●function DayOf(const Avalue: TDateTime): Word; 描述�Q? 对于�l�定的TDateTime�c�d��的日期时��_��使用 DayOf 函数能得到该日期是该月䆾的第几天�? 该函数的�q�回数值在 1 �?31 之间 注意�Q�DayOf 函数得到的结果与 DayOfTheMonth 相同�? 例如�Q? showmessage(inttostr(dayof(now))); 得到的是�Q?9 �Q�今天是某月19日） ●function DayOfTheMonth(const Avalue: TDateTime): Word; �?DayOf 相同�? ●function DayOfTheWeek(const Avalue: TDateTime): Word; 描述�Q? 对于�l�定的TDateTime�c�d��的日期时��_��使用 DayOfTheWeek 函数能得到该日期是该星期�? �W�几天。DayOfTheWeek 函数的返回数��gؓ 1 �?7�Q�其�?1 表示星期一�Q��?7 表示星期日�? 注意�Q�DayOfTheWeek �?ISO 8601 标准的（此标准�ؓ 星期一是一周的�W�一天）。对于一�? 的第一天是星期日的标准�Q�如果想获得星期敎ͼ�请��?DayOfWeek 函数�? Tip: To make the return value more readable, use the Day of week constants. ●function DayOfTheYear(const Avalue: TDateTime): Word; 描述�Q? �Ҏ��l�定的日期时间参数Avalue�Q��?DayOfTheYear 函数能得到在该日期所在的�q�䆾中，�? 日期按照��序所计算的天数。因此，作�ؓTDateTime�c�d��的变�?“1�?�?#8221;在该函数所得到�? �l�果�?1 �Q?#8220;1�?�?#8221;所得到的结果�ؓ 2�Q?#8220;2�?�?#8221;所得到的结果就�?32�Q�依�ơ类推�? ●function DayOfWeek(Date: TDateTime): Integer; Description DayOfWeek returns the day of the week of the specified date as an integer between 1 and 7, where Sunday is the first day of the week and Saturday is the seventh. Note: DayOfWeek is not compliant with the ISO 8601 standard, which defines Monday as the first day of the week. For an ISO 8601 compliant version, use the DayOfTheWeek function instead. 描述�Q? 按照�l�定的TDateTime�c�d��的参数Date�Q�DayOfWeek 函数得到一周中的第几天�Q�从1�?�? �q�里星期�?是一周的�W�一天，�?星期�?是第七天�? ●function DaysBetween(const ANow, AThen: TDateTime): Integer; 描述�Q? �Ҏ��两个TDateTime�c�d��的日期时间变�?ANow �?AThen�Q�DaysBetween函数能得��C��者之间的 天数的差距�? DaysBetween 仅仅�Ҏ��天数的不同来计算。因此，对于 1999�q?2�?1�?下午11�?9�?�? 2000�q?�?�?11�?8分，该函数得到的�l�果�?0�Q�因��Z��者之间的旉��差别�q�差 1 分钟才到 1 天�? ●function DaysInAMonth(const AYear, AMonth: Word): Word; 描述�Q? 对于各定�?�q�䆾和月份，DaysInAMonth 函数能得�?该月份的��d��数�? �q�䆾应该�?�?1 �?9999 月䆾应该�?�?1 �?12 ●function DaysInAYear(const AYear: Word): Word; 描述�Q? 对于�l�定的年份，DaysInAYear函数能得到该�q�䆾的��d��数�? �q�䆾应该�?1 �?9999�? ●function DaysInMonth(const Avalue: TDateTime): Word; 描述�Q? �Ҏ��l�定的TDateTime�c�d��的时间日期参数Avalue�Q�DaysInMonth函数能得到该月䆾的��d��数�? ●function DaysInYear(const Avalue: TDateTime): Word; 描述�Q? �Ҏ��l�定的TDateTime�c�d��的时间日期参数Avalue�Q�DaysInYear函数能得到该�q�䆾的��d��数�? ●function DaySpan(const ANow, AThen: TDateTime): Double; 描述�Q? �Ҏ��两个TDateTime�c�d��的日期时间参数ANow和AThen�Q�DaySpan能得到在天数上的差距�? �?DaysBetween 函数不同�Q�DaysBetween 函数只是计算整的天数�Q��?DaySpan函数�? ��不��一天的��C��得到�? 注意�Q�此函数�q�回的数��gؓ Double 型�? �?Month 开头的函数 ●function MonthOf(const Avalue: TDateTime): Word; 描述�Q? �Ҏ��l�定的TDateTime�c�d��的时间日期参数Avalue�Q�MonthOf函数能得到该�q�䆾的该月䆾数�? MonthOf�q�回数��gؓ 1 �?12�? 注意�Q�MonthOf函数得到的数��g��MonthOfTheYear函数相同 ●function MonthOfTheYear(const Avalue: TDateTime): Word; 与MonthOf函数相同�? ●function MonthsBetween(const ANow, AThen: TDateTime): Integer; 描述�Q? �Ҏ��两个�l�定的TDateTime�c�d��的参数ANow和AThen�Q�MonthsBetween函数能得��C��个日期在月䆾 上差距数。因为月份的天数是不同的�Q�所�?MonthsBetween 函数�q�回的是一个近似��|��该近�? 值基于每个月份�ؓ 30.4375 天。不��一个月的数字将不被计算�? 因此�Q�例如，对于 2�?�?�?2�?8日，MonthsBetween �q�回的数��gؓ 0�? 同样�Q�对�?2�?�?�?3�?日，MonthsBetween �q�回的数��g��?0�? ●function MonthSpan(const ANow, AThen: TDateTime): Double; 描述�Q? �Ҏ��两个�l�定的TDateTime�c�d��的参数ANow和AThen�Q�MonthsBetween函数能得��C��个日期在月䆾 上差距数。因为月份的天数是不同的�Q�所�?MonthsBetween 函数�q�回的是一个近似��|��该近�? 值基于每个月份�ؓ 30.4375 天。与 MonthsBetween 函数不同�Q�MonthsBetween函数不计��不��? 一个月的数字，MonthSpan函数��会得到不��一个月的数字�? 注意�Q�此函数�q�回的类型�ؓ Double ●function MonthStr(DateTime: TDateTime): string; Description HTTP message headers permit several formats for the representation of date and time values. MonthStr converts a TDateTime value into a string representing the month. MonthStr allows server applications to work with date values taken from HTTP request messages, without worrying about the details of how they are formatted. �?Week 开头的函数 ●function WeekOf(const Avalue: TDateTime): Word; 描述�Q? �Ҏ��TDateTime�c�d��的日期时间参数AValu�Q�WeekOf函数会得到该星期��Z��q�的�W�几�? 星期�? ●function WeeksInAYear(const AYear: Word): Word; 描述�Q? WeeksInAYear 函数�Ҏ��q�䆾得到在该�q�䆾中共包含多少个星期�? ●function WeeksBetween(const ANow, AThen: TDateTime): Integer; 描述�Q? �Ҏ��两个TDateTime�c�d��的日期时间参数ANow和AThen�Q�WeeksBetween函数��得到这两个旉��? 星期上的差数。如果差��C��一个星期，则忽略掉�? ●function WeekSpan(const ANow, AThen: TDateTime): Double; 描述�Q? �Ҏ��两个TDateTime�c�d��的日期时间参数ANow和AThen�Q�WeeksBetween函数��得到这两个旉��? 星期上的差数。如果差��C��一个星期，则WeekSpan函数不会忽略掉�? 注意�Q�此函数的返回类型�ؓ Double �?Year 开头的函数 ●function YearOf(const Avalue: TDateTime): Word; 描述�Q? �Ҏ��l�定的TDateTime�c�d��的日期时间参数Avalue�Q�YearOf函数能得到该日期的年份数字�? YearOf函数�q�回的数��gؓ�?1 �?9999 ●function YearsBetween(const ANow, AThen: TDateTime): Integer; 描述�Q? �Ҏ��两个�l�定的TDateTime�c�d��的参数ANow和AThen�Q�YearsBetween函数能得��C��个日期在�q�䆾 上差距数。因为年份的天数是不同的�Q�所�?YearsBetween 函数�q�回的是一个近似��|��该近�? 值基于每�q�的天数�?365.25 天。不��的一�q�的差距��不会被计算�? 因此例如�Q�对�?1�?日和12�?1日，如果�q�两个日期在同一�q�_��?YearsBetween �q�回数�? �?0�Q�如果这两个日期在�͘q�的�q�䆾�Q�则 YearsBetween 函数�q�回数��gؓ 1�? ●function YearSpan(const ANow, AThen: TDateTime): Double; 描述�Q? �Ҏ��两个�l�定的TDateTime�c�d��的参数ANow和AThen�Q�YearsBetween函数能得��C��个日期在�q�䆾 上差距数。因为年份的天数是不同的�Q�所�?YearsBetween 函数�q�回的是一个近似��|��该近�? 值基于每�q�的天数�?365.25 天。与 YearsBetween 函数不同�Q�YearsBetween函数��忽略掉�? ��一�q�的数字�Q��?YearSpan ��计��不��一�q�的数字�? 注意�Q�该函数�q�回�c�d��为Double ●function Yesterday: TDateTime; 描述�Q? Yesterday函数能得到当前日期的前一天的日期�Q�返回数��g��不包括时间部分�? 例如�Q? 当前日期�?2003/3/19 �?showmessage(datetimetostr(Yesterday)); ��得�?2003/3/18 ☆日期的合成 ●function EncodeDate(Year, Month, Day: Word): TDateTime; 描述�Q? EncodeDate函数��根据参�?�q�䆾、月份、日�?而得��C��个TDateTime�c�d��的时间变量�? ●function EncodeDateDay(const AYear, ADayOfYear: Word): TDateTime; 描述�Q? EncodeDateDay��根据参数年份和天数�Q�而得��C��个TDateTime�c�d��的时间变量�? 其中AYear �?1 �?9999�? ADayOfYear 为日子在该年份顺序排列的天数�Q�例如，1�?日时�Q�ADayOfYear�?�Q? 2�?日时�Q�ADayOfYear�?�Q?�?日时�Q�ADayOfYear�?2�? ●function EncodeDateMonthWeek(const AYear, AMonth, AWeekOfMonth: Word; const ADayOfWeek: Word = 1): TDateTime; 描述�Q? EncodeDateMonthWeek 函数��根据参�?�q�䆾、月份、星期数�Q�星期几�Q�来得到一个TDateTime�c�d�� 的时间变量�? 其中AYear �?1 �?9999�? 其中AMonth �?1 �?12�? AWeekOfMonth是在该月份的星期敎ͼ�1 表示�W�一个星期，可能包含4天或更多的天数�? 注意�Q�一个月的第一天如果是星期5�Q�星�?或星期日�Q�用表示�q�三天的AMonth数值必��设�? ��Z��一个月份的数字�Q�同�?AWeekOfMonth 要设为在上一个月所在的星期数�? 同样�Q�如果一个月的最后一天是星期1�Q�星�?�Q�或星期3�Q�那么用表示�q�三天的AMonth数�? 必须讑֮��Z��一个月份的数字�Q�同�?AWeekOfMonth �?1�? ADayOfWeek表示星期几，星期一�?�Q�星期二�?�? ●function EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word):TDateTime; 描述�Q? EncodeDateTime �Ҏ��参数 �q�䆾、月份、日子、小时、分、秒、毫�U?来得��C��个TDateTime�c�d�� 日期旉��? ●function EncodeDateWeek(const AYear, AWeekOfYear: Word; const ADayOfWeek: Word = 1): TDateTime; 描述�Q? EncodeDateWeek �Ҏ��参数 �q�䆾、星期数、星期几来得��C��个TDateTime�c�d��日期旉��? AWeekOfYear是在该年份的星期敎ͼ�1 表示�W�一个星期，可能包含4天或更多的天数�? 注意�Q�一�q�的�W�一天如果是星期5�Q�星�?或星期日�Q�用表示�q�三天的AYear数值必��设�? ��Z��一个年份的数字�Q�同�?AWeekOfYear 要设为在上一个年所在的星期数�? 同样�Q�如果一�q�的最后一天是星期1�Q�星�?�Q�或星期3�Q�那么用表示�q�三天的AYear数�? 必须讑֮��Z��一个年份的数字�Q�同�?AWeekOfYear �?1�? ADayOfWeek表示星期几，星期一�?�Q�星期二�?�? ●function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime; 描述�Q? EncodeTime函数�Ҏ��参数 ��时、分、秒、毫�U?得到个一个TDateTime数倹{�? ☆日期的分解 ●procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word); 描述�Q? DecodeDate从一个TDateTime�c�d��参数Date中分解出得到�q�䆾、月份、日子�? ●procedure DecodeDateDay(const Avalue: TDateTime; out AYear, ADayOfYear: Word); 描述�Q? DecodeDateDay �Ҏ��会根据TDateTime�c�d��参数Avalue 得到相应的年份和日期��L��? ADayOfYear�Q?�?日，此数��gؓ1�Q?�?日，此数��gؓ2�? ●procedure DecodeDateMonthWeek(const Avalue: TDateTime; out AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word); 描述�Q? DecodeDateMonthWeek�Ҏ��Ҏ��TDateTime�c�d��参数Avalue 得到相应的年份、月份、月份中的第几个 星期、星期几 AYear�Q�年�? AMonth�Q�月份，1 �?12 AWeekOfMonth�Q�在该月份中的第几个星期 ADayOfWeek�Q�星期几。星期一�?�? ●procedure DecodeDateTime(const Avalue: TDateTime; out AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word); 描述�Q? DecodeDateTime �Ҏ��Ҏ��TDateTime�c�d��参数Avalue 得到相应的年份、月份、日子、小时、分、秒�? 毫秒�? ●procedure DecodeDateWeek(const Avalue: TDateTime; out AYear, AWeekOfYear, ADayOfWeek: Word); 描述�Q? DecodeDateWeek�Ҏ��Ҏ��TDateTime�c�d��参数Avalue 得到相应的年份、在该年中的�W�几个星期、星期几�?/div> </td> </tr> </tbody> </table> <div align=right><a style="text-decoration:none;" href="http://www.aygfsteel.com/HappyJava/" target="_blank">李徏�?/a> 2008-07-22 15:14 <a href="http://www.aygfsteel.com/HappyJava/articles/216617.html#Feedback" target="_blank" style="text-decoration:none;">发表评论</a></div> </article> </main></body></html>