樂於JAVA
幸福人生(J2EE)
posts - 0,  comments - 5,  trackbacks - 0
在利用网页展示查询结果时,经常会遇到要求导出成Excel的需求。采用这种方法可以定制输出的格式和内容(还不支持合并单元格和公式),生成真正的Excel格式(不是csv)的Excel。
一、struts.xml
<? xml version="1.0" encoding="UTF-8" ?>
<!DOCTYPE struts PUBLIC
    "-//Apache Software Foundation//DTD Struts Configuration 2.0//EN"
    "http://struts.apache.org/dtds/struts-2.0.dtd">
  
<struts>

    <constant name="struts.i18n.encoding" value="UTF-8"/>

    <package name="demo" extends="struts-default">
        <action name="excel" method="execute" class="demo.ExcelAction">
                <result name="excel" type="stream">
                    <param name="contentType">application/vnd.ms-excel</param>    <!-- 注意这里的ContentType -->
                    <param name="inputName">excelStream</param>                   <!-- 这里需要和Action里的变量名一致 -->
                    <param name="contentDisposition">filename="standard.xls"</param>
                    <param name="bufferSize">1024</param>
                </result>
        </action>
    </package>
</struts>

二、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"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
 <head>
  <s:head />
 </head>

 <body>

    <s:form action="" method="post">
       <s:submit key="button.submit"/>
    </s:form>
 </body>
</html>

posted @ 2008-09-19 09:57 李建軍 阅读(402) | 评论 (0)编辑 收藏

<%@ 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 + "/";
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
  <head>
    <base href="<%=basePath%>">
   
    <title>My JSP 'createD.jsp' starting page</title>
   
 <meta http-equiv="pragma" content="no-cache">
 <meta http-equiv="cache-control" content="no-cache">
 <meta http-equiv="expires" content="0">   
 <meta http-equiv="keywords" content="keyword1,keyword2,keyword3">
 <meta http-equiv="description" content="This is my page">
 <!--
 <link rel="stylesheet" type="text/css" href="styles.css">
 -->

  </head>
 
  <body>
  <%
   String pathStr = request.getRealPath("/upload");
   pathStr = pathStr + "\\Sub";//将要建立的目录路径
   out.println(pathStr);
   //建立代表Sub目录的File对象,并得到它的一个引用
   File d = new File(pathStr);
   if (d.exists()) {//检查Sub目录是否存在
    d.delete();
    out.println("Sub目录存在,已删除");
   } else {
    d.mkdir();//建立Sub目录
    out.println("Sub目录不存在,已建立");
   }
  %>

 </body>
</html>

