博客园_现在做java了，到时候发些java的文章

如何生成1-1000的数字，并且顺序打乱

2011-03-29T08:52:00Z

　　　　　　  int count = 1000;      


            int[] arrNum = new int[count];

            for (int i = 0; i < count; i++)
            {
                arrNum[i] = i + 1;
            }

            //打乱
            Random rm = new Random();
            for (int i = 0; i < count; i++)
            {
                int rmNum = rm.Next(i, count);
                int temp = arrNum[i];
                arrNum[i] = arrNum[rmNum];
                arrNum[rmNum] = temp;
            }





--------------------------

--显示表io操作
SET   STATISTICS   IO   ON 
--sql语句
SET   STATISTICS   IO   OFF 


表 'P2'。扫描计数 7，逻辑读 7 次，物理读 0 次，预读 0 次。

本文链接

如何快速创建大文件

2011-02-26T09:57:00Z

可用命令，开始-运行-输入cmd，打开命令提示符，输入：
fsutil file createnew a.txt  100000000

可以看到a.txt文件会消耗100000000字节硬盘空间，但内容为空

本文链接

高晓松：不买房，买梦想

2011-02-22T05:51:00Z

“我妈说生活不是眼前的苟且，生活有诗和远方。我和我妹妹深受这教育。谁要觉得你眼前这点儿苟且就是你的人生，那你这一生就完了。生活就是适合远方，能走多远走多远；走不远，一分钱没有，那么就读诗，诗就是你坐在这，它就是远方。”

作者：高晓松

关于房子，我跟大多数人概念不一样。我从小住在清华校园里，家是那种二层的小楼，外表看起来很普通，面积也不是特大，但是特别安静。

这地儿都没动过，也没装修之说，从我生下来就是这样红色的，很老很旧。但我在那儿真觉得挺好，有一个家，不仅仅是睡觉的地方。我自己也不知道这房子多少年了，我们也在感慨：后边的院子多好啊，出门就是操场、游泳馆，还有漂亮的女生，白发的先生；四周的邻居，随便踹开一家的门，里面住的都是中国顶级的大知识分子，进去聊会儿天怎么都长知识，梁思成林徽因就住我前面的院子。小时候有什么问题家里老人就写一张字条，说这问题你问谁谁谁。我找到人家家里，打开字条一看，哦，你是那谁家的孩子，那你讲吧，都是中国头把交椅啊。这才是住处真正的意义吧，它让你透气，而不是豪华的景观、户型和装修什么的。

2007年，我们搬了出来，因为家人都在国外，我又不在清华教书，学校就把房子收回去了，后来我去了洛杉矶。

去了美国，我一样是无房户，坚定的无房主义者。刚去美国的时候，我做编剧和开发，只卖出了两首电影歌曲。美国流行音乐是草根文化，美国卖吉他的黑人当我师傅都有富余，不是说他弹得比我好，是同样一个琴我们弹的都不是一个级别，出的声音都不一样。国外很多伟大的乐队，都是一个班的同学，在中国整个高校也选拔不出一个牛的乐队。为啥？国内很多年轻人的热情都分散了，赚钱的热情大过音乐本身，比如买房。

郑钧有一天跟我说，有些艺术家被抓进精神病院，成了精神病；有些精神病人从精神病院逃出来，成为艺术家，你就是那后者，你的生活就像行为艺术。不过，我肯定不属于时尚人士，因为从来不关注别人的流行趋势，也算不上中产阶级，如果我的钱只够旅行或是买房子，那我就去旅行。

平时除了听听歌，看看电影，我最大的爱好就是满世界跑着玩。大概去过三十多个国家了，到一个地方就买一辆车，然后玩一段时间就把车卖了，再去下一个地方。

经常在旅途中碰上一堆人，然后很快成为朋友，然后喝酒，然后下了火车各自离去。之前还在欧洲碰见一个东欧乐队，我帮人弹琴，后来还跟人卖艺去了，跟着人到处跑到处弹唱，到荷兰，到西班牙，到丹麦……我妈也是，一个人背包走遍世界，我妈现在还在流浪，在考察美国天主教遗址。