posted @ 2008-09-19 09:49 李建軍 阅读(155) | 评论 (0)编辑 收藏
首先取得当前的磁盘路径,指定要建立的文件的路径,再进行检查,假如文件不存在,则建立这个文件,假如文件存在,则删除这个文件。
  
  CreateDelete.jsp
  
  <%@ page contentType="text/Html; charset=GB2312"%>
  <%@ page import="Java.io.*" %>
  <%@ page language="java" %>
  <HTML>
  <HEAD>
  <TITLE>文件的建立与删除</TITLE>
  </HEAD>
  <BODY>
  <CENTER>
  <FONT SIZE = 5 COLOR = blue>文件的建立与删除</FONT>
  </CENTER>
  <BR>
  <HR>
  <BR>
  <%
  //建立代表目前目录位置中File.txt档的File变量, 并由fileName变量变数引用
  String path = request.getRealPath("/jsphosting/wenjian");
  File fileName = new File(path, "File.txt");
  //检查File.txt是否存在
  if(fileName.exists())
  {
  //删除File.txt档
  fileName.delete();
  //输出目前所在的目录路径
  out.println(path + "\File.txt");
  %>
  <FONT SIZE = 4 COLOR = red>存在</FONT>, 已完成
  <FONT SIZE = 4 COLOR = red>删除</FONT>
  <%
  }
  else
  {
  //在目前的目录下建立一个名为File.txt的文字档
  fileName.createNewFile();
  //输出目前所在的目录路径
  out.println(path + "\File.txt");
  %>
  <FONT SIZE = 4 COLOR = red>不存在</FONT>, 已完成
  <FONT SIZE = 4 COLOR = red>建立</FONT>
  <%
  }
  %>
  </BODY>
  </HTML>
  
  显示目录中的文件
  
  首先建立要显示的目录的FILE对象,然后调用LISTFILES方法,该方法返回一个FILE对象数组,显示数组中的所有元素即可。
  
  ListFile.jsp
  
  <%@ page contentType="text/html; charset=GB2312"%>
  <%@ page language="java" %>
  <%@ page import="java.io.*" %>
  <HTML>
  <HEAD>
  <TITLE>取得目录中的文件</TITLE>
  </HEAD>
  <BODY>
  <CENTER>
  <FONT SIZE = 5 COLOR = blue>取得目录中的文件</FONT>
  </CENTER>
  <BR>
  <HR>
  <BR>
  <%
  //取得目前目录的磁盘目录
  String path = request.getRealPath("/jsphosting/wenjian");
  //建立代表目前目录位置的d变量
  File d = new File(path);
  //取得代表目录中所有文件
  File list[] = d.listFiles();
  %>
  在<Font color = red><%= path%></Font>目录下的文件有(每个文件有其相应的功能)<BR>
  <Font color = blue>
  <ul>
  <%
  for(int i=0; i < list.length; i++)
  {
  %>
  <li><%= list[i].getName() %><BR>
  <%
  }
  %>
  </ul>
  </Font>
  </BODY>
  </HTML>
  
  读取文件中的字符
  
  直接调用FILEREADER对象的READ()方法读取所要显示的字符
  
  ReadAll.jsp
  
  <%@ page contentType="text/html; charset=GB2312" %>
  <%@ page language="java" %>
  <%@ page import="java.io.*" %>
  <HTML>
  <HEAD>
  <TITLE>读取文件内容</TITLE>
  </HEAD>
  <BODY>
  <CENTER>
  <FONT SIZE = 5 COLOR = blue>读取文件内容</FONT>
  </CENTER>
  <BR>
  <HR>
  <BR>
  <%
  String path = request.getRealPath("/jsphosting/wenjian");
  //取得目前目录在伺服端的实际位置
  FileReader fr = new FileReader(path + "\File.txt");
  //建立FileReader变量,并设定由fr变量变数引用
  int c = fr.read();
  //从文件中读取一个字节
  while(c != -1)
  //判定是否已读到文件的结尾
  {
  out.print((char)c);
  //输出读取到的数据
  c = fr.read();
  //从文件中读取数据
  if(c == 13)
  //判定是否为断行字节
  {
  out.print("<BR>");
  //输出分行标签
  fr.skip(1);
  //略过一个字节
  c = fr.read();
  //读取一个字节
  }
  }
  //关闭文件
  fr.close();
  %>
  </BODY>
  </HTML>
  
  将数据写入文件
  
  通过调用FILEWRITER对象的WRITE()方法向文件中写入数据
  
  Write.jsp
  
  <%@ page contentType="text/html; charset=GB2312"%>
  <%@ page language="java" %>
  <%@ page import="java.io.*" %>
  <HTML>
  <HEAD>
  <TITLE>将数据写入文件</TITLE>
  </HEAD>
  <BODY>
  <CENTER>
  <FONT SIZE = 5 COLOR = blue>将数据写入文件</FONT>
  </CENTER>
  <BR>
  <HR>
  <BR>
  <%
  String path = request.getRealPath("/jsphosting/wenjian");
  //取得目前目录在伺服端的实际位置
  FileWriter fw = new FileWriter(path + "\File.txt");
  //建立FileWrite对象,并设定由fw对象变量引用
  //将字串写入文件
  fw.write("大家好!");
  fw.write("祝大家学习jsp愉快!");
  fw.write("希望大家能够深入了解jsp技术!");
  fw.close();
  //关闭文件
  %>
  <P>写入文件内容为</P>
  <FONT SIZE = 4 COLOR = red>
  <%
  FileReader fr = new FileReader(path + "\File.txt");
  //建立FileReader对象,并设定由fr对象变量引用
  BufferedReader br = new BufferedReader(fr);
  //建立BufferedReader对象,并设定由br对象变量引用
  String Line = br.readLine();
  //读取一行数据
  out.println(Line + "<BR>");
  //输出读取得的数据
  br.close();
  //关闭BufferedReader对象
  fr.close();
  //关闭文件
  %>
  </FONT>
  </BODY>
  </HTML>
资料引用:http://www.knowsky.com/367146.html
posted @ 2008-09-19 09:47 李建軍 阅读(109) | 评论 (0)编辑 收藏
Windows > Preferences > MyEclipse > Community Essentials,
把选项 "Search for new features on startup"的前勾去掉即可.
posted @ 2008-09-04 10:26 李建軍 阅读(1399) | 评论 (0)编辑 收藏
Eclipse3.2安装完MyEclipse 在开发jsp时,只要一打“.”号弹出提示后MyEclipse就死了,没有响应,最后只能整个关掉,重启一下。问题还是存在。

解决办法:
拔了网线就好了,具体什么原因正在查找.

要想连接网线可以使用还有一个办法就是修改一个打开的方式

具体操作:

在eclipse里选中jsp文件,右键,打开方式->会显示有MyEclipse JSP Editor  选择这项即可,如果选择 MyEclipse Visual JSP Designer 这项就会有前面说的问题了。

关闭myeclipse的Quick Update自动更新功能

Windows > Preferences > MyEclipse > Community Essentials,
把选项 "Search for new features on startup"的前勾去掉即可.
posted @ 2008-09-04 10:25 李建軍 阅读(632) | 评论 (0)编辑 收藏
 
 

Eclipse中默认是输入"."后出现自动提示,用于类成员的自动提示,可是有时候我们希望它能在我们输入类的首字母后就出现自动提示,可以节省大量的输入时间(虽然按alt + /会出现提示,但还是要多按一次按键,太麻烦了)。

    从Window -> preferences -> Java -> Editor -> Content assist -> Auto-Activation下,我们可以在"."号后面加入我们需要自动提示的首字幕,比如"ahiz"。

    然后我们回到Eclipse的开发环境,输入"a",提示就出现了。

但是我们可以发现,这个Auto-Activation下的输入框里最多只能输入5个字母,也许是Eclipse的开发人员担心我们输入的太多会影响性能,但计算机的性能不用白不用,所以我们要打破这个限制。

其实上面都是铺垫,制造一下气氛,以显得我们下面要做的事情很牛似的,其实不然,一切都很简单。嘿嘿 :)

在"."后面随便输入几个字符,比如"abij",然后回到开发环境,File -> export -> general -> preferences -> 选一个地方保存你的首选项,比如C:\a.epf

用任何文本编辑器打开a.epf,查找字符串“abij”,找到以后,替换成“abcdefghijklmnopqrstuvwxyz”,总之就是你想怎样就怎样!!然后回到Eclipse,File -> import -> general -> preferences -> 导入刚才的a.epf文件。此时你会发现输入任何字幕都可以得到自动提示了。爽!!!

最后:自动提示弹出的时间最好改成100毫秒以下,这样会比较爽一点,不然你都完事了,自动提示才弹出来:),不过也要看机器性能。

posted @ 2008-09-04 10:05 李建軍 阅读(645) | 评论 (0)编辑 收藏
 
-vmargs -Xms128M -Xmx512M -XX:PermSize=64M -XX:MaxPermSize=128M
这里有几个问题:
1. 各个参数的含义什么?
2. 为什么有的机器我将-Xmx和-XX:MaxPermSize都设置为512M之后Eclipse可以启动,而有些机器无法启动?
3. 为何将上面的参数写入到eclipse.ini文件Eclipse没有执行对应的设置?

下面我们一一进行回答

1. 各个参数的含义什么?

参数中-vmargs的意思是设置JVM参数,所以后面的其实都是JVM的参数了,我们首先了解一下JVM内存管理的机制,然后再解释每个参数代表的含义。

堆(Heap)和非堆(Non-heap)内存
按 照官方的说法:“Java 虚拟机具有一个堆,堆是运行时数据区域,所有类实例和数组的内存均从此处分配。堆是在 Java 虚拟机启动时创建的。”“在JVM中堆之外的内存称为非堆内存(Non-heap memory)”。可以看出JVM主要管理两种类型的内存:堆和非堆。简单来说堆就是Java代码可及的内存,是留给开发人员使用的;非堆就是JVM留给 自己用的,所以方法区、JVM内部处理或优化所需的内存(如JIT编译后的代码缓存)、每个类结构(如运行时常数池、字段和方法数据)以及方法和构造方法 的代码都在非堆内存中。
堆内存分配
JVM初始分配的内存由-Xms指定,默认是物理内存的1/64;JVM最大分配的内存由-Xmx 指定,默认是物理内存的1/4。默认空余堆内存小于40%时,JVM就会增大堆直到-Xmx的最大限制;空余堆内存大于70%时,JVM会减少堆直到- Xms的最小限制。因此服务器一般设置-Xms、-Xmx相等以避免在每次GC 后调整堆的大小。
非堆内存分配
JVM使用-XX:PermSize设置非堆内存初始值,默认是物理内存的1/64;由XX:MaxPermSize设置最大非堆内存的大小,默认是物理内存的1/4。
JVM内存限制(最大值)
首 先JVM内存限制于实际的最大物理内存(废话!呵呵),假设物理内存无限大的话,JVM内存的最大值跟操作系统有很大的关系。简单的说就32位处理器虽然 可控内存空间有4GB,但是具体的操作系统会给一个限制,这个限制一般是2GB-3GB(一般来说Windows系统下为1.5G-2G,Linux系统 下为2G-3G),而64bit以上的处理器就不会有限制了。
2. 为什么有的机器我将-Xmx和-XX:MaxPermSize都设置为512M之后Eclipse可以启动,而有些机器无法启动?