我妹也是，也没有买房，她挣的钱比我多得多。之前她骑摩托横穿非洲，摩托车在沙漠小村里坏了，她索性就在那里生活两个月等着零件寄到。然后在撒哈拉沙漠一小村子里给我写一个明信片，叫做“彩虹之上”，她在明信片里告诉我说，哥，我骑了一个宝马摩托，好开心。我看到沙漠深处的血色残阳，与酋长族人喝酒，他们的笑容晃眼睛……因为我跟我妹都不买房，你知道你只要不买房，你想开什么车开什么车。你想，你一个厕所的面积就恨不得能买一奔驰。然后她就开一宝马摩托，坏了，说整个非洲都没这零件，她说你知道我现在在做什么吗？我在撒哈拉一个小村子里给人当导游。

我妈从小就教育我们，不要被一些所谓的财产困住。所以我跟我妹走遍世界，然后我俩都不买房，就觉得很幸福。我妈说生活不是眼前的苟且，生活有诗和远方。我和我妹妹深受这教育。谁要觉得你眼前这点儿苟且就是你的人生，那你这一生就完了。生活就是适合远方，能走多远走多远；走不远，一分钱没有，那么就读诗，诗就是你坐在这，它就是远方。越是年长，越能体会我妈的话。

美国人平均31岁才第一次购房，德国人42岁，比利时人37岁，欧洲拥有独立住房的人口占50%，剩下都是租房。为什么现在中国的年轻人一毕业就结婚？一结婚就买房？怎样才能买到房？一套房子会限制你所有的行为和决定。因为你知道，要一提裸婚，没有人愿意嫁给你。即使老婆愿意，他们家人呢？别人会怎么看？孩子以后怎么办？以今天的房价，普通人买房只有两种情况，一种是双方父母出钱资助，这种人基本上前途和发展被父母控股。第二种人是牺牲了太多的发展机会，典当梦想来成就一套房子。他们购买的，其实是自己内心深处的“安全感”。他们觉得，有一套房子，会让自己内心安全一点儿。但是安全感真的可以来自于一套房子吗？归根结底，还是价值观的问题。世界再怎么变，还是要有坚持，即使它是落后。我不入流，这不要紧。我每一天开心，这才是重要的。

本文链接

(转)XMLHTTP 乱码的解决方法（UTF8,GB2312 编码解码）（附带解决DHTMLX不能用在GB2312页面编码下的中文问题）

2011-01-10T09:01:00Z

在数据发送一方，利用 javascript 的 escape 函数事先将所有中文转换成英文编码并保存（也可以用 ASP 等其它语言的函数实时转换输出）。
在数据接收一方，利用 javascript 的 unescape 函数将所有英文编码还原。

由于 Ajax 不论任何编码都能正常传送英文，所以用这种方法可以轻松解决。

用XMLHTTP Post Form时的表单乱码有两方面的原因——Post表单数据时中文乱码；服务器Response被XMLHTTP不正确编码引起的乱码。换句话说，本文主要解决两个问题——怎样正确Post中文内容&怎样正确显示得到的中文内容。

Part I Post中文内容

先看看E文的表单是怎么提交的：
<SCRIPT language="JavaScript">
strA = "submit1=Submit&text1=scsdfsd";
var oReq = new ActiveXObject("MSXML2.XMLHTTP");
oReq.open("POST","http://ServerName/VDir/TstResult.asp",false);
oReq.setRequestHeader("Content-Length",strA.length);
oReq.setRequestHeader("CONTENT-TYPE","application/x-www-form-urlencoded");
oReq.send(strA);
</ScRIPT>

如果把strA = "submit1=Submit&text1=scsdfsd";换成：
strA = "submit1=Submit&text1=中文";

你会发现提交上去的东东根本不对，ASP中Request.Form("Text1"）根本取不到值。俺用Request.BinaryRead把一个HTML Form中的Post内容写出来看了看，才发现问题——Form提交时也要编码的，编码后的中文是类似于%??%??的转义字符，比如“中文”就被编码为：%D6%D0%CE%C4。呵呵，也怪俺笨，人家CONTENT-TYPE里明明写的清清楚楚——application/x-www-form-urlencoded，urlencoded嘛当然就是这个样子了。既然这样,那我们也知道该怎么办了——自己做转换，代码见下：
<SCRIPT language="VBScript">
Function URLEncoding(vstrIn)
    strReturn = ""
    For i = 1 To Len(vstrIn)
        ThisChr = Mid(vStrIn,i,1)
        If Abs(Asc(ThisChr)) < &HFF Then
            strReturn = strReturn & ThisChr
        Else
            innerCode = Asc(ThisChr)
            If innerCode < 0 Then
                innerCode = innerCode + &H10000
            End If
            Hight8 = (innerCode And &HFF00)\ &HFF
            Low8 = innerCode And &HFF
            strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
        End If
    Next
    URLEncoding = strReturn
End Function

strA = URLEncoding("submit1=Submit&text1=中文")
oReq = CreateObject("MSXML2.XMLHTTP")
oReq.open "POST","http://ServerName/VDir/TstResult.asp",false
oReq.setRequestHeader "Content-Length",Len(strA)
oReq.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
oReq.send strA
</SCRIPT>

（在这里俺把前面的JavaScript的代码改成了VBScript，不是吃饱了撑的没事干，原因见后）

Part II.正确显示得到的中文内容

OK，如果你在Server端把Form的内容写到数据库/文件的话，你在那里看到的中文毫无问题，但是，假如你想看看Server的Response——问题来了：如果Response的结果不是XML，XMLHTTP.responseXML里当然是不会有东东的，那就用responseText好了，在代码的最后加一句：

alert(oReq.responseText)
看看俺们辛勤劳动的结果 :P

但是但是.....怎么所有的中文全变成了方格? （我打不出来，有兴趣自己去试，也不用Post，Get一个含有中文的网页就可以发现了。）

原因很简单：XMLHTTP得到Response时假定Response是UTF8编码的，如果Response是XML，那还可以通过encoding来指定编码，但HTML就不行了。（见鬼的GB2312，再次打倒！）所以它把含GB2312编码的HTML当成UTF8格式，不出错才有鬼！

不过好在还有补救的办法：XMLHTTP的responseBody 属性里包含的可是未解码的Resonse——"a raw undecoded bytes as received directly from the server" ：），唯一的问题是，responseBody返回的是一个unsigned bytes数组，我们怎么去访问它，怎么把它转换成BSTR？

这就是为什么我在上面把代码改成VBScript的原因——VBScript Can do it,but JavaScript Cannot!

代码见下：
<SCRIPT language="VBScript">
Function URLEncoding(vstrIn)
    strReturn = ""
    For i = 1 To Len(vstrIn)
        ThisChr = Mid(vStrIn,i,1)
        If Abs(Asc(ThisChr)) < &HFF Then
            strReturn = strReturn & ThisChr
        Else
            innerCode = Asc(ThisChr)
            If innerCode < 0 Then
                innerCode = innerCode + &H10000
            End If
            Hight8 = (innerCode And &HFF00)\ &HFF
            Low8 = innerCode And &HFF
            strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
        End If
    Next
    URLEncoding = strReturn
End Function

Function bytes2BSTR(vIn)
    strReturn = ""
    For i = 1 To LenB(vIn)
        ThisCharCode = AscB(MidB(vIn,i,1))
        If ThisCharCode < &H80 Then
            strReturn = strReturn & Chr(ThisCharCode)
        Else
            NextCharCode = AscB(MidB(vIn,i+1,1))
            strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
            i = i + 1
        End If
    Next
    bytes2BSTR = strReturn
End Function

strA = URLEncoding("submit1=Submit&text1=中文")
oReq = CreateObject("MSXML2.XMLHTTP")
oReq.open "POST","http://ServerName/VDir/TstResult.asp",false
oReq.setRequestHeader "Content-Length",Len(strA)
oReq.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
oReq.send strA
alert bytes2BSTR(oReq.responseBody)
</SCRIPT>

----------------------------------------以上为转载-----------------------------

http://www.dhtmlx.com

Start Building Professional Ajax
Web Applications Today

最近用了 DHTMLX的tree,中文的xml居然用不了，报错，整个系统是GB2312的，而DHTMLX只支持UTF8，英文是正常的，中文就出错。

用法也很简单，是DHTMLX 演示里用的代码。

var obj=document.getElementById(oid);
obj.style.display="block";
obj.focus();
if(obj.innerHTML!="")return;
tree=new dhtmlXTreeObject(oid,"100%","100%",0);
tree.setImagePath("js/imgs/csh_vista/");
tree.setOnClickHandler(click1);
tree.setXMLAutoLoading("tree.asp");
//load first level of tree
tree.loadXML("tree.asp?id=0");

tree.asp编码为gb2312,和整个系统一致，用response.write返回一个xml

整个系统编码改不了，只有在DHTMLX上想办法了。

查了些资料,最终解决了。

再深入一层发现是，Microsoft.XMLHTTP的原因，就查到了上面的文件。

如是就简单了，修改如下：

1. 增加一个VBScript的中文转换的函数

<script language="VBScript">
'处理中文
function bin2str(bin)
    dim tmp,ustr,i
    tmp=""
    for i=1 to LenB(bin)-1
    ustr=AscB(MidB(bin,i,1))
    if ustr>127 then
    i=i+1
    tmp=tmp&chr(ustr*256+AscB(MidB(bin,i,1)))
    else
    tmp=tmp&chr(ustr)
    end if
    next
    bin2str=tmp
end function
</script>

2.dhtmlxcommon.js的 getXMLTopNode处

var xmlString = this.xmlDoc.responseText;

改为

var xmlString = bin2str(this.xmlDoc.responseBody);//可以在js里直接调用VBScript脚本

3.同时在输出xml的asp 文件开头加入

<%response.ContentType="application/xml"%>
<?xml version='1.0' encoding='GB2312'?>

当然文件也是保存为gb2312格式的。

本文链接

(转贴)关于多线程执行显示进度条的实例!

2010-11-10T09:09:00Z

关于多线程执行显示进度条的实例!
之前回答了一篇关于怎么在线程中操作进度条的帖子,估计有人看的不是很明白
今天没事,写了一个小小的实例,很简单,就2个文件
权当抛砖引玉,希望有更好解决方案的人发表一下意见

界面上2个控件,一个按钮和一个进度条
using System;
using System.Threading;
using System.Windows.Forms;

namespace WindowsFormsApplication2
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
        //线程开始的时候调用的委托
        private delegate void maxValueDelegate(int maxValue);
        //线程执行中调用的委托
        private delegate void nowValueDelegate(int nowValue);

private void button1_Click(object sender, EventArgs e)
        {
            ThreadMethod method = new ThreadMethod();
            //先订阅一下事件
            method.threadStartEvent += new EventHandler(method_threadStartEvent);
            method.threadEvent += new EventHandler(method_threadEvent);
            method.threadEndEvent += new EventHandler(method_threadEndEvent);

Thread thread = new Thread(new ThreadStart(method.runMethod));
thread.Start();
}

/// <summary>
        /// 线程完成事件
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        void method_threadEndEvent(object sender, EventArgs e)
        {
            MessageBox.Show("我完成啦!");
        }

/// <summary>
        /// 线程执行中的事件,设置进度条当前进度
        /// 但是我不能直接操作进度条,需要一个委托来替我完成
        /// </summary>
        /// <param name="sender">ThreadMethod函数中传过来的当前值</param>
        /// <param name="e"></param>
        void method_threadEvent(object sender, EventArgs e)
        {
            int nowValue = Convert.ToInt32(sender);
            nowValueDelegate now = new nowValueDelegate(setNow);
            this.Invoke(now, nowValue);
        }

/// <summary>
        /// 线程开始事件,设置进度条最大值
        /// 但是我不能直接操作进度条,需要一个委托来替我完成
        /// </summary>
        /// <param name="sender">ThreadMethod函数中传过来的最大值</param>
        /// <param name="e"></param>
        void method_threadStartEvent(object sender, EventArgs e)
        {
            int maxValue = Convert.ToInt32(sender);
            maxValueDelegate max = new maxValueDelegate(setMax);
            this.Invoke(max, maxValue);
        }

/// <summary>
        /// 我被委托调用,专门设置进度条最大值的
        /// </summary>
        /// <param name="maxValue"></param>
        private void setMax(int maxValue)
        {
            this.progressBar1.Maximum = maxValue;
        }

/// <summary>
        /// 我被委托调用,专门设置进度条当前值的
        /// </summary>
        /// <param name="nowValue"></param>
        private void setNow(int nowValue)
        {
            this.progressBar1.Value = nowValue;
        }
    }
}