通过上面对JVM内存管理的介绍我们已经了解到JVM内存包含两种:堆内存和非堆内存,另外JVM最大内存首先取决于实际的物理内存和操作系统。所以说设置VM参数导致程序无法启动主要有以下几种原因:

1) 参数中-Xms的值大于-Xmx,或者-XX:PermSize的值大于-XX:MaxPermSize;

2) -Xmx的值和-XX:MaxPermSize的总和超过了JVM内存的最大限制,比如当前操作系统最大内存限制,或者实际的物理内存等等。说到实际物理 内存这里需要说明一点的是,如果你的内存是1024MB,但实际系统中用到的并不可能是1024MB,因为有一部分被硬件占用了。

3. 为何将上面的参数写入到eclipse.ini文件Eclipse没有执行对应的设置?

那为什么同样的参数在快捷方式或者命令行中有效而在eclipse.ini文件中是无效的呢?这是因为我们没有遵守eclipse.ini文件的设置规则:

参数形如“项 值”这种形式,中间有空格的需要换行书写,如果值中有空格的需要用双引号包括起来。比如我们使用-vm C:\Java\jre1.6.0\bin\javaw.exe参数设置虚拟机,在eclipse.ini文件中要写成这样:

-vm
C:\Java\jre1.6.0\bin\javaw.exe
按照上面所说的,最后参数在eclipse.ini中可以写成这个样子:

-vmargs
-Xms128M
-Xmx512M
-XX:PermSize=64M
-XX:MaxPermSize=128M
实际运行的结果可以通过Eclipse中“Help”-“About Eclipse SDK”窗口里面的“Configuration Details”按钮进行查看。

另外需要说明的是,Eclipse压缩包中自带的eclipse.ini文件内容是这样的:

-showsplash
org.eclipse.platform
--launcher.XXMaxPermSize
256m
-vmargs
-Xms40m
-Xmx256m
其 中–launcher.XXMaxPermSize(注意最前面是两个连接线)跟-XX:MaxPermSize参数的含义基本是一样的,我觉得唯一的区 别就是前者是eclipse.exe启动的时候设置的参数,而后者是eclipse所使用的JVM中的参数。其实二者设置一个就可以了,所以这里可以把 –launcher.XXMaxPermSize和下一行使用#注释掉。

3. 其他的启动参数。 如果你有一个双核的CPU,也许可以尝试这个参数:

-XX:+UseParallelGC

让GC可以更快的执行。(只是JDK 5里对GC新增加的参数)

posted @ 2008-09-02 14:41 李建軍 阅读(163) | 评论 (0)编辑 收藏
刚才安装了swt Designer,发现提示公能没有了。
解决方法:

windows->preferences->java->Editor->Code   Assist   中

auto-activetion中的Enable auto-activetion选项要勾选上

这里面有个时间的设定是为提示代码设定的显示时间。你可以根据自己的情况设定。

但都不能自动提示,查了查以前eclipse 的设置才找到:window->Preferences->Java->Editor->Content Assist->Advanced   上面的选项卡Select the proposal kinds contained in the 'default' content assist list: 中把 Other Java Proposals 选项打上勾就可以了。

另注:

有些情况在eclipse中安装插件时代码自动功能失效,同样可以用以上方式修改回来。

posted @ 2008-09-02 14:20 李建軍 阅读(1364) | 评论 (0)编辑 收藏

.在程序用jnative调用windowdll

1.   安装

http://sourceforge.net/projects/jnative

解压后得到3个文件:JNativeCpp.dlllibJNativeCpp.soJNative.jar,其中:

JNativeCpp.dll     放在windows/system32目录下

libJNativeCpp.so    linux下使用

JNative.jar          导入工程中

2.   使用

2.1.     加载dll文件

JNative可使用两种方式加载dll文件:

a.使用System.loadLibrary加载,使用此方法可加载系统目录中的dll文件。

b.可以先把dll文件复制到system32目录下,使用文件前缀名作为参数来加载dll文件。使用System.load加载,此方法参数为dll文件全路径名。

2.2.     调用函数

a、首先创建JNative对象:

JNative jnative = new JNative(dll文件名, 函数名);

b、设置返回值类型:

jnative.setRetVal(Type.INT);

c、设置参数

jnative.setParameter(0, Type.STRING, ); //设置第一个参数为字符串

jnative.setParameter(1, Type.INT, String.valueof());       //设置第二个参数为整数

d、执行

n.invoke();

e、获取返回值

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.注意:

JNative中用了JDK1.5的一些特性,如枚举、静态引入等,所以在JDK1.4下是不能用的。

.在程序用jawin调用windowdll

jawin 可以对dll中的方法进行调用,也可以调用com中的方法.内部还提供了一个工具,直接对 com组件导出成 java的类,个人认为很方便。

下面是我们作的一个测试,很顺利便通过了。

1、下载jawinhttp://jawinproject.sourceforge.net/

2、配置:

    a.jawin.jar放于%JAVA_HOME%"jre"lib"ext

    b.jawin.dll放于c:"winnt"system32下。否则将出现错误:COMException : no jawin in java.library.path

    也可将jawin.dll放于每个项目目录下。

 

   c.至此在Editplus中调试Jawin/NJawin的例子,可以通过。而在Eclipse中有时还会出上面的错误:COMException : no jawin in java.library.path

   d.Eclipse中,菜单->window->preference->Java->installed JREs 将原来的remove,重新建一个指到你的java sdk目录。 ok了。

 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组件, word:

//创建word

import org.jawin.DispatchPtr;

import org.jawin.win32.Ole32;

public class CreateWord {

 