另外一个文件

using System;
using System.Threading;

namespace WindowsFormsApplication2
{
    /// <summary>
    /// 线程处理方法
    /// </summary>
    public class ThreadMethod
    {
        /// <summary>
        /// 线程开始事件
        /// </summary>
        public event EventHandler threadStartEvent;
        /// <summary>
        /// 线程执行时事件
        /// </summary>
        public event EventHandler threadEvent;
        /// <summary>
        /// 线程结束事件
        /// </summary>
        public event EventHandler threadEndEvent;

public void runMethod()
        {
            int count = 100;      //执行多少次
            threadStartEvent.Invoke(count, new EventArgs());//通知主界面,我开始了,count用来设置进度条的最大值
            for (int i = 0; i < count; i++)
            {
                Thread.Sleep(100);//休息100毫秒,模拟执行大数据量操作
                threadEvent.Invoke(i, new EventArgs());//通知主界面我正在执行,i表示进度条当前进度
            }
            threadEndEvent.Invoke(new object(), new EventArgs());//通知主界面我已经完成了
        }
    }
}

例子代码

http://files.cnblogs.com/panzhilei/WindowsFormsApplication6.rar

本文链接

利用Adobe Acrobat 7.0 Professional 自带的导出图片的功能（转）

2010-10-09T09:56:00Z

最近在研究pdf to img 看了网上一些资料没找到个实用的，用第三方程序怕有问题，于是就想利用Adobe Acrobat 7.0 Professional 自带的导出图片的功能，资料忒少啊。找了半天，下面这个比较有用。不过说句实在话，我只是用别人的东西，没自己原创的东西。

原文：http://fidodido2010.spaces.live.com/blog/cns!42DBF9483C966838!129.entry

---------------------------------------------------------------------------------------------------------------------------

PDF转换成其他格式的COM解决方案
需求起源:

最近图片格式之间相互转换做得比较多,以往的转换LEADTOOLS R13肯定能搞定,却发现有一部分PDF用LEADTOOLS打不开,只好又把Acrobat捡起来了.

研究了半天,总算找到个办法,却被AcroExch.PDDoc的一个接口GetJSObject()难住了.照理说,这个接口返回的是一个JavaScript对象,可是C++下却没有相应的类型说明,只能用IDispatch,调用机制及IType完全搞不清楚,所有的能G到的相关内容几乎全是VB的，只有一个可怜的老外问过"Using GetJSObject() in C++"的问题，而且答案还是"since it involves low level COM API's to get directly to the IDispatch for the object.".

正想以头抢地,或者考虑整个工程迁移到VB下去,忽然想起,何不用VB做个专门调用这个接口的COM,在C++下面调用？

说干就干

用VB6编写Acrobat COM:

建立一个VB6的ActiveX Dll工程,工程名称改为MPDF2SIMG(Multi-page PDF to Single-page Image),模块名改为Converter,添加引用"Adobe Acrobat 7.0 Type Library".模块的全部代码如下：

Option Explicit On

Dim oApp As Acrobat.CAcroApp
Dim oMultiPageDoc As Acrobat.CAcroPDDoc
Dim oSinglePageDoc As Acrobat.CAcroPDDoc
Dim JSO As Object

Private Sub Class_Initialize()
    oApp = CreateObject("AcroExch.App")
    oMultiPageDoc = CreateObject("AcroExch.PDDoc")
End Sub

Public Function ConvertPDF(ByVal SourcePDF As String, _
    ByVal TargetFolder As String, _
    ByVal TargetFormat As String, _
    ByVal StartImgNumber As Integer) As Integer

Dim iNumbers As Integer
    Dim i As Integer
    Dim OutPath As String
    Dim OutFile As String

OutPath = TargetFolder
    If Right(OutPath, 1) <> "\" Then OutPath = OutPath & "\"

On Error GoTo err1

oMultiPageDoc.Open(SourcePDF)

iNumbers = oMultiPageDoc.GetNumPages

For i = 0 To iNumbers - 1
        oSinglePageDoc = CreateObject("AcroExch.PDDoc")
        oSinglePageDoc.Create()
        oSinglePageDoc.InsertPages(-1, oMultiPageDoc, i, 1, 0)
        JSO = oSinglePageDoc.GetJSObject
        OutFile = OutPath & Format(i + StartImgNumber, "00000000") & _
            ".tif"
        JSO.SaveAs(OutFile, "com.adobe.acrobat." & TargetFormat)
        JSO = Nothing
        oSinglePageDoc = Nothing
    Next