       public static void main(String[] args) {

              try {

                     Ole32.CoInitialize();//                   初始化

                     DispatchPtr app = new DispatchPtr("Word.Application");//               创建word对象

                     app.put("Visible",true); //                     使word可见

                     DispatchPtr docs=(DispatchPtr)app.get("Documents"); //                 获得document对象集合

                     DispatchPtr doc=(DispatchPtr)docs.invoke("Add"); //                    新增一个文档

                     app.invoke("Activate"); //                    激活当前文档

                    

                     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测试文本。");

//                   使用TypeText方法添加文本

                     doc.invoke("SaveAs","d:""jawintest.doc");

//                   保存文档(保存在C盘根目录下)

                     doc.invoke("Close");

//                   关闭当前文档,去掉前面的注释符并重新编译后可生效

                     app.invoke("Quit");

//                   退出Word,去掉前面的注释符并重新编译后可生效

 

                    

                     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中的另存为,保存为.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();

                     // 初始化

                     DispatchPtr app = new DispatchPtr("Word.Application");

                     // 创建word对象

                     app.put("Visible", false);

                     // 设置word不可见

                     DispatchPtr docs = (DispatchPtr) app.get("Documents");

                     // 取得Documents对象

                     DispatchPtr doc = (DispatchPtr) docs.invoke("Open", path);

                     // 打开指定的word文件

                     doc.invoke("SaveAs", fileMainName + ".html");

                     // 另存为HTML文件

                     app.invoke("quit");

                     // 关闭word

                     Ole32.CoUninitialize();

                     // 释放对象

                     System.out.println(""n转换完成!");

                     System.out.println(""n文件名:" + fileMainName + ".html");

              } catch (Exception e) {

                     System.out.println(""n该文件不存在!或者其他错误(如:运行环境问题)");

              }

       }

}

posted @ 2008-08-04 10:47 李建軍 阅读(1044) | 评论 (0)编辑 收藏
 
Day 开头的函数

Unit

DateUtils

function DateOf(const Avalue: TDateTime): TDateTime;

描述
使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个
只带有日期的 TDateTime 类型变量。
例如:
showmessage(DateTimetostr(dateof(now())));
你得到的是 2003/03/19
而 showmessage(DateTimetostr((now())));
得到的是 2003/03/19 10:50:49

●function DateTimeToStr(DateTime: TDateTime): string;

描述
DateTimeToString 函数将 TDateTime 类型的参数 DateTime 转换成一个
字符串,使用给定的全局变量 ShortDateFormat 的格式,时间部分按照
给定的全局变量 LongTimeFormat 的格式。
其中 DateTime 为零的部分将不会显示出来。

例如:
ShortDateFormat:=’yyyy mm dd’;
showmessage(DateTimetostr((now())));
你将得到:2003 03 19 10:50:49


●procedure DateTimeToString(var Result: string; const Format: string; DateTime: TDateTime);

描述:
DateTimeToString 方法将TDateTime类型的参数DateTime 按照由参数Format提供的格式
转化成字符串,并保存在Result中。
对于Format的格式类型,请看 Date-Time format strings 的帮助。

例如:
DateTimeToString(result,’yyyy mm dd’,now());
那么 result的结果为:2003 03 19 10:50:49

●procedure DateTimeToSystemTime(DateTime: TDateTime; var SystemTime: TSystemTime);

描述:
有时为了调用API函数来使用系统时间,你可以使用 DateTimeToSystemTime 方法,来将一个
TDateTime 类型的时间变量转换成一个 TSystemTime 类型的 系统时间。

●function DateTimeToUnix(const Avalue: TDateTime ): Int64;

描述:
使用 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;

描述:
使用 DateToStr 函数能得到 TDateTime 日期时间类型的日期部分。日期的转换格式依赖于
全局变量 ShortDateFormat。

●function DayOf(const Avalue: TDateTime): Word;

描述:
对于给定的TDateTime类型的日期时间,使用 DayOf 函数能得到该日期是该月份的第几天。
该函数的返回数值在 1 到 31 之间
注意:DayOf 函数得到的结果与 DayOfTheMonth 相同。

例如:
showmessage(inttostr(dayof(now)));
得到的是:19 (今天是 某月19日)

●function DayOfTheMonth(const Avalue: TDateTime): Word;

与 DayOf 相同。

●function DayOfTheWeek(const Avalue: TDateTime): Word;

描述:
对于给定的TDateTime类型的日期时间,使用 DayOfTheWeek 函数能得到该日期是该星期的
第几天。DayOfTheWeek 函数的返回数值为 1 到 7,其中 1 表示星期一,而 7 表示星期日。
注意:DayOfTheWeek 是 ISO 8601 标准的(此标准为 星期一是一周的第一天)。对于一周
的第一天是星期日的标准,如果想获得星期数,请使用 DayOfWeek 函数。
Tip: To make the return value more readable, use the Day of week constants.

●function DayOfTheYear(const Avalue: TDateTime): Word;

描述:
根据给定的日期时间参数Avalue,使用 DayOfTheYear 函数能得到在该日期所在的年份中,该
日期按照顺序所计算的天数。因此,作为TDateTime类型的变量 “1月1日”在该函数所得到的
结果为 1 ,“1月2日”所得到的结果为 2,“2月1日”所得到的结果就为 32,依次类推。

●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.

描述:
按照给定的TDateTime类型的参数Date,DayOfWeek 函数得到一周中的第几天,从1到7。
这里 星期日 是一周的第一天,而 星期六 是第七天。

●function DaysBetween(const ANow, AThen: TDateTime): Integer;

描述:
根据两个TDateTime类型的日期时间变量 ANow 和 AThen,DaysBetween函数能得到两者之间的
天数的差距。
DaysBetween 仅仅根据天数的不同来计算。因此,对于 1999年12月31日 下午11点59分 到
2000年1月1日 11点58分,该函数得到的结果是 0,因为两者之间的时间差别还差 1 分钟才到
1 天。

●function DaysInAMonth(const AYear, AMonth: Word): Word;

描述:
对于各定的 年份和月份,DaysInAMonth 函数能得到 该月份的总天数。
年份应该为 从 1 到 9999
月份应该为 从 1 到 12

●function DaysInAYear(const AYear: Word): Word;

描述:
对于给定的年份,DaysInAYear函数能得到该年份的总天数。
年份应该为 1 到 9999。

●function DaysInMonth(const Avalue: TDateTime): Word;

描述:
根据给定的TDateTime类型的时间日期参数Avalue,DaysInMonth函数能得到该月份的总天数。

●function DaysInYear(const Avalue: TDateTime): Word;

描述:
根据给定的TDateTime类型的时间日期参数Avalue,DaysInYear函数能得到该年份的总天数。

●function DaySpan(const ANow, AThen: TDateTime): Double;

描述:
根据两个TDateTime类型的日期时间参数ANow和AThen,DaySpan能得到在天数上的差距。
与 DaysBetween 函数不同,DaysBetween 函数 只是计算 整的天数,而 DaySpan函数会
将不足一天的数也得到。
注意:此函数返回的数值为 Double 型。

☆ Month 开头的函数

●function MonthOf(const Avalue: TDateTime): Word;

描述:
根据给定的TDateTime类型的时间日期参数Avalue,MonthOf函数能得到该年份的该月份数。
MonthOf返回数值为 1 到 12。
注意:MonthOf函数得到的数值与MonthOfTheYear函数相同

●function MonthOfTheYear(const Avalue: TDateTime): Word;

与MonthOf函数相同。

●function MonthsBetween(const ANow, AThen: TDateTime): Integer;

描述:
根据两个给定的TDateTime类型的参数ANow和AThen,MonthsBetween函数能得到两个日期在月份
上差距数。因为月份的天数是不同的,所以 MonthsBetween 函数返回的是一个近似值,该近似
值基于每个月份为 30.4375 天。不足一个月的数字将不被计算。
因此,例如,对于 2月1日 到 2月28日,MonthsBetween 返回的数值为 0。
同样,对于 2月1日 到 3月1日,MonthsBetween 返回的数值也是 0。

●function MonthSpan(const ANow, AThen: TDateTime): Double;

描述:
根据两个给定的TDateTime类型的参数ANow和AThen,MonthsBetween函数能得到两个日期在月份
上差距数。因为月份的天数是不同的,所以 MonthsBetween 函数返回的是一个近似值,该近似
值基于每个月份为 30.4375 天。与 MonthsBetween 函数不同,MonthsBetween函数不计算不足
一个月的数字,MonthSpan函数将会得到不足一个月的数字。
注意:此函数返回的类型为 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;

描述:
根据TDateTime类型的日期时间参数AValu,WeekOf函数会得到该星期为一年的第几个
星期。

●function WeeksInAYear(const AYear: Word): Word;

描述:
WeeksInAYear 函数根据年份得到在该年份中共包含多少个星期。

●function WeeksBetween(const ANow, AThen: TDateTime): Integer;

描述:
根据两个TDateTime类型的日期时间参数ANow和AThen,WeeksBetween函数将得到这两个时间在
星期上的差数。如果差数不足一个星期,则忽略掉。

●function WeekSpan(const ANow, AThen: TDateTime): Double;

描述:
根据两个TDateTime类型的日期时间参数ANow和AThen,WeeksBetween函数将得到这两个时间在
星期上的差数。如果差数不足一个星期,则WeekSpan函数不会忽略掉。
注意:此函数的返回类型为 Double

☆ Year 开头的函数

●function YearOf(const Avalue: TDateTime): Word;

描述:
根据给定的TDateTime类型的日期时间参数Avalue,YearOf函数能得到该日期的年份数字。
YearOf函数返回的数值为从 1 到 9999

●function YearsBetween(const ANow, AThen: TDateTime): Integer;

描述:
根据两个给定的TDateTime类型的参数ANow和AThen,YearsBetween函数能得到两个日期在年份
上差距数。因为年份的天数是不同的,所以 YearsBetween 函数返回的是一个近似值,该近似
值基于每年的天数为 365.25 天。不足的一年的差距将不会被计算。
因此例如:对于 1月1日和12月31日,如果这两个日期在同一年,则 YearsBetween 返回数值
为 0;如果这两个日期在临近的年份,则 YearsBetween 函数返回数值为 1。

●function YearSpan(const ANow, AThen: TDateTime): Double;

描述:
根据两个给定的TDateTime类型的参数ANow和AThen,YearsBetween函数能得到两个日期在年份
上差距数。因为年份的天数是不同的,所以 YearsBetween 函数返回的是一个近似值,该近似
值基于每年的天数为 365.25 天。与 YearsBetween 函数不同,YearsBetween函数将忽略掉不
足一年的数字,而 YearSpan 将计算不足一年的数字。
注意:该函数返回类型为Double


●function Yesterday: TDateTime;

描述:
Yesterday函数能得到当前日期的前一天的日期,返回数值中不包括时间部分。
例如:
当前日期是 2003/3/19
则 showmessage(datetimetostr(Yesterday));
将得到 2003/3/18

☆日期的合成
●function EncodeDate(Year, Month, Day: Word): TDateTime;

描述:
EncodeDate函数将根据参数 年份、月份、日子 而得到一个TDateTime类型的时间变量。

●function EncodeDateDay(const AYear, ADayOfYear: Word): TDateTime;

描述:
EncodeDateDay将根据参数年份和天数,而得到一个TDateTime类型的时间变量。
其中AYear 为 1 到 9999。
ADayOfYear 为日子在该年份顺序排列的天数,例如,1月1日时,ADayOfYear为1,
2月2日时,ADayOfYear为2,3月1日时,ADayOfYear为32。

●function EncodeDateMonthWeek(const AYear, AMonth, AWeekOfMonth: Word; const ADayOfWeek: Word =

1): TDateTime;

描述:
EncodeDateMonthWeek 函数将根据参数 年份、月份、星期数,星期几,来得到一个TDateTime类型
的时间变量。
其中AYear 为 1 到 9999。
其中AMonth 为 1 到 12。
AWeekOfMonth是在该月份的星期数,1 表示第一个星期,可能包含4天或更多的天数。
注意,一个月的第一天如果是 星期5,星期6或星期日,用表示这三天的AMonth数值必须设定
为上一个月份的数字,同时 AWeekOfMonth 要设为在上一个月所在的星期数。
同样,如果一个月的最后一天是 星期1,星期2,或星期3,那么用表示这三天的AMonth数值
必须设定为下一个月份的数字,同时 AWeekOfMonth 为 1。
ADayOfWeek表示星期几,星期一为1,星期二为2。

●function EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond:

Word):TDateTime;

描述:
EncodeDateTime 根据参数 年份、月份、日子、小时、分、秒、毫秒 来得到一个TDateTime类型
日期时间。

●function EncodeDateWeek(const AYear, AWeekOfYear: Word; const ADayOfWeek: Word = 1): TDateTime;

描述:

EncodeDateWeek 根据参数 年份、星期数、星期几 来得到一个TDateTime类型日期时间。

AWeekOfYear是在该年份的星期数,1 表示第一个星期,可能包含4天或更多的天数。
注意,一年的第一天如果是 星期5,星期6或星期日,用表示这三天的AYear数值必须设定
为上一个年份的数字,同时 AWeekOfYear 要设为在上一个年所在的星期数。
同样,如果一年的最后一天是 星期1,星期2,或星期3,那么用表示这三天的AYear数值
必须设定为下一个年份的数字,同时 AWeekOfYear 为 1。
ADayOfWeek表示星期几,星期一为1,星期二为2。

●function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;

描述:
EncodeTime函数根据参数 小时、分、秒、毫秒 得到个一个TDateTime数值。

☆日期的分解

●procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

描述:
DecodeDate从一个TDateTime类型参数Date中分解出得到年份、月份、日子。

●procedure DecodeDateDay(const Avalue: TDateTime; out AYear, ADayOfYear: Word);

描述:
DecodeDateDay 方法会根据TDateTime类型参数Avalue 得到相应的年份和日期总数。
ADayOfYear:1月1日,此数值为1;1月2日,此数值为2。

●procedure DecodeDateMonthWeek(const Avalue: TDateTime; out AYear, AMonth, AWeekOfMonth,

ADayOfWeek: Word);

描述:
DecodeDateMonthWeek方法根据TDateTime类型参数Avalue 得到相应的年份、月份、月份中的第几个
星期、星期几
AYear:年份
AMonth:月份,1 到 12
AWeekOfMonth:在该月份中的第几个星期
ADayOfWeek:星期几。星期一为1。

●procedure DecodeDateTime(const Avalue: TDateTime; out AYear, AMonth, ADay, AHour, AMinute,

ASecond, AMilliSecond: Word);

描述:
DecodeDateTime 方法根据TDateTime类型参数Avalue 得到相应的年份、月份、日子、小时、分、秒、
毫秒。

●procedure DecodeDateWeek(const Avalue: TDateTime; out AYear, AWeekOfYear, ADayOfWeek: Word);

描述:
DecodeDateWeek方法根据TDateTime类型参数Avalue 得到相应的年份、在该年中的第几个星期、星期几。
posted @ 2008-07-22 15:14 李建軍 阅读(158) | 评论 (0)编辑 收藏
仅列出标题  

<2024年5月>
2829301234
567891011
12131415161718
19202122232425
2627282930311
2345678

留言簿(1)

文章分类

文章档案

搜索

  •  

最新评论