oMultiPageDoc.Close()
    oApp.CloseAllDocs()
    ConvertPDF = iNumbers
    Exit Function
err1:
    ConvertPDF = -1
End Function

Private Sub Class_Terminate()
    oMultiPageDoc = Nothing
    oSinglePageDoc = Nothing
End Sub然后编译成DLL. 使用这个DLL的方法:1.在计算机上运行regsvr32 mpdf2simg.dll注册这个DLL.2.使用这个DLL的C++程序里导入该COM的类型库，代码如下：#import "E:\project\Converter\mpdf2simg.dll"
using namespace MPDF2SIMG;3.定义COM型变量并建立实例，代码如下：

_ConverterPtr    pConverter;
HRESULT hr = pConverter.CreateInstance(_T("MPDF2SIMG.Converter"));
if(!FAILED(hr))
{
    //do something if failed.
    ...
}4.调用该COM的接口

int nConv = pConverter->ConvertPDF(
    CString(_T("xxxxxx\\source.pdf")).AllocSysString(),
    CString(_T("d:\\TargetPath")).AllocSysString(),
    CString(_T("tiff")).AllocSysString(),
    nStart);该调用会将指定的SoucePDF转至TargetPath下连续的单页TIFF文件,文件名为8位数字编号形式,编号起始由nStart指定.

调用成功返回转换的页数，失败返回-1

其他支持的格式:

值可用扩展名
"com.adobe.acrobat.eps" eps
"com.adobe.acrobat.html-3-20" html, htm
"com.adobe.acrobat.html-4-01-css-1-00" html, htm
"com.adobe.acrobat.jpeg" jpeg, jpg, jpe
"com.adobe.acrobat.jp2k" jpf, jpx, jp2, j2k, j2c,jpc
"com.adobe.acrobat.doc" doc
"com.adobe.acrobat.png" png
"com.adobe.acrobat.ps" ps
"com.adobe.acrobat.rtf" rtf
"com.adobe.acrobat.accesstext" txt
"com.adobe.acrobat.plain-text" txt
"com.adobe.acrobat.tiff" tiff, tif
"com.adobe.acrobat.xml-1-00" xml

已知问题和BUG:

如果C++程序使用多字节字符集编译, TargetPath中含有中文字符会导致无法正常转换,ConvertPDF调用会导致弹出"无法保存文件"的Acrobat对话框, 点确定ConvertPDF会返回-1.Unicode字符集未做测试.

补充说明:

使用Acrobat COM, 应在计算机上部署Adobe Acrobat (Not Reader).

-----------------------------------我自己的就简单了用-Adobe professinal-------------------------------

Dim gApp As Acrobat.CAcroApp
        Dim oMultiPageDoc As Acrobat.CAcroPDDoc
        Dim oSinglePageDoc As Acrobat.CAcroPDDoc
        Dim iNumbers As Integer
        Dim StartImgNumber As Integer
        Dim OutFile As String
        Dim i As Integer
        Dim jso As Object
        gApp = CreateObject("AcroExch.App")
        oMultiPageDoc = CreateObject("AcroExch.PDDoc")

'pdf和生成的文件要在同一个文件夹下
        If oMultiPageDoc.Open("F:\test.pdf") Then

iNumbers = oMultiPageDoc.GetNumPages

For i = 0 To iNumbers - 1
                oSinglePageDoc = CreateObject("AcroExch.PDDoc")
                oSinglePageDoc.Create()
                oSinglePageDoc.InsertPages(-1, oMultiPageDoc, i, 1, 0)
                jso = oSinglePageDoc.GetJSObject
                OutFile = Format(i + StartImgNumber, "00000000") & ".png"
                jso.SaveAs("F:\" & OutFile, "com.adobe.acrobat.png")
                jso = Nothing
                oSinglePageDoc = Nothing
            Next

End If

-----附送一个用GhostScriptView的----------------

C:\Program Files\gs\gs8.61\bin\gswin32c.exe -dSAFER -dBATCH -dNOPAUSE -r300 -sDEVICE=png16m -dGraphicsAlphaBits=4

-sOutputFile="F:\test.pdf" "F:\test\"

本文链接

利用CURE算法来进行文本聚类

2010-02-26T08:13:00Z

看了下“蛙蛙推荐：蛙蛙教你文本聚类”，链接地址为http://www.cnblogs.com/onlytiancai/archive/2008/05/10/1191557.html

对于文本顺序发生了变化的情况，k-means算法无法解决，后来网上找个到CURE算法的介绍，“层次聚类方法的CURE算法研究”是个pdf文档，

如是按照文章所说结合wawa的东西，实现了下CURE算法，代码写得一般，结果还行，大家有空就看看吧。

数据也用的是wawa的

测试：首先我们准备以下数据
===================
奥运拳击入场券基本分罄邹市明夺冠对手浮出水面
股民要清楚自己的目的
印花税之股民四季
杭州股民放鞭炮庆祝印花税下调
残疾女青年入围奥运游泳比赛创奥运历史两项第一
介绍一个 ASP.net MVC 系列教程
在 asp.net 中实现观察者模式，或有更好的方法（续）
输大钱的股民给我们启迪
Asp.Net 页面执行流程分析
运动员行李将 “后上先下” 奥运相关人员行李实名制
asp.net 控件开发显示控件内容
奥运票务网上成功订票后应及时到银行代售网点付款
某心理健康站开张后首个咨询者是位新股民
ASP.NET 自定义控件复杂属性声明持久性浅析
==================

放在bin下的input.txt中

顺序可以你可以随意打乱

关键代码说明，其他的可以去参考wawa的

//2、计算类间距离
                double max = double.MaxValue;
                int i_min = -1;
                int j_min = -1;
                for (int i = 0; i < _clusters.Count; i++)
                {

                    for (int j = i + 1; j < _clusters.Count; j++)
                    {
                        double dist = getDistance(_clusters[i], _clusters[j]);
                        _distanceCache[i, j] = dist;
                        if (_distanceCache[i, j] < max)
                        {
                            max = _distanceCache[i, j];
                            i_min = i;
                            j_min = j;
                        }
                    }
                }

                //
                //3、合并距离最小的两个类
                Merge(i_min, j_min);


                if (_k == _clusters.Count)
                    break;

具体理解算法要看pdf文档

地址 http://files.cnblogs.com/panzhilei/层次聚类方法的CURE算法研究.pdf

用到IFIDF，对概念不熟可以搜索“数学之美”，

数学之美系列九 -- 如何确定网页和查询的相关性地址为 http://googlechinablog.com/2006/06/blog-post_27.html

建议从系列一开始看起。

代码用Vs2008开发

地址 http://files.cnblogs.com/panzhilei/CureDemo.rar

本文链接

集体智慧编程英文版

2010-01-29T03:55:00Z

http://files.cnblogs.com/panzhilei/Collective_Intelligence.pdf

(转)ie与firefox对节点childNode的不同解释。

2009-09-05T09:14:00Z

原文：http://blog.csdn.net/lifeng_beijing/archive/2008/12/22/3581040.aspx<script language="javascript">function msg(){alert(document.getElementById("id_5").childNodes.length)}</script><tab...

(转)正则表达式学习参考

2009-07-03T09:07:00Z

正则表达式学习参考原帖在http://blog.csdn.net/lxcnn/archive/2009/06/14/4268033.aspx我参考原帖写了一个例子讲解在小小过滤<span>xxxxxxxx></span> 1 概述正则表达式(Regular Expression)是一种匹配模式，描述的是一串文本的特征。正如自然语言中“高大”、...

博客园_现在做java了，到时候发些java的文章

如何生成1-1000的数字，并且顺序打乱

如何快速创建大文件

高晓松：不买房，买梦想

(转)XMLHTTP 乱码的解决方法（UTF8,GB2312 编码 解码）（附带解决DHTMLX不能用在GB2312页面编码下的中文问题）

(转贴)关于多线程执行显示进度条的实例!

利用Adobe Acrobat 7.0 Professional 自带的导出图片的功能（转）

利用CURE算法来进行文本聚类

集体智慧编程 英文版

(转)ie与firefox对节点childNode的不同解释。

(转)正则表达式学习参考

(转)XMLHTTP 乱码的解决方法（UTF8,GB2312 编码解码）（附带解决DHTMLX不能用在GB2312页面编码下的中文问题）

集体智慧编程英文版