<![CDATA[richart]]> http://312441502.qzone.qq.com Mon, 30 Nov 2009 17:07:44 GMT Qzone zh-cn Copyright (C), 2005-2008, Tencent Tech. Co., Ltd. Thu, 24 Sep 2009 00:22:12 GMT <![CDATA[原来word有这么多简便的使用方法[转载]]]> http://312441502.qzone.qq.com/blog/1253751732 　　
　　　　首先把图片复制到 剪贴板中，然后打开替换对话框，在“查找内容”框中输入将被替换的文字，接着在 “替换为”框中输入“^c”（注意：输入的一定要是半角字符，c要小写），单击替换 即可。说明:“^c”的意思就是指令Word XP以剪贴板中的内容替换“查找内容”框中的内 容。按此原理，“^c”还可替换包括回车符在内的任何可以复制到剪贴板的可视内容，甚至Excel表格。
　　
　　　　三招去掉页眉那条横线
　　
　　　　1、在页眉中，在“格式”－“边框和底纹”中设置表格和边框为“无”，应用于“段落”
　　
　　　　2、同上，只是把边框的颜色设置为白色（其实并没有删的，只是看起来没有了，呵呵）
　　
　　　　3、在“样式”栏里把“页眉”换成“正文”就行了——强烈推荐！
　　
　　　　会多出--(两个横杠) 这是用户不愿看到的,又要多出一步作删除--
　　
　　　　解决方法：替换时在前引号前加上一个空格 问题就解决了
　　
　　　　插入日期和时间的快捷键
　　
　　　　Alt+Shift+D：当前日期
　　
　　　　Alt+Shift+T：当前时间
　　
　　　　批量转换全角字符为半角字符
　　
　　　　首先全选。然后“格式”→“更改大小写”，在对话框中先选中“半角”，确定即可
　　
　　　　Word启动参数简介
　　
　　　　单击“开始→运行”命令，然后输入Word所在路径及参数确定即可运行，如“C:\ PROGRAM FILES \MICROSOFT Office \Office 10\ WINWord.EXE /n”，这些常用的参数及功能如下：
　　
　　　　/n：启动Word后不创建新的文件。
　　
　　　　/a：禁止插件和通用模板自动启动。
　　
　　　　/m：禁止自动执行的宏。
　　
　　　　/w：启动一个新Word进程，独立与正在运行的Word进程。
　　
　　　　/c：启动Word，然后调用Netmeeting。
　　
　　　　/q：不显示启动画面。
　　
　　　　另外对于常需用到的参数，我们可以在Word的快捷图标上单击鼠标右键，然后在“目标”项的路径后加上该参数即可。
　　
　　　　快速打开最后编辑的文档
　　
　　　　如果你希望Word在启动时能自动打开你上次编辑的文档，可以用简单的宏命令来完成：
　　
　　　　(1)选择“工具”菜单中的“宏”菜单项，单击“录制新宏”命令打开“录制宏”对话框；
　　
　　　　(2)在“录制宏”对话框中，在“宏名”输入框中输入“autoexec”，点击“确定”；
　　
　　　　(3)从菜单中选择“文件”，点击最近打开文件列表中显示的第一个文件名；并“停止录制”。保存退出。下次再启动Word时，它会自动加载你工作的最后一个文档。
　　
　　　　格式刷的使用
　　
　　　　1、设定好文本1的格式。
　　
　　　　2、将光标放在文本1处。
　　
　　　　3、单击格式刷按钮。
　　
　　　　4、选定其它文字(文本2)，则文本2的格式与文本1 一样。
　　
　　　　若在第3步中单击改为双击，则格式刷可无限次使用，直到再次单击格式刷(或按Esc键)为止。
　　
　　　　删除网上下载资料的换行符（象这种“↓”）
　　
　　　　在查找框内输入半角^l(是英文状态下的小写L不是数字1),在替换框内不输任何内容，单击全部替换，就把大量换行符删掉啦。
　　
　　　　选择性删除文件菜单下的最近使用的文件快捷方式。
　　
　　　　工具→选项→常规把“列出最近使用文件数改为0”可以全部删除，若要选择性删除，可以按ctrl+Alt+ -三个键，光标变为一个粗减号后，单击文件，再单击要删除的快捷方式就行了。
　　
　　　　建立一个矩形选区：
　　
　　　　一般的选区建立可用鼠标左键，或用shift键配合pgup、pgdn、home、end、箭头等功能键，当复制一个规则的矩形区域时，可先按住Alt键，然后用鼠标左键来选。我一般用此来删除段首多余的成块的空格。大家试一试*^_^*
　　
　　　　将字体快速改为上标或下标的方法：
　　
　　　　本人在一次无意间发现了这个方法，选定你要下标的字，然后在英文状态下按住Ctrl，再按一下BASKSPACE旁的+/=的键，就可以了。上标只要在按Ctrl的同时也按住Shift,大家可以试试。
　　
　　　　让Word表格快速一分为二
　　
　　　　将光标定位在分开的表格某个位置上，按下“Ctrl+Shift+Enter”组合键。这时你就会发现表格中间自动插入一个空行，这样就达到了将一个表格一分为二的目的。
　　
　　　　用Word来拆字
　　
　　　　首先点击“工具/自定义/命令/分解图片”，按住鼠标左键把它拖放到工具栏任意位置即可；然后点击“插入/图片/艺术字”，例如输入空心字“心”，选择该“心”字剪切，在选择性粘贴中选图片（Windows图元文件），选中该字，点击工具栏中的“分解图片”按钮，这样可以选择“心”中的任意笔画进行一笔一画的拆分了。
　　
　　　　快速删除段前段后的任意多个空格
　　
　　　　选定这些段段落，单击居中按钮，然后再单击原来的那种对齐方式按钮（如果原来是居中对齐的，先单击其它对齐方式按钮，再单击居中按钮就行了），是不是这些空格全不见了？
　　
　　　　只要打开WORD新建一个空文档的时候，出现的不是空的文档，而是我以前打的一份文档
　　
　　　　首先:将资源管理器设置为显示所有文件和文件夹；
　　
　　　　然后:
　　
　　　　C:\Documents and Settings\Administrator\Application Data\Microsoft\Templates文件夹下将所有Normal.doc文件删掉；
　　
　　　　然后：OK（XP系统）
　　
　　　　快速输入平方的方法
　　
　　　　先输入2,然后选重后,按ctrl加shift加+就可以了.
　　
　　　　WORD中表格的选择性录入
　　
　　　　1.设置好表格,选定表格-视图-工具-窗体-插入下拉型窗体域
　　
　　　　2.输入数据,完成
　　
　　　　3.点击锁按钮,保护,输入完后再点击进行其它的输入.
　　
　　　　标点符号的全角/半的转换用：Ctrl+.
　　
　　　　数字字母的全角/半的转换用：Shift+空格
　　
　　　　轻松了解工具栏按钮的作用
　　
　　　　按下“shift+F1”键，鼠标指针旁多了一个“？”号，想知道哪个按钮
　　
　　　　的作用，就用鼠标单击哪个。
　　
　　　　要经常在文档中插入自己公司的信息
　　
　　　　公司名称
　　
　　　　公司住址
　　
　　　　联系电话
　　
　　　　联系人姓名
　　
　　　　QQ号码
　　
　　　　可以先选定这些内容，再单击工具→自动更正→在替换框中输入标记名称(如“公司信息”)→添加→确定，以后凡是在文档中要用到这个信息的地方键入“公司信息”（不要引号）这几个字后就自动替换成：
　　
　　　　公司名称
　　
　　　　公司住址
　　
　　　　联系电话
　　
　　　　联系人姓名
　　
　　　　QQ号码
　　
　　　　说明：有些输入法不支持这个功能，键入标记名称后要按一下空格才行。
　　
　　　　快速换页的方法
　　
　　　　双击某页的右下脚，光标即可定位在那里，然后按回车直到换页。ctrl＋回车点插入按纽，分隔符，选中分页符，然后确认就OK了 ！！！
　　
　　　　表格的简单调整宽度
　　
　　　　鼠标放在表格的右边框上带鼠标变成可以调整大小的时候
　　
　　　　双击
　　
　　　　根据表格内的内容调节表格大小
　　
　　　　代替金山词霸
　　
　　　　点工具——语言——翻译，在右边出现的搜索框中输入要查的单词，回车就可以翻译了。可以选择英语翻成中文或中文翻成英语。
　　
　　　　第一次使用可能要安装。
　　
　　　　[Alt]键实现标尺的精确定位
　　
　　　　如果你经常使用水平标尺来精确定位标签、页边框、首字缩进及页面对象的位置，那么你点击标尺设置页边框或标签时，您只可以将其设置为1字符或2字符，但不能设为1.5字符！要想设置更为精确的度量单位（例如百分之几字符），在按住[Alt]键的同时，点击并移动标尺或边框，此时标尺将用数字精确显示出当前的位置为百分之几字符位置。
　　
　　　　用“记事本”去除格式
　　
　　　　网页上COPY下来的东西往往都是有网格的，如果直接粘贴在WORD中会杂乱无章。先粘贴到记事本当中，再粘贴到WORD中，就可以去除网格等格式，再全选选择清除格式，居中再取消居中即可取消所有格式。可以直接在WORD中进行：（菜单）编辑/选择性粘贴……/无格式文本/确定。这样省事多了。
　　
　　　　快速将文档转换成图片
　　
　　　　先把欲想转换的文档保存退出.如:保存在桌面
　　
　　　　然后新建一个文件.把想转换的文档(鼠标左建按住该文档不放)直接施放在页面上
　　
　　　　恢复office的默认设置
　　
　　　　比如不小心把word设置乱了(如删了菜单栏等等).
　　
　　　　查找normal.dot直接删除.
　　
　　　　下一次启动word会恢复默认值.
　　
　　　　让Word只粘贴网页中的文字而自动去除图形和版式
　　
　　　　方法一、选中需要的网页内容并按“Ctrl+C”键复制，打开Word，选择菜单“编辑”→“选择性粘贴”，在出现的对话框中选择“无格式文本”。
　　
　　　　方法二、选中需要的网页内容并按“Ctrl+C” 键复制，打开记事本等纯文本编辑工具，按“Ctrl+V”键将内容粘贴到这些文本编辑器中，然后再复制并粘贴到Word中。
　　
　　　　ctrl+alt+f可以输入脚注
　　
　　　　这个对于经常写论文的朋友应该有点帮助。
　　
　　　　将阿拉伯数字转换成中文数字或序号
　　
　　　　1、先输入阿拉伯数字(如1234)，全选中，单击“插入/数字/数字类型（壹、贰……）/确定”，即变为大写数字（如壹仟贰佰叁拾肆），会计朋友非常适用。
　　
　　　　2、其他像一千二百三十四，甲、乙……，子、丑……，罗马数字等的转换，可参考上法。
　　
　　　　Word中的常用快捷键吧
　　
　　　　“字体”对话框 Ctrl+D
　　
　　　　选择框式工具栏中的“字体”框 Ctrl+Shift+F
　　
　　　　加粗 Ctrl+B
　　
　　　　倾斜 Ctrl+I
　　
　　　　下划线Ctrl+U
　　
　　　　“上标”效果 Ctrl+Shift+=
　　
　　　　“下标”效果 Ctrl+=
　　
　　　　“关闭”命令 Ctrl+W
　　
　　　　Word快捷键一览表
　　
　　　　序号 快捷键CTRL+ 代表意义
　　
　　　　1…………Z…………撤消
　　
　　　　2…………A…………全选
　　
　　　　3…………X…………剪切
　　
　　　　4…………C…………复制
　　
　　　　5…………V…………粘贴
　　
　　　　6…………S…………保存
　　
　　　　7…………B…………加粗
　　
　　　　8………… Q…………左对齐
　　
　　　　9…………E…………据中
　　
　　　　10…………R…………右对齐
　　
　　　　11…………]…………放大
　　
　　　　22…………[…………缩小
　　
　　　　12…………N…………新建文档
　　
　　　　13…………I…………字体倾斜
　　
　　　　14…………W…………退出
　　
　　　　15…………P…………打印
　　
　　　　16…………U…………下划线
　　
　　　　17…………O…………打开
　　
　　　　18…………k…………插入超级连接
　　
　　　　19…………F…………查找
　　
　　　　20…………H…………替换
　　
　　　　21…………G…………定位
　　
　　　　23…Ctrl+Alt+L……带括号的编号
　　
　　　　24…Ctrl+Alt+.________…
　　
　　　　25…Alt+数字………区位码输入
　　
　　　　26…Ctrl+Alt+Del………关机
　　
　　　　27…Ctrl+Alt+Shift+?……&iquest;
　　
　　　　28…Ctrl+Alt+Shift+!……&iexcl;
　　
　　　　29…Alt+Ctrl+E……………？
　　
　　　　30…Alt+Ctrl+R……………&reg;
　　
　　　　31…Alt+Ctrl+T……………&#8482;
　　
　　　　32…Alt+Ctrl+Ctrl…………&copy;
　　
　　　　33……Ctrl+D……………格式字体
　　
　　　　34……Ctrl+Shift+= ………上标
　　
　　　　35……Ctrl+=………………下标
　　
　　　　36……Ctrl+Shift+>……放大字体
　　
　　　　37……Ctrl+Shift+
　　
　　　　Word双面打印技巧
　　
　　　　 我们平时用电脑的时候可能都少不了打印材料，Word是我们平常用的最多的Office软件之一。有时我们要用Word打印许多页的文档，出于格式要求或为了节省纸张，会进行双面打印。
　　
　　　　我们一般常用的操作方法是:选择“打印”对话框底部的“打印”下拉列表框中的“打印奇数页”或“打印偶数页”，来实现双面打印。我们设定为先打印奇数页。等奇数页打印结束后，将原先已打印好的纸反过来重新放到打印机上，选择该设置的“打印偶数页”，单击“确定”按钮。这样通过两次打印命令就可以实现双面打印。
　　
　　　　我们也可以利用另一种更灵活的双面打印方式:打开“打印”对话框，选中“人工双面打印”，确定后就会出现一个“请将出纸器中已打印好的一面的纸取出并将其放回到送纸器中，然后‘确定’按键，继续打印”的对话框并开始打印奇数页，打完后将原先已打印好的纸反过来重新放到打印机上，然后按下该对话框的“确定”按键，Word就会自动再打印偶数页，这样只用一次打印命令就可以了。 ]]> http://312441502.qzone.qq.com/blog/1253751732#comment 134218240 Thu, 24 Sep 2009 00:22:12 GMT http://312441502.qzone.qq.com/blog/1253751732 <![CDATA[VBA文件处理（转）]]> http://312441502.qzone.qq.com/blog/1251254099 （一）文件处理

1.Name 语句语法：Name oldpathname As newpathname
功能：重命名一个文件、目录、或文件夹，移动一个文件。
说明：在一个已打开的文件上使用 Name，将会产生错误。进行文件操作时，一定要注意错误处理。
示例：
On Error Resume Next '错误处理
Name "f:\TEST.xls" As "f:\TEST123.xls" '重命名
Name "f:\TEST.xls" As "f:\dll\TEST.xls" '移动文件
Name "f:\TEST.xls" As "d:\TEST123.xls" '跨驱动器移动并重命名文件注意：Name不能移动一个目录或文件夹。
2、FileCopy 语句
语法：FileCopy source, destination
功能：复制一个文件。
说明：如果对一个已打开的文件使用 FileCopy 语句，则会产生错误。
示例：
FileCopy "f:\TEST.xls", "e:\TEST.xls" '从F盘复制TEST.xls到E盘3、Kill 语句
语法：Kill pathname
功能：从磁盘中删除文件。
说明：Kill 支持多字符 (*) 和单字符 (?) 的统配符来指定多重文件。如果使用 Kill 来删除一个已打开的文件，则会产生错误。
示例：
Kill "f:\TEST.xls" ’删除F盘的TEST.xls文件
Kill "f:\*.xls" ' 删除F盘所有xls文件4、GetAttr 函数
语法：GetAttr(pathname)
功能：获取一个文件、目录、或文件夹的属性。返回一个 Integer值。
返回值
由 GetAttr 返回的值，是下面这些属性值的总和：
常数 值 描述
vbNormal 0 常规
vbReadOnly 1 只读
vbHidden 2 隐藏
vbSystem 4 系统文件
vbDirectory 16 目录或文件夹
vbArchive 32 存档文件
vbalias 64 指定的文件名是别名。只在Macintosh中可用。 说明：若要判断是否设置了某个属性，在 GetAttr 函数与想要得知的属性值之间使用 And 运算符与逐位比较。如果所得的结果不为零，则表示设置了这个属性值。
示例：
Debug.Print GetAttr("F:\test.txt") '若为存档文件，在立即窗口可看到值为32
Debug.Print GetAttr("F:\test.txt") '将属性—高级—可存档文件的勾去掉后，值为0为判断一个文件是否只读，可用下法:
Debug.Print GetAttr("F:\test.txt") And vbReadOnly
若值非零，说明时只读的。5、SetAttr 语句
语法：SetAttr pathname, attributes
功能：为一个文件设置属性。
说明：如果想要给一个已打开的文件设置属性，则会产生运行时错误。
示例：
SetAttr"F:\test.txt", vbHidden ' 设置隐藏属性。
SetAttr"F:\test.txt", vbHidden + vbReadOnly ' 设置隐藏并只读。6、FileLen 函数
语法：FileLen(pathname)
功能：获取一个文件的长度，单位是字节。
说明：当调用 FileLen 函数时，不需要打开文件，如果所指定的文件已经打开，则返回的值是这个文件在打开前的大小。
7、FileDateTime 函数
语法：FileDateTime(pathname)
功能：获取一个文件被创建或最后修改后的日期和时间。
示例：
Debug.Print FileDateTime("F:\TEST.xls") '在立即窗口可看到2007-3-29 19:28:27
（二）目录处理1、CurDir 函数
语法：CurDir[(drive)]
功能：返回当前的路径。
说明：drive 参数是可选的，它指定一个存在的驱动器。如果没有指定驱动器，或 drive 是零长度字符串 ("")，则 CurDir 会返回当前驱动器的路径。
示例：
Debug.Print CurDir ' 返回“C:\Documents and Settings\yc\My Documents”。
Debug.Print CurDir("C") ' 返回“C:\Documents and Settings\yc\My Documents”。
Debug.Print CurDir("D") ' 返回“D:\”。2、ChDir 语句
语法：ChDir path
功能：改变当前的目录或文件夹。
说明：ChDir 语句改变缺省目录位置，但不会改变缺省驱动器位置。缺省驱动器一般是C。
示例：
ChDir "D:\temp"
Debug.Print CurDir ' 返回“C:\Documents and Settings\yc\My Documents”。
Debug.Print CurDir("D") ' 返回“D:\temp”。
与上例比较，此时D盘的当前目录已经变为“D:\temp”，但是缺省驱动器还是C。3、ChDrive 语句
语法：ChDrive drive
功能：改变当前的驱动器。
说明：如果使用零长度的字符串 ("")，则当前的驱动器将不会改变。如果 drive 参数中有多个字符，则 ChDrive 只会使用首字母。
示例：
ChDrive "D"
ChDir "D:\temp"
Debug.Print CurDir ' 返回“D:\temp”。
Debug.Print CurDir("D") ' 返回“D:\temp”。与上例比较，用CurDir返回的是“D:\temp”，当前驱动器已经变为D了。
4、Dir 函数
语法：Dir[(pathname[, attributes])]
两个参数都是可选的，attributes表示文件属性。
功能：返回一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。说明：在第一次调用 Dir 函数时，必须指定 pathname，否则会产生错误。如果也指定了文件属性，那么就必须包括 pathname。
Dir 会返回匹配 pathname 的第一个文件名。若想得到其它匹配 pathname 的文件名，再一次调用 Dir，且不要使用参数。如果已没有合乎条件的文件，则 Dir 会返回一个零长度字符串 ("")。一旦返回值为零长度字符串，并要再次调用 Dir 时，就必须指定 pathname，否则会产生错误。不必访问到所有匹配当前 pathname 的文件名，就可以改变到一个新的 pathname 上。但是，不能以递归方式来调用 Dir 函数。以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。
示例：
Debug.Print Dir("F:\TEST.xls") ’返回"TEST.xls"
Debug.Print Dir("F:\*.xls") ’返回按条件第一个找到的文件名。
Debug.Print Dir("F:\*.txt",vbReadOnly) ’返回第一个只读的txt文件以下过程可显示C盘根目录下的所有目录.
Sub DirC()MyPath = "c:\"
MyName = dir(MyPath, vbDirectory) ' 找寻第一项。
Do While MyName <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
If MyName <> "." And MyName <> ".." Then
' 使用位比较来确定 MyName 代表一目录。
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' 如果它是一个目录，将其名称显示出来。
End If
End If
MyName = dir ' 查找下一个目录。
LoopEnd Sub
以下过程利用递归可以查找目录和子目录下的所有文件。
Public Sub FindFile(mPath As String, Optional sFile As String = "")
On Error Resume Next
Dim s As String, sDir() As String
Dim i As Long, d As LongIf Right(mPath, 1) <> "\" Then
mPath = mPath & "\"
End If
'查找目录下的文件
s = dir(mPath & sFile, vbArchive + vbDirectory + vbHidden + vbNormal + vbReadOnly + vbSystem)
Do While s <> ""
Debug.Print mPath & s
s = dir
Loop
'查找目录下的子目录
s = dir(mPath, vbArchive + vbDirectory + vbHidden + vbNormal + vbReadOnly + vbSystem)
Do While s <> ""
If s <> "." And s <> ".." Then
If (GetAttr(mPath & s) And vbDirectory) = vbDirectory Then
d = d + 1
ReDim Preserve sDir(d)
sDir(d) = mPath & s
End If
End If
s = dir
Loop'开始递归
For i = 1 To d
FindFile sDir(d) & "\"
NextEnd Sub

5、MkDir 语句语法：MkDir path
功能：创建一个新的目录或文件夹。
说明：path 可以包含驱动器。如果没有指定驱动器，则 MkDir 会在当前驱动器上创建新的目录或文件夹。
示例：
MkDir "MYDIR" '在当前目录建立新的目录或文件夹。6、RmDir 语句
语法：RmDir path
功能：删除一个存在的目录或文件夹。
说明：如果想要使用 RmDir 来删除一个含有文件的目录或文件夹，则会发生错误。在试图删除目录或文件夹之前，先使用 Kill 语句来删除所有文件。
示例：
RmDir "MYDIR" ' 将 MYDIR 删除。
1、Open 语句
语法：Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]
其中access、lock、reclength为可选参数，一般不用。
mode 指定打开文件的方式。有5种：
Input：以输入方式打开，即读取方式。
Output：以输出方式打开，即写入方式。
Append：以追加方式打开，即添加内容到文件末尾。
Binary：以二进制方式打开。
Random：以随机方式打开，如果未指定方式，则以 Random 方式打开文件。filenumber 是一个有效的文件号，范围在 1 到 511 之间。可以指定，也可使用 FreeFile 函数可得到下一个可用的文件号。
说明：如果 pathname 指定的文件不存在，那么，在用 Append、Binary、Output、或 Random 方式打开文件时，可以建立这一文件。
示例：
Open "F:\TEST.txt" For Input As #1 '以输入方式打开
Open "F:\TEST.xls" For Binary As #1 '以二进制方式打开2、Close 语句
语法：Close [filenumberlist]
filenumberlist 参数为一个或多个文件号，若省略 filenumberlist，则将关闭 Open 语句打开的所有活动文件。说明：打开文件后，必须在使用完后关闭文件。
示例：
Dim I, FileName
For I = 1 To 3
FileName = "TEST" & I ' 创建文件名。
Open FileName For Output As #I ' 打开文件。
Print #I, "This is a test." ' 将字符串写入文件。
Next I
Close ' 将三个已打开的文件全部关闭。3、Reset 语句
语法：Reset
功能：关闭所有用 Open 语句打开的磁盘文件。
说明：Reset 语句关闭 Open 语句打开的所有活动文件，并将文件缓冲区的所有内容写入磁盘。
示例：
Dim FileNumber
For FileNumber = 1 To 5
Open "TEST" & FileNumber For Output As #FileNumber
Write #FileNumber, "Hello World" ' 将数据写入文件。
Next FileNumber
Reset ' 关闭文件并将缓冲区内的数据写到磁盘中。4、FreeFile 函数
语法：FreeFile[(rangenumber)]
参数 rangenumber指定一个范围，以便返回该范围之内的下一个可用文件号。指定 0（缺省值）则返回一个介于 1 – 255 之间的文件号。指定 1 则返回一个介于 256 – 511 之间的文件号。功能：提供一个尚未使用的文件号。
示例：
Dim fnum As Integerfnum = FreeFile
Open "F:\TEST.txt" For Input As #fnum
Close #fnum

5、EOF 函数语法：EOF(filenumber)
功能：返回一个 Integer，它包含 Boolean 值 True，表明已经到达为 Random 或顺序 Input 打开的文件的结尾。
6、LOF 函数
语法：LOF(filenumber)
功能：返回一个 Long，表示用 Open 语句打开的文件的大小，该大小以字节为单位。
7、Loc 函数
语法：LOc(filenumber)
功能：返回一个 Long，在已打开的文件中指定当前读/写位置。

8、Input # 语句语法：Input #filenumber, varlist
功能：从已打开的顺序文件中读出数据并将数据指定给变量。
说明：通常用 Write # 将 Input # 语句读出的数据写入文件。为了能够用 Input # 语句将文件的数据正确读入到变量中，在将数据写入文件时，要使用 Write # 语句而不使用 Print # 语句。使用 Write # 语句可以确保将各个单独的数据域正确分隔开。
示例：
本示例使用 Input # 语句将文件内的数据读入两个变量中。本示例假设 TESTFILE文件内含数行以 Write # 语句写入的数据；也就是说，每一行数据中的字符串部分都是用双引号括起来，而与数字用逗号隔开，例如，（"Hello", 234）。Dim MyString, MyNumber
Open "TESTFILE" For Input As #1 ' 打开输入文件。
Do While Not EOF(1) ' 循环至文件尾。
Input #1, MyString, MyNumber ' 将数据读入两个变量。
Debug.Print MyString, MyNumber ' 在立即窗口中显示数据。
Loop
Close #1 ' 关闭文件。9、Write # 语句
语法：Write #filenumber, [outputlist]
功能：将数据写入顺序文件。
说明：通常用 Input # 从文件读出 Write # 写入的数据。
如果省略 outputlist，并在 filenumber 之后加上一个逗号，则会将一个空白行打印到文件中。多个表达式之间可用空白、分号或逗号隔开。空白和分号等效。用 Write # 将数据写入文件时将遵循几个通用的约定，使得无论什么区域都可用 Input # 读出并正确解释数据：
·在写入数值数据时总使用句号作为十进制分隔符。
·对于 Boolean 类型的数据，或者打印 #TRUE# 或者打印 #FALSE#。无论在什么地区，都不将 True 和 False 这两个关键字翻译出来。
·使用通用的日期格式将 Date 类型的数据写入文件中。当日期或时间的部件丢失或为零时，只将现有部分写入文件中。
·如果 outputlist 的数据为 Empty，则不将任何数据写入文件。但对 Null 数据，则要写入 #NULL#。
·如果 outputlist 数据为 Null 数据，则将 #NULL# 写入文件中。
·对于 Error 类型的数据，输出看起来与 #ERROR errorcode# 一样。无论在什么地区，都不将关键字 Error 翻译出来。
与 Print # 语句不同，当要将数据写入文件时，Write # 语句会在项目和用来标记字符串的引号之间插入逗号。没有必要在列表中键入明确的分界符。Write # 语句在将 outputlist 中的最后一个字符写入文件后会插入一个新行字符，即回车换行符，(Chr(13) + Chr(10))。 示例：
Open "F:\test.txt" For Output As #1 ' 打开输出文件。
Write #1, "Hello World", 1234 ' 写入以逗号隔开的数据。
Write #1, ' 写入空白行。Dim MyBool, MyDate, MyNull, MyError
' 赋值 Boolean、Date、Null 及 Error 等。
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
' Boolean 数据以 #TRUE# 或 #FALSE# 的格式写入。
' 日期以通用日期格式写入，例如：#1994-07-13# 代表
' 1994 年 1 月 13 日。Null 数据以 #NULL# 格式写入。
' Error 数据以 #ERROR 错误代号# 的格式写入。
Write #1, MyBool; " is a Boolean value"
Write #1, MyDate; " is a date"
Write #1, MyNull; " is a null value"
Write #1, MyError; " is an error value"
Close #1 ' 关闭文件。我们可以看到写入的内容为：
"Hello World",1234#FALSE#," is a Boolean value"
#1969-02-12#," is a date"
#NULL#," is a null value"
#ERROR 32767#," is an error value"10、Line Input # 语句
语法：Line Input #filenumber, varname
功能：从已打开的顺序文件中读出一行并将它分配给 String 变量。
说明：通常用 Print # 与 Line Input # 语句配合使用。
Line Input # 语句一次只从文件中读出一个字符，直到遇到回车符 (Chr(13)) 或回车–换行符 (Chr(13) + Chr(10)) 为止。回车–换行符将被跳过，而不会被附加到字符串上。示例：
Dim TextLine
Open "TESTFILE" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Debug.Print TextLine ' 在立即窗口中显示数据。
Loop
Close #1 ' 关闭文件。11、Input 函数
语法：Input(number, [#]filenumber)
其中number 指定要返回的字符个数。 功能:返回 String，它包含以 Input 或 Binary 方式打开的文件中的字符。
说明：通常用 Print # 或 Put 将 Input 函数读出的数据写入文件。Input 函数只用于以 Input 或 Binary 方式打开的文件。
与 Input # 语句不同，Input 函数返回它所读出的所有字符，包括逗号、回车符、空白列、换行符、引号和前导空格等。示例：
Dim MyChar
Open "f:\test.txt" For Input As #1
Do While Not EOF(1) ' 循环至文件尾。
MyChar = Input(1, #1) ' 读入一个字符。
Debug.Print MyChar ' 显示到立即窗口。
Loop
Close #1下面这个函数可以将文本文件的数据一次读入到一个字符串（但是若包含中文时会出错，因为一个中文字占2个字节）。
Public Function ReadText(FileName As String)
Dim fnum%, isopen As Boolean
On Error GoTo erro
fnum = FreeFile()
Open FileName For Input As #fnum
isopen = True
ReadText = Input(LOF(fnum), fnum)erro:
If isopen Then Close #fnum
If err Then Debug.Print err.Number, err.DescriptionEnd Function
12、Print # 语句
语法：Print #filenumber, [outputlist]
outputlist 参数的设置如下：
[{Spc(n) | Tab[(n)]}] [expression] [charpos]Spc(n) 用来在输出数据中插入空白字符，而 n 指的是要插入的空白字符数。
Tab(n) 用来将插入点定位在某一绝对列号上，这里，n 是列号。使用无参数的 Tab 将插入点定位在下一个打印区的起始位置。
expression 要打印的数值表达式或字符串表达式。
charpos 指定下一个字符的插入点。使用分号将插入点定位在上一个显示字符之后。用 Tab(n) 将插入点定位在某一绝对的列号上，用无参数的 Tab 将插入点定位在下一个打印区的起始处。如果省略 charpos，则在下一行打印下一个字符。
功能：将格式化显示的数据写入顺序文件中。说明:通常用 Line Input # 或 Input 读出 Print # 在文件中写入的数据。
示例：
Open "F:\test.txt" For Output As #1 ' 打开输出文件。
Print #1, "This is a test" ' 将文本数据写入文件。
Print #1, ' 将空白行写入文件。
Print #1, "Zone 1"; Tab; "Zone 2" ' 数据写入两个区（print zones）。
Print #1, "Hello"; " "; "World" ' 以空格隔开两个字符串。
Print #1, Spc(5); "5 leading spaces " ' 在字符串之前写入五个空格。
Print #1, Tab(10); "Hello" ' 将数据写在第十列。' 赋值 Boolean、Date、Null 及 Error 等。
Dim MyBool, MyDate, MyNull, MyError
MyBool = False: MyDate = #2/12/1969#: MyNull = Null
MyError = CVErr(32767)
' True、False、Null 及 Error 会根据系统的地区设置自动转换格式。
' 日期将以标准的短式日期的格式显示。
Print #1, MyBool; " is a Boolean value"
Print #1, MyDate; " is a date"
Print #1, MyNull; " is a null value"
Print #1, MyError; " is an error value"
Close #1以上代码写入的内容如下：
This is a testZone 1 Zone 2
Hello World
5 leading spaces
Hello
False is a Boolean value
1969-2-12 is a date
Null is a null value
Error 32767 is an error value13、Width # 语句
语法：Width #filenumber, width
width 必要。范围在 0–255 之间的数值表达式，在新的一行开始之前，指出在该行上可出现多少字符。如果 width 等于 0，则行的长度不受限制。width 的缺省值为 0。 功能：将一个输出行的宽度指定给用 Open 语句打开的文件。
示例：
Dim I
Open "f:\TESTFILE.txt" For Output As #1
Width #1, 5 ' 设置输出行宽为 5。
For I = 0 To 9 ' 循环 10 次。
Print #1, Chr(48 + I); ' 每行输出五个字符。
Next I
Close #1以上代码写入的内容如下：
01234
56789
四）处理二进制文件
打开二进制文件可以使用Open语句的Random和Binary方式打开。二进制文件读写使用Get和Put语句。
1、Put 语句
语法：Put [#]filenumber, [recnumber], varname
recnumber 可选。Variant (Long)。记录号（Random 方式的文件）或字节数（Binary 方式的文件），指明在此处开始写入。
说明：通常用 Get 将 Put 写入的文件数据读出来。
示例：
Dim num As Long, text As String
num = 12345
text = "a string"
Open "f:\data.bin" For Binary As #1 '打开或创建一个二进制文件
Put #1, , num '写入4个字节
Put #1, , text '写入8个字节（字符串长为8）
Close #1
2、Get 语句语法：Get [#]filenumber, [recnumber], varname
recnumber 可选。Variant (Long)。记录号（Random 方式的文件）或字节数（Binary 方式的文件），以表示在此处开始读出数据。
功能：将一个已打开的磁盘文件读入一个变量之中。
说明：通常用 Put 将 Get 读出的数据写入一个文件。
示例：读取以上代码写入的内容
Dim num As Long, text As String
Open "f:\data.bin" For Binary As #1
Get #1, , num
text = Space$(8) '准备8个字节的字符串
Get #1, , text '读入
Debug.Print num, text
Close #1在立即窗口可以看到如下内容：
12345 a string
3、Seek 语句语法：Seek [#]filenumber, position
其中position 为介于 1～ 2,147,483,647（相当于 2^31 – 1）之间的数字，指出下一个读写操作将要发生的位置。 功能：在 Open 语句打开的文件中，设置下一个读/写操作的位置。
说明：可以用Seek语句指定Get语句的读取位置，但在 Get 及 Put 语句中指定的记录号将覆盖由 Seek 语句指定的文件位置。
示例：
Dim MaxSize, NextChar, MyChar
Open "TESTFILE" For Input As #1
MaxSize = LOF(1) ' 取得文件的总字符数。
' 用循环读入所有记录，但是从最后的记录开始往前读。
For NextChar = MaxSize To 1 Step -1
Seek #1, NextChar ' 设置读写位置。
MyChar = Input(1, #1) ' 读入一字符。
Next NextChar
Close #1 4、Seek 函数
语法：Seek(filenumber)
功能：返回一个 Long，在 Open 语句打开的文件中指定当前的读/写位置。
说明：在使用Get语句读取文件时，必须用LOF函数来判断是否到达文件末尾，而不是用EOF函数。可以使用Seek函数判断当前位置，然后与LOF的值比较。
示例：
Do While Seek(1) < LOF(1)
'继续读取
......
Loop ]]> http://312441502.qzone.qq.com/blog/1251254099#comment 134218240 Wed, 26 Aug 2009 02:34:59 GMT http://312441502.qzone.qq.com/blog/1251254099 <![CDATA[[转]看看吧]]> http://312441502.qzone.qq.com/blog/1249658706 新东方董事长俞敏洪在同济大学的演讲
(2009/06/02)

其实人活着就挺好，至于生命有没有意义另当别论。活着每天都会有太阳升起来，每天都会看到太阳落下去。你就可以看到朝霞，看到晚霞，看到月亮升起和落下，看到满天的繁星，这就是活着的最美好的意义所在。

　　没想到同济大学的同学们把我如此“高大”的形象放在大屏幕上，这就是理想与现实的差距。所以我相信同学们看到我的第一眼一定感到非常的失望。实际上，每一个人都是非常普通的，我们很多时候会发现生命中非常重要的东西跟我们未来的幸福和成功其实没有太多的联系。比如，有人认为，相貌跟未来的成功会有很多 的联系；有人认为，自己的家庭背景会跟成功有必然的联；有人认为，上名牌大学的人会成功，在大学里成绩好的人比学习成绩差的人更加容易取得成功……所有这 些因素可能有部分是对的，但大部分基本无效，比如说相貌。

　　如果说一个人的相貌和成功有关，那就不会有马云和阿里巴巴，因为如果在座的同学认为马云长得好看，那一定是审美出了问题。

　　当然，这并不意味着相貌好看的人就做不成事情，比如说，另外一位大家比较熟悉的公司老总百度老总李彦宏。李彦宏非常英俊潇洒，他所有的照片看上去都像电影明星一样，但是他也取得了成功。所以不管相貌如何，都能取得成功，只不过李彦宏和马云坐在一起吃饭的时候，他们通常不太愿意坐在相邻的椅子上，因为两 个人的对照到了惨不忍睹的地步，解决的方法就是把我放到他们两个中间，起到一个过渡的作用。像我这样，相貌没有什么特点的人也能取得成功。所以不管是男是女，最重要的是自己内心世界的丰富，自己风度和气质的培养，自己胸怀的扩展以及对理想目标坚定不移的追求。随着年龄的增加，这些会慢慢变成你的智慧，所有这一切才是构成你成功的真正的本质。

　　那么成功和家庭背景有没有关系呢？我们常可以看到一些权贵富贾出身的人，他们一出生就含着金钥匙。比如，我们可能会看到，自己左边的一些同学穿着名牌服装，右边的拎着名牌的皮包，前面坐着市委书记的女儿，后面坐着中央领导的儿子，而你可能就一个来自普通工人家庭的大学生。

　　有的时候你会心存不满，但这个世界本来就充满着不公平，而很多不公平常常就在你的眼前闪现。你会说，这个世界怎么会对我这样，为什么他什么都有，而我什么都没有？我在大学里也有过这种很正常的心理。比如，我的同学有部长的儿子、有大学教授的女儿，而我却是一个农民的儿子。3次高考后才走进了北京大学，穿着布衣挑着扁担走进去的。你会发现你总赶不上他们的状态，倒不如说赶不上他们的脚步。你会发现即使他们停下来一辈子什么都不做，他们所拥有的东西都比你 多。

　　比如，在大学一年级的时候，班上那个部长的孩子每周五都有开着奔驰280的司机把他接回去。你想我们那个时候连自行车都买不起，他居然坐着奔驰280，那是一种什么样的感觉。你感到这辈子基本就完蛋了。但是同学们你们要记住一个真理，生命总是往前走的，我们要走一辈子。我们既不是只走过大学四年，或研究生，我们要走一辈子。可能走到80、90岁，虽然走到80、90岁时，人生到底怎么样你是不知道的，你惟一能做的就是要坚持走下去。所以我非常骄傲地从一个农民的儿子走到北大最后又走到了今天。我的心态很平衡，但其实我走了很远。当然，有的同学会说，你进了北大就已经很成功了。确实，北大增加了我很多成功的因素。比如，因为北大读书气氛很浓厚，所以我读了很多的书，思维变得很敏锐。

　　北大确实有人文的环境，蔡元培的铜像就树立在未名湖边上，但是每年进北大的有好几千人，出北大的也有几千人，能够成功的到底有多少呢？事实上，北大学生成功的比率并不比任何一个大学生成功比例高。

　　所有的成功意味着你大学毕业后要进一步付出努力，如果大学就意味成功的话，那么也就没有马云了。我跟马云有很多相同的地方，他高考考了3年，我也考了 3年，他考的是英语专业，我也考的是英语专业，第三年我去了北大，他去了杭州师范学院。我相信很多同学都没听说过这个学院，那我觉得我这辈子应该比他更加成功吧，但是非常不幸的是，从今天来看，阿里巴巴上市的市值就是新东方的3倍，而我除了做成一个新东方便什么都没了。不仅如此，他还有淘宝网、支付宝……

　　所以，你未来的成功和你上什么大学没有什么联系，只不过以后出国就业更加的容易一点。一辈子能不能走出精彩，大学为你奠定了基础，但不能决定你的一 生。到大学毕业人生也只过了四分之一，接下来的时间我们该怎么过呢？首先是一定要坚持走下去，因为你不活了就什么都没有了。不管你相信不相信来世，我始终相信今生今世就是我们最好的天堂。所以我最讨厌自杀或者以自杀为威胁，我觉得这是对生命不尊重。有种理念，叫做“好死不如赖活着”。因为从我40多年的人 生经验来体会，你在那坐久了，说不定天上真的会掉下馅饼来，当然也可能掉下块陨石。但不管怎样，不要自我了断，生命中会有很多奇迹发生。假如杨振宁教授不活到82岁，他怎么知道还能结第二次婚呢？

　　但是同学们，人生总是要有份期待，哪怕是没有希望的期待。同学们可以想一下我们历史上有很多人物，比如说姜太公在河边钓鱼，到了80岁那一年，周文王 在他边上走过，发现这个老头用直的鱼竿钓鱼，跟他一聊便发现这个老头很有智慧，所以把他带回去，两人一起打下了周朝的天下。齐白石同志在50岁的时候还在 做木工，根本不是个伟大的画家，他的所有伟大的作品都是在80岁到90岁的时候完成的。所以生命总有这样的现象，有的人在年轻的时候有作为，有的人中年时候有作为，有的人老年时候有作为。花儿总是在不同的季节开放，如果所有的鲜花都在春天开放完毕了，到了夏天、秋天、冬天没有任何的花儿开放你还会觉得这个自然界是如此的美丽动人吗？

　　所以大家想一想，如果人生所有的精彩都在大学里过完了，后面永远都是平淡，你觉得这人生会完美吗？换句话说，你大学里过的不那么精彩，毕业后却变得越来越精彩是不是更加好呢？事实证明，我们很多同学在大学里的成绩总是名列前茅，可是大学毕业后却怎么也做不出什么事情来了。因为在社会上，并不是成绩在起 作用。成绩只能证明你智商比别人高，但并不能决定你一辈子就一定有出息。
成功并不仅仅是你的成绩所决定的，最重要的是与社会打交道的能力，为人处世的能力。在各种混乱的人际关系中，寻找机会的能力，以及你最后领导一帮人跟你一起创事业的能力。而所有的这一切都不是由你的成绩决定的。当然我并不是说，在大学不要好好学，拿到大学毕业证书这是必然的，因为在未来我们会发现这样一个现象，假如，连大学本科文凭都拿不到的话，你的生命将充满艰难。

　　现在读过大学的人很多，有人说现在上大学没什么意思，因为找不到工作。确实到现在为止，今年应届毕业生找到工作的比例只有40%左右，但我相信这只是 一个临时现象，因为中国的产业结构还没有调整过来。从历史来看，中国大学生远远不多，因为中国从制造业正在转向咨询、信息、物流、服务等与世界沟通交流的行业，也就意味着在座的所有大学生都具备这样的工作能力，必然能找到工作。

　　一次有个大学生告诉我，俞老师我要创业，不上大学了。我说为什么，他说要向比尔·盖茨学习。我说世界上有几个比尔·盖茨，不就一个嘛，他说没关系，他 可以成为第二个。我说，那你为什么不上大学呢？他说，我考试不及格，上不下去了。这还是没法跟比尔·盖茨比的，人家是觉得自己的知识已经远远超过了老师， 觉得上大学已经是时间的浪费，要把自己的创造力及时的发挥出来，所以钻到自己的汽车库里研究微软去了。这是两种完全不一样的概念。

　　当然我刚刚强调的是你学习成绩好并不一定今后就做的好。有一份统计数据，将大学成绩前10名和后10名的同学做过一个调研，以20年一个阶段来说，大 学最后10名的同学财富总量以及获得的社会地位，居然比前10名还要高。这就意味着，即便在大学里最落后的同学也不要放弃自己。比如，我在北大努力了5 年，在毕业的时候就是以全班倒数第五名毕业的，但现在我们班的第一名到第五名全在新东方。所以，我们永远都不要放弃自己。

　　是不是我们人生走长了就必然会有成就呢？不是的，因为人生的走法有两种：第一种在平原上走，走到90岁，十分的平坦，但是你却看不到周边美丽的景色。因为平原两岸的风景都是一样的。所以，当回顾自己一生的时候发现一片空白。

　　我们的人生必须像连绵不绝的山脉一样，像青藏高原一样的度过。总是有无数的险峰在眼前需要我们去征服，而一旦我们登上险峰后，生命 中无限的风光就会展现出来，整个世界都尽收眼底。当然，攀登并不是一件容易的事情，你必须付出很多代价，但这种代价都是值得的。你爬到一座山头，如果要去另外一个山头，必须从底下开始重新攀爬，因为没有任何两个山头是连在一起的。

　　最精彩的人生是到老年的时候能够写出一部回忆录来，自己会因曾经经历过的生命而感动，会感动别人继续为生命的精彩而奋斗，这时候我才能说我的生命很充实。

　　很多同学家境富裕，要买手机、电脑，父母都会满足你，你在得到的一瞬间会感到很快乐，但因为容易得到，所以容易失去。因为容易，所以不会珍惜。而生命中最美好的就是珍惜得到的东西，珍惜的前提必定是因为你得来不易。

　　我10年前就碰到一个特别令人感动的故事：有一个大学生来找我，因为非常贫困，但想出国，想上新东方的GRE和TOEFL班，但是他没钱所以跟我说他 很想上新东方的课，但没钱，能不能暑假在新东方兼职做教室管理员，并且安排他到TOEFL和GRE的班，查完学生的听课证扫完地后就在后面听课，我说当然 可以。没想到这个学生又提了个要求，如果两个月的兼职真的做的很好的话，能否给他500元工资让他买个录音机，我说没有问题。结果那孩子做了两个月，所有 接触过他的人都说这孩子刻苦认真，所以到了两个月后，我给他一千块钱的工资让他买录音机。他买好后，边听着录音机边流着泪。我知道他被自己的行为感动了，以后肯定有大出息，果不其然几年后他被耶鲁大学以全额奖学金录取了，现在还在美国工作，年薪13万5千美元。所以说只有被自己感动的生命才会精彩。

　　其实我也有一些让自己感动的故事，比如说我高考落榜。当时想着一定要考进大学，但没想过进北大，所以就拼命读书。有的时候你会发现你低着头一直往前 走，目标就会在你的后面。所以当我拿到北大录取通知书的时候，真的是仰天大笑然后嚎啕大哭，跟范进中举一模一样。但如果当时没有坚持的话，也许我现在仍然只是一个农民的儿子。比如，当时我们村有个人跟我一样考了两年，他总分还比我高三分，当时我跟他说一起考第三年吧，但他的母亲说别考了，找个女人结婚算 了，但当时我跟我妈说你让我再考一年，结果第三年我真的考上了。所以我得出两个结论，1、人必须往前跑，不一定要跑的快，但是要跑的久；2、不能停下来，你不能三天打渔两天晒网，要持之以恒。

　　我走到今天没有一天懒惰过，我现在每天依然要工作近16个小时，从高考那天开始每天如此。但我发现，我还是比不过有些同事。从小学到高中，我学习也挺认真的，成绩总是在前10到20名之间，而在大学我学习更加认真，但最后却以全班倒数第五名毕业。龟兔赛跑的故事我们从小学就知道了，而生活中也经常体现出来。因为跑得快的人往往会停下来，而跑得慢的不能因为慢就不跑。只要跑，早晚会达到你所向往的终点。所以我们不要去计较大学时候谁的成绩高低，只要不停 的去追求就可以了。

　　有一次，一个朋友问我马和骆驼一辈子谁走的远吗？我觉得一定是马，他说您错了，骆驼走的路要远远比马多，因为马跑一会儿就会停下来，而骆驼一旦开始 走，如果不让它停，它是不会停的。所以，一个聪明的人一辈子所创造的成就不一定比一个笨的人所创造的多，因为笨的人每天都在创造，而聪明的人可能创造一段时间会停下，即便是爱迪生这种超级天才，小时候也被认为是个白痴。爱因斯坦九岁才会说话，还好他有个好妈妈一直认为他是个天才，才使他成为一个伟大的科学 家。所以当我的儿子到4岁时还不会说话，我老婆着急地带他到处求医时，我说，别看，4岁不会说话很正常的。我老婆说，为什么正常，我说，不会说话是语言功能发育不完全，不代表头脑就不发达。所以永远不要用你的现状去判断你的未来，只要你坚持就一定能获得你所意想不到的东西。

　　生命中有很多意想不到的事情，比如，我高考三年从来都没想到会考进北大，但成绩公布后我发现超出了北京大学录取分数线7分。我们当时是考后填志愿的， 当时我填好后还担心不一定被录取，结果北大还是录取了我。因为很多分数比我高的人没敢填写北京大学。之后我进入北大，由于成绩不好总在班级倒数，但我始终没有放弃学习。

　　后来我班级里很多同学都联系出国，我看了羡慕，想要追赶他们的步伐，所以也开始联系出国。整整4年，联系了无数的美国大学和专业，没有一个美国大学给我奖学金。尽管拿到了几张录取通知书，但去美国大使馆签证，每次都拒签。当然，现在我的签证除了伊拉克的没有，其他国家几乎都有了。现在美国给我的签证是 10年多次往返商务签证。因为新东方是在美国上市的，他必须允许我任何一天随时随地都能进入美国。所以当我儿时的朋友到现在还在面向黄河，这辈子还没有走出过我们镇的时候，我已经走遍了世界各地。大家想，在徐霞客、苏轼那个没有任何交通工具的时代，都能游遍山水，写下许多让我们感动和动人的文字，而在我们 这个科技兴盛的时代，如果没有在世界上留下一些的文字和足迹，你怎么对得起自己。

　　有的同学说，俞老师因为你现在有钱了所以可以这么做。坦率的说，以前我没钱我也会这样做。因为小时候我最崇拜的人物就是徐霞客，因为他是我的老乡，住在我家隔壁。只不过他是400年前住在我家隔壁，要知道地方上的名人对地方上少年的影响是非常巨大的。有次，我坐在长江边上看日出日落，我就在想徐霞客怎么能走那么远呢？所以也会向往这辈子我是否能跟他走的一样远。

　　正是因为有这样一个榜样在，我才会发现高考一次、两次我都不绝望，因为我知道走出农村边界的惟一办法就是考上大学。我想把农村户口变成城市户口，因为当时城市户口是可以到处走的。尽管我平时很平和，但心中总是有一种愿望，叫做穿越地平线走向远方的渴望，就是看到眼前的地平线我总是不满足的，我总是希望翻开地平线看看另一边到底是什么样的。

　　大家都知道，只要你不断的超越地平线一定会有很多的风景在你眼前展示出来。这跟你有没有钱没关系。而我曾怀揣100元人民币，走到了泰山，走到了黄山，走到了九华山，走到了庐山。我一边走一边帮人家干活，走到九华山发现没钱了，就睡到一个农民家里。那个农民在江边给我弄了个床，还找我要钱，而我口袋 里只有5块钱。于是，我就说帮他一起插秧来抵消住宿费。他左看右看说，大学生怎么会插秧呢？结果插了一天我插了四分之三，而他只插了四分之一，把他感动的半死不活。他说，你怎么会插的那么快呢？我说，我14岁那年就获得过我们县的插秧冠军。然后，他晚上杀了一只鸡要我一起喝酒。他越聊越觉得我不像大学生更像农民。第二天我走的时候，他居然掏了10块钱给我说，我知道你口袋里没钱了，明天还要去庐山，这点钱就给你当路费。


生命是有各种活法的，但是哪怕你坐到书斋中间，一辈子也要让自己的生命变的伟大。陈景润一辈子没出过书斋，不也是世界上最伟大的数学家？所以不管在什么状态下也要像一首诗写的那样“相信未来，热爱生命”。所以只有当我们的生命有了期待以后，才会有进步。有的时候，我们选择前进，不是因为我们有多么坚强。有这么一句话让我很感动，也变成了我的座右铭：“坚持下去不是因为我很坚强，而是因为我别无选择。 ”新东方有一个运动，叫做徒步50公里。任何一个新东方新入职的老师和员工都必须徒步50公里，而未来的每一年也都要徒步50公里。很多人从来没走过那么 远的路，一般走到10公里就走不动了，尤其是要爬山涉水地走。每次我都会带着新东方员工走，走到一半的时候会有人想退缩，我说不行，你可以不走，但是把辞职报告先递上来。当走到25公里的时候你只有3个选择，第一，继续往前走；第二，往后退；但当你走到一半的时候，你往后退也是25公里，还不如坚持往前走 呢；第三，站在原地不动。而在人生旅途中停止不前还有什么希望呢？

　　我们人生有很多迷茫和痛苦，而只要你坚持往前走，痛苦往往会解决掉。在走的过程中，我也痛苦得流过泪，也曾经痛苦得嚎啕大哭过，但我知道真的坚持下去不是因为你坚强而是因为你别无选择。走到最后你会发现总会有成果。我没想到新东方能从培训13个学生，现在变成培训175万学生、其实所有这一切你都不一定要去想，只要坚持往前走就行了。

　　我们生命中总要去追寻一种经历，有的时候我们觉得人连条鱼都不如，因为我在加拿大的时候，我看过加拿大三文鱼回流，每次它回流产卵的时候，我总会发现生命及其壮观，鱼卵产在沙子里会被其他动物吃掉很多。第二年春天的时候剩下的鱼卵会变成小鱼，小鱼会顺流而下，流到湖里，而在湖里又会被其他鱼类吃掉一 些。一年后，长大的鱼会顺着大河奔入海洋，然后绕太平洋一周，每四年一个循环。如果三文鱼就在海洋中待着不回到湖里产卵，它就不会死，但它是受到内心的召唤集中在河口开始往前游，一旦游进河的时候就再也不吃任何东西拼命地往前游，然后游到目的地开始配对产卵，产好后就双双死亡。你会看到成千上万的红色死鱼 漂在河上，而老鹰和黑熊就在边上等着。

　　我看了后特别感动，一条小小的三文鱼也知道，生的使命是不能放弃。那我们人生的使命呢，比如父母为我们献出了青春财富，把你养育成人。而我们未来变成父母后也是一样。我们孩子的成长就是你的使命，而我们其他的使命感，如何让自己活得更加幸福，如何帮助别人，让这个社会变得更加有意义。为什么宗教人士会 活得相对简单，因为他们灌输了一种使命感。而连一条鱼都经历了小溪流、湖泊、大海，他尝到了淡水的清香和海水的苦涩，完成了生命的周期。如果我们这一辈子都没有苦涩，没有幸福和甜美，那生命是很遗憾的。

而你现在的状况并不决定于你的未来，我在北大的时候受到的打击比较多，首先是身份上的悬殊，确实我是穿着大补丁走进校园的，我们体育老师上课从来不叫我的名字的，都是叫那个大补丁来做个动作。因为我在农村锻炼过，跳跃性动作做得蛮好看，所以我常常被叫出来做演示。

　　开学第一天晚上，全班开班会，我起来讲了一句话。现在新东方的王强老师是我们班级的班长，站起来跟我说你能不能不讲日语。因为我一直在农村上学，所以我们的语文老师从来没用普通话给我们上过课，我当时根本不知道普通话该怎么说。北大当时按照英语成绩分班，我当时因为高考英语考得蛮好所以被分到了A班， 其实我的听说水平并不好，所以到了A班一个月以后就被贬到了C班，而C班主要是针对那些语音语调及听力障碍的同学。等后来，我发现我和同学的智商真的有差距，我的那些同学平时看他们学习也并不怎么认真怎么一到期末考试就能考出好成绩，我每天学习时间都要比他们多两三个小时，但每次期末考试都在全班倒数几 名。这让我的心情非常郁闷。

　　当时，我们班50个同学，25个男生25个女生。一开始我听完这个数字就特别兴奋，但是没想到我们班的女生没一个正眼瞧我一眼的。到了2001年的时 候我们全班同学聚会，大家从世界各地赶回来。蓦然回首，大家突然发现班上那个挺没出息的，普通话也讲不好的，默默无闻的那个人怎么就成了全班最出色的了。这个时候女同学们都热情的走上来握住我的手，后悔当初没下手。

　　所以后来大学女生问我，俞老师我们现在找男朋友要什么标准，我说很简单，参考我的长相。当然如果长得像我，那是绝对不能放过的。凡是长得比我难看的也不要放过，因为这个世界上的规律就是，越难看的人内涵越丰富。

　　大三的时候我最喜欢读的是《红楼梦》，而且刚好读到林黛玉咳嗽而死的那一章。结果发现自己也在吐血。到医院，医生一查说得了肺结核立刻关起来，一关就是一年。我跟医生说像我这样的小伙子怎么会得肺结核呢？医生让我讲讲现状。我说，您看我学习特别刻苦，可成绩就是上不去，班里没有一个女孩子喜欢我。他 说，这种情况不得肺结核是完全不可能的。

　　但这个病也给我带来了心态上的调整，因为我在大学一二年级，想要追赶我的同学就是我的精神支柱。但是到了三年级，病了一年后我完全改变了，我觉得活着就挺好。然后我就给自己订了一个最低标准，至少保证大学毕业拿到毕业证书，最后国家给我分配一份工作就挺好。虽然我并没有放弃努力，结果反而获得一个更加 开阔的心胸。所以，到现在为止我学会了永远不要去比，因为总有比你更加优秀的，也总有比你更加落后的。

　　这个世界上最正确的是跟自己比，想一想今天是不是比昨天进步了一点，想一想明年是不是比今年更加好一点。想一想，10年以后的你是不是比今年的你要更加出色。这样的心态一直保持到我大学毕业。

　　大学毕业的时候，每个人都要上去讲一段话，比如后半辈子怎么过，我就上去讲了这么一段话：我说，同学们大家都很厉害，我追了大家5年没追上，但是请大家记住了，以后扮演一个骆驼的同学肯定不会放弃自己，你们5年干成的事情我干10年，你们10年干成的事情我干20年，你们20年干成的事情我干40年，实在不行我会保持心情愉快身体健康，到了80岁后把你们一个个送走了我再走。这是我个人保持到现在的人生态度，而我认为这种人生态度对我来说非常有效。

　　有人问我，如果新东方没了怎么办？其实新东方早晚会没的，因为它已经是一个商业化运作的教育机构。大家想一想，前些天我们看到的一个消息，通用公司是美国的标志，不照样濒临破产了吗？新东方可能以后也会这样，变成历史的痕迹。但是我想，即使新东方没有了我依然很成功，因为我的心态很成功。我追求生命的那种向往和穿越地平线的渴望不会改变。我认为，新东方给我的是一种精神，一种力量，而不是新东方本身给我带来多少钱，当然如果新东方给我更多的钱，我也愿意要，不要钱才是傻瓜呢。但更重要的 是，有了钱能否做出一些更加有意义的事情来。比如说我现在一直都想做一个小小的私立大学，可能我无法做到像同济大学那么大，但做到它的十分之一总是可以的吧？我在北京已经买了一块地，正在建大学校区，造完后它就跟新东方的上市公司脱钩了，变成一个非营利性的大学校园，那它可能就变成了你做的另外一件事情。

　　如何把自己的生命变的更充实是最重要的事情，所以说，哪天新东方不存在了是非常正常的。如果新东方没了，我照样会过来跟大家做讲座，而且心情会更加的开朗。因为没有繁琐的事情了。我只要换个题目就行了今天叫“度过有意义的生命”，下次我改成“我是如何把新东方做没了的”。

　　而在大学中，我们要做的几件事情就是：第一，把自己的知识结构打造完整；第二，就是要在大学里尽可能的多交朋友，因为你终身的朋友、合作者一定来自于你的大学；第三，如果有可能的话，在大学里谈一场比较专一的恋爱，因为回顾我北大的生活一片灰色。我想为什么会是灰色呢？其实，不是因为成绩不好，而是因为在大学5年我从来没有过花前月下的时光。所以一直成了我大学时代的遗憾。去年北京大学让我给所有北大新生做开学典礼的时候，我给他们强调一句，什么都不重要，重要的是谈恋爱，而且谈恋爱也不用害怕失败，因为自杀也自杀不 了，未名湖就那么浅，跳下去还能爬起来；第四，就是为未来的工作做好打算。未来的工作跟你有多少朋友、跟你的专业知识学的多少是相关的。好好掌握你的专业，再差的专业也一定有人用，只要你学的好。

　　我有一个朋友学的是越南语，越南语的确很少用，但所有的中央领导去越南都要找他，因为他是一流的越南语同声翻译专家。我还有一个大学同学研究蒋介石，研究了10年，穷困潦倒。但后来他去美国做了一个报告，美国方面帮他召开了一个中国现代史人物研讨会，他在报告上讲了自己的研究经过，结果下面一个老教授热泪盈眶。下来后一问，这个老教授也在美国研究了30年蒋介石，孤苦伶仃，就是找不到另一个研究蒋介石的，没想到有个“傻瓜”也在研究蒋介石。于是5万美元一年，让我同学跟着他在美国读研究生，然后读了四年的博士生。读完以后老头退休，他就变成了那个学校的教授。我去看他的时候，他已经在纽约买了套小房 子，买了辆车娶了个老婆养了条狗。当时他跟我说，俞敏洪你看现在这一切都是蒋介石“给”我的。
我想用这个例子来说明什么呢？就是研究什么不重要，重要的是只要你真的喜欢就去做，然后就会有人用你。反过来，如果你觉得这个专业你不太喜欢，但很适合我找工作，这要不要学？当然要学。我就是这样一个状态，我从来没喜欢过英语，当初考英语只是因为数学不行。不喜欢英语是因为我的模仿能力不强。像我的班长王强，能够把任何话都模仿的惟妙惟肖。我普通话练了一 年，才练成大家能听懂的样子。我老婆是天津人，跟我一吵架就用天津话骂我，但是我到现在为止只会说一句天津话。就是当她拿起棍子打我的时候，我向她大吼一声，“干嘛”（天津话）。

　　但是后来我发现英语成了我生命中的工具，因为英语，我在北大当了老师。其实当初留北大并不是成绩好，而是当时正好四六级考试，北大各个系的同学都要学两年英语，结果北大急缺老师。而一些优秀的毕业生都去了外交部、经贸部，工资又高。后来我们系主任急了说，最后5名给我留下来。留下来的5个人现在都变成 博士生导师了，可见现在北大教育质量如何。当然这是句玩笑话，他们后来也经过自己的努力，经历了很多次考试成了很优秀的教师。

　　在登山的时候，你会在乎登山杖你喜欢不喜欢吗？不会，你只会在乎能否帮你登上山顶。那么英语就是我的登山杖，尽管我不是特别的喜欢，但我知道我要想攀上更高的人生的山峰就必须需要这个登山杖。我本来想把自己变成中国英语专家前100位的，后来发现一点戏都没有，因为中国留学生归来的越来越多了，有的在国外待了10年、20年，回来了怎么看英语水 平都比我高。那我只能缩小范围，想变成英语语法专家。后来发现背单词不用动脑筋，所以就开始拼命地背单词，结果变成了中国还算不错的词汇专家。

　　除了学专业外，同学们要在大学里多读书。新东方人读书都非常多。读书多，就意味着眼界更加的开阔，更加会思考问题，更具有创新精神。新东方流传一句话叫做“底蕴的厚度决定事业的高度”。底蕴的厚度主要来自于两方面，第一多读书，读了大量的书你的知识结构自然就会完整，就会产生智慧；第二就是多人生经历。把人生经历的智慧和读书的智慧结合起来就会变成真正的大智慧，就会变成你未来创造事业的无穷无尽的源泉和工具。

　　比如，新东方招聘重要岗位的人才都是我面试。我只有几个问题，第一你大学读了多少本书，如果你说只读了几十本书，那肯定我不会要你。我心中的最低标准是200本书，而我在大学里读了800本书。新东方还有更红火的王强老师，在大学里读了1200本书，平均每天一本。有的人会问我，读过了忘了跟没读过有 什么区别呢？其实完全不一样。就像你谈恋爱，一个谈过恋爱后又变成光棍汉的人和一个光棍汉相比是有自信的。因为当他看到别人在谈恋爱的时候，他会在旁边“ 嘿嘿，想当初老子也是谈过恋爱的嘛”。实在不行来不及读，你可以到书店看着那些书，记着那些名字用手摸一下，这样也能增加一点人文气质。

　　我有一个理念，人活着要过一种诗意的生活，我们有多少时候是停下来看看月亮的，在假期去内蒙看一下漫天的繁星的，有多少同学看着朝霞和晚霞时心中感受过生命的涌动的。当然也要身体力行。大学时候，有一个非常著名的诗人叫海子，写了著名的诗句“面朝大海，春暖花开”，但非常可惜的是他没能抵抗现实社会的 压力，卧轨自杀了。所以我们说一个人不能只在语言上表达诗意，还要在现实中去表达诗意。所以你必须克服现实中的障碍和挫折。有首诗叫“大漠孤烟直，长河落 日圆”。我对“长河落日圆”有非常深刻的感觉，但对“大漠孤烟直”却没有什么概念。所以，进入北大校门之后第一件事情就是走向沙漠，走向戈壁滩，走向大草原。而到今天为止，这些地方成了我的精神家园。如果生命中一有过不去的事情，我就去蒙古草原上跟牧民一起骑马。牧民曾经说过，在汉人当中从来没看到像你那样不要命的。

　　回过来讲诗意的生活，在大学里打游戏上MSN不叫诗意的生活，而在一张床上拿着书一边看书然后慢慢地睡着那就是一种诗意。要关注时事政治，要把握一些世界大事。这种能力将在你日后创业的过程中起到很大的作用。另外就是要尽可能地多交朋友，交朋友首先你要做个好人，你要做一个让人放心的人。在中国企业界 就是这样的状态，如果你是个好心的人，在困难的时候一定会有人帮助。比如，蒙牛的牛根生大家都听说过，他为人处世很实在。所以蒙牛出事后，他需要资金，只需要打个电话我们就会把钱汇过去。而为什么连合同都不签我们就给他，道理很简单，信任。

　　我也碰到过这样的情况，03年的时候遇到SARS，我们马上给学生退学费，新东方的流动资金一下子退光了。而当时我算下来，账上还缺2000万。于是我分别给两个朋友打了电话，一人一千万当天晚上就搞定了。所以，你变成一个让别人相信的人，比做一个让别人防着你的人，得到的好处要多得多。而建立这种信任，要做到以下几个要素：要以别人为中心不要以自己为中心；要有服务精神。

　　当时我那些大学同学觉得我没出息，但为什么会回来跟我创业呢？这跟我大学里的行为有关。我大学里是个学习不好但挺喜欢帮别人的人。我们宿舍当时从来不排值日生，因为地全是我扫的。还有就是宿舍的水也基本都是我打，而他们之所以后来放弃国外优秀的条件来和我一起创业还是跟我当时宿舍打水有关系。若干年 后，我去找那些大学同学回来，他们说连你那么没出息的人在中国都赚钱了那我们回来还了得？第二 ]]> http://312441502.qzone.qq.com/blog/1249658706#comment 134218264 Fri, 07 Aug 2009 15:25:06 GMT http://312441502.qzone.qq.com/blog/1249658706 <![CDATA[牛人能做到的事我也做到了....]]> http://312441502.qzone.qq.com/blog/1249389559 parischen (你在干吗？), 信区: Joke
标 题: 牛人胡适~~
发信站: 逸仙时空 Yat-sen Channel (Tue Aug 4 11:04:19 2009), 站内信件


　在《胡适留学日记》里有这样的记载：
　　
　　...
　　
　　7月4日
　　
　　新开这本日记，也为了督促自己下个学期多下些苦功。先要读完手边的莎士比亚
的《亨利八世》...
　　
　　…
　　
　　7月13日
　　
　　打牌。
　　
　　7月14日
　　
　　打牌。
　　
　　7月15日
　　
　　打牌。
　　
　　7月16日
　　
　　胡适之啊胡适之！你怎么能如此堕落！先前订下的学习计划你都忘了吗？
　　子曰：“吾日三省吾身。”...不能再这样下去了！
　　
　　7月17日
　　
　　打牌。
　　
　　7月18日
　　
　　打牌。


]]> http://312441502.qzone.qq.com/blog/1249389559#comment 134218240 Tue, 04 Aug 2009 12:39:19 GMT http://312441502.qzone.qq.com/blog/1249389559 <![CDATA[[转]广州大学城－美丽留影]]> http://312441502.qzone.qq.com/blog/1240196896 生活不缺少美，而是缺少发现美！


某山坡上


珠江边



外环的那座山，茂密的竹林，
进去之后，发现路都是被叶子淹没了




广州大学的水地相连

广工大一角





大学城博物馆











中心湖是大学城一个很美丽的地方！







如果没有记错的话，这是中心湖那个用来做铁人三项赛的小码头

大学城的夜晚……
以下是各个大学的靓丽建筑！





















------------------------------------------
本文转载自：世浩： 广州大学城—让我告诉你她有多美
用QQ邮箱阅读空间订阅世浩
什么是阅读空间? ]]> http://312441502.qzone.qq.com/blog/1240196896#comment 135266313 Mon, 20 Apr 2009 03:08:16 GMT http://312441502.qzone.qq.com/blog/1240196896 <![CDATA[行动目标希特勒观后感]]> http://312441502.qzone.qq.com/blog/1237744949 2.德国制服很有型
3.人心是最难统一
4.政治都是黑暗的
5.万一失败很严重
6.野心需要代价的
7.所围绕的是利益
8.还真是成王败寇
...
冗长的电影于缓慢的节奏下在梁球踞堂中显得很拖沓,甚至略显沉闷.大概叙述的是二战末期一群德国的反叛童鞋对希特勒的几次暗杀行动.在最后一次暗杀行动后展开的政变最后遭遇失败,而所参与的童鞋们全被处死的故事.相比于远东战场上,特别是中国土地上的苦难,欧洲战场上的故事略显遥远,并不觉得叛变的童鞋有多高尚,只不过是利益的不同表达.无可否认,德国是个伟大的国家--严谨,严谨,严谨.依然无可否认的是,希特勒也果然是个狂人.只不过历史总是由胜利者所书写...场内的零星铃声依然,就此略去...
几十年的时光一晃而过,更何况不到两个小时的短短的影片.就这样结束掉了第一次梁球踞堂的电影经历.
at last.感谢莔莔的dinner和百忙中抽空过来探望我.

电影院屏幕

座位

我咯~

呵呵,肥莔~...不要打我...

我和莔莔

]]> http://312441502.qzone.qq.com/blog/1237744949#comment 134218241 Sun, 22 Mar 2009 18:02:29 GMT http://312441502.qzone.qq.com/blog/1237744949 <![CDATA[[转]如何在校外下载期刊全文--应对大家工作后的资料搜寻（转）]]> http://312441502.qzone.qq.com/blog/1227629782
[转]如何在校外下载期刊全文--应对大家工作后的资料搜寻（转）
如何在校外下载期刊全文--应对大家工作后的资料搜寻（转自肥龙的）

马上就要工作了，觉得学校里面图书馆资料很多，并且很有用，都可以在中文CNKI数据库，和西文数据库荷兰DOS中全文下载，但是仅仅限于校内IP用户。到了工作单位上，想进入这些数据库查资料就很不容易了。。。并且要收很高昂的费用。。。离开了学校才知道学校里面这么好的电子图书馆的资源当时没有好好利用。
所以在网上找到了在家里和单位都能下载全文的地方。


下面是几年来收集整理的全文下载地址和心得，都是网友的无私奉献和结晶，我把分散的信息总结出来，希望对大家有用，有些地址和进入方式可能过期了，我没有一一核对，希望多多理解和包涵。

全文期刊： EBSCO/UMI/SDOS三个数据库扫荡一下，这三本都有全文。


硕博论文全文下载
http://202.120.13.45/umi/index.htm ,这是英文的博士论文。


中国期刊网是中文学位论文
图书馆全文无法下载，需要用户卡
图书馆全文下载数据库 PQDD
www.edu.cnki.net
Proquest数据库

cnki硕博论文全文 http://lib.hutc.zj.cn/cdmd.html
学校图书馆的清华中国学术期刊网上没法下载硕博士论文。可以通过中国期刊网在 上海交大图书馆的镜像登陆。
网址：http://cnki.lib.sjtu.edu.cn
账号：syshjd 密码：shjd
右边数据库列表中选择第二项：中国优秀博硕士学位论文全文数据库（CDMD）
第一项中国期刊全文数据库（CJFD）可以在我们学校的期刊网联接中进入。
cnki: syshjd,shjd没有此帐号
图书馆提供：cdmd,cdmd过期

图书馆下载毕业论文全文摘要
http://cnki.lib.sjtu.edu.cn/

202.120.13.45/umi/index.hlm
中国学术期刊全文数据库密码要小写，从东大镜像点上， http://www.nj.cnki.net 用户/密码：
NJ0080/njdxts


中国学位论文全文
http://202.199.155.201:85/

http://www.sh.cnki.net/帐号和密码都是syzjdx


全文论文网
http://www.nstl.gov.cn/index.html
http://www.thesis4u.com/index.asp


John Wiley出版社电子期刊可否下载全文 ？
可以，用10.10.2.51，2.52都可以的，或上动态
http://www.interscience.wiley.com


一个可以浏览论文全文的地方
1、166.111.34.136断口45576
清华的sock5代理 用sockscap代理ie出去，访问下面的网址 http://www.cdmd.cnki.net/
然后输入用户名和口令（都是thlib） 这个是中国优秀博士硕士学位论文库 包括理科工科农业文学，政治，经济教育等多方面文章 可以在线浏览，也可以打印（还可以虚拟打印成pdf格式保存到硬盘上）动作要快哦，代理不晓得什么时候失效

2. cnki硕博论文全文 http://lib.hutc.zj.cn/cdmd.html

3.mit的硕博论文，可浏览全文 http://www.theses.mit.edu 年代约从1940S-至今 为单页图象格式，需一页一页下载，虽然费点时间，不过很清晰，同时论文质量也高，何乐而不为？
前一段时间MIT网站被封，最近刚开放！ 据说用flashget可以批量下载这些图片，没有尝试成功

外文全文站点 1、Annual Reviewshttp://www.anualreviews.org 该数据库收录各学科的综述性文章按SCI影响因子极高。
2、BiomedNethttp://www.bmn.com 即BMN 世界上著名医学、生命科学数据库。
3、Blackwell-synhttp://www.blackwell-synergy.com/
该数据库包括Plant J. Plant Molecular Biotechnology等

影响因子较高的期刊
4、Carctwordhttp://www.catchword.com/ 一个综合性数据库
5、EBSCOhttp://search.epnet.com EBSCO公司是专门经营纸本期刊、电子期刊发行和电子文献数据库出版发行业务的集团公 司。其数据库是一个大型综合数据库，其中的学术研究精粹数据库（Academic Search Elit）包括生物科学、工商经济、咨询科技、通讯传播、工程、教育、艺术、医药学等 领域的1,700余种全文期刊，该数据库每天更新。Academic Search Premier 包括3，40 0余种科技期刊。
6、ECOhttp://www.cnpeak.com.cn/oclcpsp/oclclogin.jsp 即OCLC或First Search也是一个综合性较强的数据库，大部分文章都有全文。
7、Highwirehttp://highwire.stanford.edu 世界上第二大免费数据库（最大的免费数据库没有生物学、农业方面的文献），该网站 提供部分文献的免费检索，和所用文献的超级链接，免费文献在左边标有FREE.
8、Idealibraryhttp://www.idealibrary.com 世界著名全文数据库，与Elsvier 等出版社有合作,今年年底将于SCIENCEDIRECT合并
9、Ingenta/Uncoverhttp://www.ingenta.com Ingenta.com是Ingenta公司的一个主要产品，是一个全球性学术研究的大型网关。它致 力于学术研究性文章的网上检索和传递，目前收集有25，000种出版物的摘要和4，500种 出版物全文。140个出版商在Ingenta.com上提供了他们的文章全文。
10、Kluwerhttp://www.kluweronline.com 荷兰Kluwer Academic Publisher是具有国际性声誉的学术出版商，它出版的图书、期刊 一向品质较高，备受专家和学者的信赖和赞誉。Kluwer Online是Kluwer出版的750余种 期刊的网络版，专门基于互联网提供Kluwer电子期刊的查询、阅览服务。
OVID Kluwerhttp://www.cdrompro.com.br/kluwer 北京大学镜像站点http://kluwer.calis.edu.cn/
11、Lexis-nexishttp://www.lexisnexis.com/universe
12、Nature Presshttp://www.nature.com
13、OVIDhttp://gateway.ovid.com 综合性数据库有medline等
14、Oxford Referencehttp://www.oxfordreference.
15、Oxford Presshttp://www.oup.co牛津大学出版社出版的150多种期刊
16、Sciencedirecthttp://www.sciencedirect.com Sciencedirect 是由荷兰Elsevier Science建立的全文检索数据库，包括原来的Ideali brary在内的期刊总计1500多种。
17、Springer 德国站http://link.springer.de/ 德国著名出版社Springer提供的数据库，包括该出版社出版的430余种期刊的全文。
18、UMIhttp://global.umi.com/pqdweb 商业数据库

有关生命科学的出版物－原文丁香园 1、美国科学杂志中文版http://www.china.sciencemag.org
2、遗传http://www.ycjournal.com
3、Cellhttp://www.cell.com/
4、Crop Sciencehttp://crop.scijournals.org/
5、Developmental Biologyhttp://www.ijdb.ehu.es
6、EMBOhttp://emboj.oupjournals.org/
7、Genes and Developmenthttp://www.genesdev.org
8、JBC（著名生化http://www.jbc.org ）
10、Journal of Molecular Biologyhttp://journals.bmn.com/journals/list/lates t?jcode=jmb
11、Naturehttp://www.nature.com
12、Nucleic Acids Researchhttp://nar.oupjournals.org/
13、Plant Cellhttp://www.plantcell
14、Plant Physiologyhttp://www.plantphysiol.org
15、Science Magazinehttp://www.sciencemag.org/

关于外文期刊全文的获得 1，一部分外文期刊提供全文服务 www.freemedicaljournals.com
2，通过国外代理，一般国外大学的代理可以获得一部分外文期刊的全文
3，将刊物的名字＋username+password进行搜索,相关技巧可以在丁香园和生命论坛找到。
4，在bbs.bioon.com的高级会友区，提供了一些常见的用户名和密码。
5，有一些期刊需要注册获得密码，但是文章free。

文献检索 简单来说，方法是专业医学搜索引擎或者数据库搜索，取定确切的文章名称和刊物详细资料免费全文数据库下载或者交费下载 本地图书馆查阅复印或者光盘检索打印，局域网搜索下载 向作者索取。 详细来说：
1，搜索引擎是非常重要的途径，一般的非专业英文搜索引擎包括Yahoo，AltaVista，We bcrawler，Lycos，Inforseek，Goole等。其中在搜索中，注意其中AltaVista和Lycos的Advanced Search可以选择搜索的匹配程度。
Yahoo和Alta Vista（Advanced）可以限定查询时间。在搜索中注意运用通配符（＃，或者＊，不同的搜索引擎不太一样，需要在FAQ中或者Help中查询）。
此外，所有的搜索引擎都内嵌布尔操作器也就是逻辑操作器，可以在关键词之间使用And或者OR等，其中Alta Vista可以使用Near（邻近）的逻辑词。Lycos不支持符号和数字检索。
www.searchenginewatch.com 是一个动态跟踪搜索引擎的站点，如果觉得上面的不够用，可以访问该站点。
inforseek http://www.infoseek.com 显示的结果按照匹配程度排成列表
yahoo http://www.yahoo.com Alta Vista http://www.altavista.digital.com 拥有最大的搜索引擎

数据库 Excite http://www.,excite.com Lycos htto://www.lycos.com 搜索到的站点均为经过专家挑选过的优秀节点webcrawler http://www.webcrawler.com Google http://www.google.com 这么好的搜索引擎，我就不说了，看FAQ和HELP吧 中文的搜索引擎我就不说了。。。
搜索的时候，应该注意
1、晓得搜索的引擎数据库的特点
2、注意阅读引擎的FAQ和HELP文档
3、使用适当的句法或者操作器，也就是And/or之类的东东
4、准确拼写，不要用美式拼写在英国的搜索引擎上搜索
5、尽量检索不常用的词，或使用准确的短语
6、试一试同义词搜索
7、多个搜索引擎共同使用
一些医学专业搜索引擎： Achoo http://www.achoo.com 分为human health and disease,business of health,organizations and sourse三个部分，注意如果进行目录下搜索，有可能部分有交叉。
Medsite http://www.medsite.com Omni http://omni.ac.uk Medical
Matrix http://www.medmatrix.org/index.asp
一些其他的专科搜索引擎：
心脏科：http://www.cardioguide.com
牙科：http://www.dentalgate.com
皮肤科：http://www.dermguide.com
眼科：http://ophthoguide.com
脑科：http://neuroguide.com
泌尿科：http://www.uroguide.com
2、网络医药文献数据库的检索 现在网上的数据库大多提供免费检索或者使用邮箱进行注册然后使用。其中以Medlin最为著名。Medline就是Medlars Online（Medical Literature Analyusis Retrieval System ONline）。
免费的Medline节点包括
pubmed http://www.ncbi.nlm.nih.gov/pubmed/ internet Grateful
Med http://igm.nlm.nih.gov Healthgate http://www.healthgate.com infotrieve
http://www.infotrieve.com 以上均不需要注册。
Pubmed包括了70多个国家的4600多种生物医学期刊，时间起自1966年。是最主要的网上医学文献检索数据库。
它可以提供词语（关键词）检索，作者检索，刊名检索等等，详细可以参看相应的Help文档。
Nlm Gateway系统 http://gateway.nlm.nih.gov/gw/cmd是美国过李医学图书馆的多种信息系统和数据库的综合性网络检索系统，可同时或者分别检索Medline／Oldmedline，Locatorplus，Medlineplus，Dirlin，Aids Meetings,HSR Proj系统和数据库。
Toxnet http://toxnet.nlm.nih.gov是美国国立图书馆的一组数据库的总称，包括毒理学和有害化学物质及其相关领域的信息。
3，免费的医学期刊资源
Highwire Press http://www.highwire.org 免费期刊文献网站是美国斯坦福大学所属的HighWire出版社建立的，主要收集生命科学，医学以及物理科学和少量社会科学的出版物及网络出版物。提供333HighWire期刊的免费全文以及4500种Medline期刊上的免费全文。相关检索方法可以参看网站Help文档。
FreemedicalJournals http://www.freemedicaljournals.com 收录了970种英文和非英文生物医学全文期刊。
一般搜索到相应的文献，获知确切的刊物名称期号和页数或者通过网上连接，通过上述的免费全文数据库可以直接从网络上获得PDF文档格式的全文。
4、图书馆资源（一定要重视图书馆资源） 一般本地图书馆（大学或者研究所）提供局域网的全文检索和下载，例如清华全文数据库，荷兰Elsevier Science （1299种刊物，在清华大学和上海交大有镜像服务器）美国UMI 荷兰Swets Net 美国Ebsco Online（5500中电子刊物）ProQuest（涵盖200中医学刊物） OCLC ECO PSP 等全文期刊，部分可以直接通过局域网获得，部分需要到图书馆进行光盘检索打印获得。 其中清华全文数据库是中文刊物较全的文献数据库。 一般图书馆均提供局域网内的搜索和全文下载。 需要注意的是，局域网文献检索一般图书馆会检测IP地址，同时有可能需要向图书馆申请用户名和密码。


文献全文免费下载心得 目前较好的数据库多采用IP限制，在大学IP地址范围内，都可无密码登陆。因此找到有用的代理是长期使用的关键，而且有一些数据库，如ScienceDirect和Idealibrary，网上没有可用的密码。其实说白了就是找一个已花钱买了期刊电子版的学校开设的免费代理，然后你用这个代理当然就能下载该期刊的全文了！只不过这种代理不多，而且不太好找，倒不是搜索方法有什么诀窍，而是要肯花很多时间去验证，最土的办法无非就是到网上找一个巨大的proxylist（这类网址很多，推荐http://bbs.bioon.com/bbs/dispbbs.asp?boardID=25&RootID=627&ID=627），然后一个一个去验证能不能下载你所要的文献了。
感觉一个搜索高手的成长过程是：
1.新手阶段
不断总结改善检索式，增加搜索技巧。但现在密码越来越难找，而且密码有时间性。
2.中级阶段
到网上找一个巨大的proxylist，然后一个一个去验证能不能下载你所要的文献了。
3.高手阶段
主动出击。利用平时搜集的信息，主要是大学IP地址信息，用ProxyHunter 搜索，得到Free Proxy。
4.顶级高手
用ProxyHunter搜索，找到需要密码的代理，破解它，需要专门软件和时间 、技巧。
推荐使用AccessDiverhttp://soft.winzheng.com/可找到。
5.必杀高手
在大学范围内，找到肉鸡，开后门和端口。

给新手，搜索技巧参考
http://bbs.bioon.com/bbs/dispbbs.asp? BoardID=17&RootID=3417&id=3530&star=1&skin=
对中级，解释两点：
1、如何找到proxylist，去诸多代理网站，http://bbs.bioon.com/bbs/dispbbs.asp?boardID=25&RootID=627&ID=627
2、验证，我通常采用Idealibrary与ScienceDirect来验证。为何选用这两个，其一对绝大多数中级来说，这两个数据库是难以攻克的；其二一般单位不同时定购这两个数据库，如ScienceDirect就有ScienceDirect和ScienceDirect Onsite两个版本，若该单位定购了SDOS，则用ScienceDirect得不出结果。若你要保险，不漏过一个可用的Proxy，建议加用Willy。特别是Idealibrary。选用My Profile菜单，会显示定购信息，其中不仅有定购的期刊目录还有学校名称。嘿嘿，知道了把。google搜一下，你的数据库就不止Idealibrary与ScienceDirect了。这一步没有什么技巧，就是挂上代理，然后一个一个去验证能不能下载你所要的文献了。当然一个一个通过IE工具设置，太烦。若你没有耐心，别试了，等待好心人吧。提醒你的是，在这一步前，proxylist需要先用ProxyHunter验证，方法，http://bbs.bioon.com/bbs/dispbbs.asp?BoardID=17&RootID=3417&id=3530&star=1&skin=。同时最好参见一下IP地址范围，若不是学校IP范围，就删除吧。
实验室一定要注意http://www.sciencedirect.com/后，在右上角会出现Athens Login菜单。
若没有出现Athens Login，恭喜你，你成功了。别忘了将代理告诉我哈。
给高手。使用ProxyHunter，还是有小技巧的。注意参数设置的验证数据设置，你应自己建立验证资源，对Idealibrary与ScienceDirect，似乎无法用关键字串直接辨别代理可用否。我主要用匹配文件选项。你试试选用可用的代理登陆ScienceDirect，在右上角不会出现AthensLogin菜单。也就是说，存在差异的。但我现在还没有得到阳性结果，也就是说，我只得到非登陆的匹配文件。我选用非登陆的匹配文件后，验证，Free的则删除，然后一一验证。至于破解密码和种植肉鸡，太专业了，小心成了黑客，我就不介绍了。


下面在谈谈下载技巧：
以下是几个出版社在全文下载时所设的身份验证方式, 有助于大家更快的下载全文：
ACS：对每一个期刊，只验证一次，也就是说当你用代理成功下载全文后，就可以把IE里的代理改成免费代理直接下载了，真爽。
AIP, APS, IDEAL，Springer, RSC：这几个出版社的期刊，是每次下载都要进行身份验证的，当然啦，你可以先用免费代理快速连接到有Full text连接的那个页面，在下载时再换用二级代理。这样能减少代理使用，要知道大部分代理有流量记录，减少使用会延长代理生存时间，谢谢了。 Wiley：对身份验证最严格！从开始一直到那个有Full text连接的页面都需要用二级代理；等到出现Full text联机页面，这时就可以换一个免费代理来爽爽的下载了；但是如果你时机未把握好，发现不能下全文，你就必须得关掉所有的浏览器窗口，换上可下全文的代理再重新连结，才能生效！
有朋友提出，搜得代理后，一个一个数据库去试，看都可用于其它那几个数据库。 我的经验是首先用Idealibrary数据库的My Profile菜单，打开View the licensedinstitutions list链接，会出现Subscription list，注意此时会有机构名称。嘿嘿，用google大法。找到机构网址，查图书馆，一切搞定。另外ingenta与Femald数据库也会在主页右上角提示登陆机构名称。试试就知道了。不用一个一个盲目去试。


用代理主要有几点：
1、上某些敏感性站点；
2、隐藏真实身份，即IP；
3、免费看Fulltext；
4、黑客····。
如果你嫌宽带慢，就不要用代理了，一般代理不会比宽带快的。

关于Proxyhunter的特征字串问题，我的体会是：ScinenceDirect的特征字串以及匹配文件，找到并不困难。但Idealibrary的特征字串以及匹配文件，我用Proxyhunter根本接收不到，也传不过来，看来只能寻找其它软件了
]]> http://312441502.qzone.qq.com/blog/1227629782#comment 134218241 Tue, 25 Nov 2008 16:16:22 GMT http://312441502.qzone.qq.com/blog/1227629782 <![CDATA[接口和类]]> http://312441502.qzone.qq.com/blog/1223828336 接口和抽象类 什么是接口？
接口是包含一组虚方法的抽象类型，其中每一种方法都有其名称、参数和返回值。接口方法不能包含任何实现，CLR允许接口可以包含事件、属性、索引器、静态方法、静态字段、静态构造函数以及常数。但是注意：C#中不能包含任何静态成员。一个类可以实现多个接口，当一个类继承某个接口时，它不仅要实现该接口定义的所有方法，还要实现该接口从其他接口中继承的所有方法。

什么是抽象类？
抽象类提供多个派生类共享基类的公共定义，它既可以提供抽象方法，也可以提供非抽象方法。抽象类不能实例化，必须通过继承由派生类实现其抽象方法，因此对抽象类不能使用new关键字，也不能被密封。如果派生类没有实现所有的抽象方法，则该派生类也必须声明为抽象类。另外，实现抽象方法由overriding方法来实现。

相同点
  • 都不能被直接实例化，都可以通过继承实现其抽象方法。
  • 都是面向抽象编程的技术基础，实现了诸多的设计模式。
不同点
  • 接口支持多继承；抽象类不能实现多继承。
  • 接口只能定义抽象规则；抽象类既可以定义规则，还可能提供已实现的成员。
  • 接口是一组行为规范；抽象类是一个不完全的类，着重族的概念。
  • 接口可以用于支持回调；抽象类不能实现回调，因为继承不支持。
  • 接口只包含方法、属性、索引器、事件的签名，但不能定义字段和包含实现的方法；抽象类可以定义字段、属性、包含有实现的方法。
  • 接口可以作用于值类型和引用类型；抽象类只能作用于引用类型。例如，Struct就可以继承接口，而不能继承类。
规则与场合
  1. 请记住，面向对象思想的一个最重要的原则就是：面向接口编程。
  2. 借助接口和抽象类，23个设计模式中的很多思想被巧妙的实现了，我认为其精髓简单说来就是：面向抽象编程。
  3. 抽象类应主要用于关系密切的对象，而接口最适合为不相关的类提供通用功能。
  4. 接口着重于CAN-DO关系类型，而抽象类则偏重于IS-A式的关系；
  5. 接口多定义对象的行为；抽象类多定义对象的属性；
  6. 接口定义可以使用public、protected、internal 和private修饰符，但是几乎所有的接口都定义为public，原因就不必多说了。
  7. “接口不变”，是应该考虑的重要因素。所以，在由接口增加扩展时，应该增加新的接口，而不能更改现有接口。
  8. 尽量将接口设计成功能单一的功能块，以.NET Framework为例，IDisposable、IDisposable、IComparable、IEquatable、IEnumerable等都只包含一个公共方法。
  9. 接口名称前面的大写字母“I”是一个约定，正如字段名以下划线开头一样，请坚持这些原则。
  10. 在接口中，所有的方法都默认为public。
  11. 如果预计会出现版本问题，可以创建“抽象类”。例如，创建了狗（Dog）、鸡（Chicken）和鸭（Duck），那么应该考虑抽象出动物（Animal）来应对以后可能出现风马牛的事情。而向接口中添加新成员则会强制要求修改所有派生类，并重新编译，所以版本式的问题最好以抽象类来实现。
  12. 从抽象类派生的非抽象类必须包括继承的所有抽象方法和抽象访问器的实实现。
  13. 对抽象类不能使用new关键字，也不能被密封，原因是抽象类不能被实例化。
  14. 在抽象方法声明中不能使用 static 或 virtual 修饰符。
最后，MSDN的建议是：
  • 如果预计要创建组件的多个版本，则创建抽象类。抽象类提供简单易行的方法来控制组件版本。通过更新基类，所有继承类都随更改自动更新。另一方面，接口一旦创建就不能更改。如果需要接口的新版本，必须创建一个全新的接口。
  • 如果创建的功能将在大范围的全异对象间使用，则使用接口。抽象类应主要用于关系密切的对象，而接口最适合为不相关的类提供通用功能。
  • 如果要设计小而简练的功能块，则使用接口。如果要设计大的功能单元，则使用抽象类。
  • 如果要在组件的所有实现间提供通用的已实现功能，则使用抽象类。抽象类允许部分实现类，而接口不包含任何成员的实现。
]]> http://312441502.qzone.qq.com/blog/1223828336#comment 512 Sun, 12 Oct 2008 16:18:56 GMT http://312441502.qzone.qq.com/blog/1223828336 <![CDATA[继承CListCtrl的CSortList(转)]]> http://312441502.qzone.qq.com/blog/1220454430 /*------------------------------------------------------------------------------*/
自身支持排序的ListCtrl

VC里的CListCtrl是个很不好用的控件，特别是排序，实现起来很麻烦。
关于排序的基本用法，有一篇很好的文章：
http://www.vchelp.net/vchelp/zart/sortl.asp?type_id=9&class_id=1&cata_id=1&article_id=73&search_term=
但是，在这个例子里也存在个问题：排序的实现是和数据源相关的，如果有若干个表需要排序的话，每个表都要写相应的代码，这是一件非常痛苦的事。
所以，在上面的基础上，重新写了一个自身支持排序的CSoftList，从某个意义上说，也算是实现文档和视图的真正分离。
下面说说几个主要的地方。

1. CSortList是CListCtrl的派生类 (好象是废话)
2. 要让CSortList自行排序，当然得让CSortList自己处理LVN_COLUMNCLICK消息
ON_NOTIFY_REFLECT(LVN_COLUMNCLICK, OnLvnColumnclick)
OnLvnColumnclick的作用就是设置排序列，排序方式，最后调用SortItems()。
3. 排序的具体实现，也就是CALLBACK ListCompare(...)的实现：
基本要求: 让CSortList根据Item进行排序，而与数据源无关。(当然这样也有不足之处，就是排序只能按文本排序了。如果你需要按数字排序的话，那就只有特殊处理了。)
这里涉及到的最主要的函数是：
1)ListCompare - 实现排序的回调函数
int CALLBACK CSortList::ListCompare(LPARAM lParam1, LPARAM lParam2, LPARAM lParamSort)；
2)CListCtrl::FindItem - 查找相应的Item, 查找方式可指定
int FindItem( LVFINDINFO* pFindInfo, int nStart = -1 ) const;
FindItem的具体细节请参考MSDN.

基本思路：
1)ListCompare的原型：传入的参数lParam1,lParam2是相应两行的ItemData；
2)FindItem根据lParam1,lParam2得到相应的Item；
FindItem有多种查找方式(查找方式通过LVFINDINFO->flags进行设置)，这里只是根据ItemData进行查找。
3)再用GetItemText得到排序列的ItemText；
4)最后就是比较ItemText了。

4. 显示指明排序方式的标记
简单地说，就是给CListCtrl的CHeadCtrl指定一个CImageList,根据需要指定Column要显示的Image。
主要函数：
1)CHeaderCtrl::GetItem - 取得表头控制中某一项目的内容
BOOL GetItem( int nPos, HDITEM* pHeaderItem ) const;
2)CHeaderCtrl::SetItem - 设置表头控制中某一项目的内容
BOOL SetItem( int nPos, HDITEM* pHeaderItem );

下面是源代码：
只有两个文件：CSortList.H, CSortList.cpp
直接把这两个文件放到项目里就可以了。
唯一要注意的是：IDB_HDRUP, IDB_HDRDOWN 是两个位图资源，分别表示顺序和倒序，这个就需要自己弄了。

A. SoftList.h
#if !defined(AFX_SORTLIST_H__6ACE2F6F_AEFE_11D3_BDE9_F4145AA4F676__INCLUDED_)
#define AFX_SORTLIST_H__6ACE2F6F_AEFE_11D3_BDE9_F4145AA4F676__INCLUDED_
#if _MSC_VER > 1000
#pragma once
#endif // _MSC_VER > 1000
// SortList.h : header file
//
/////////////////////////////////////////////////////////////////////////////
// CSortList window
class CSortList : public CListCtrl
{
// Construction
public:
CSortList();
// Attributes
public:
// Operations
public:
// Overrides
// ClassWizard generated virtual function overrides
//{{AFX_VIRTUAL(CSortList)
//}}AFX_VIRTUAL
// Implementation
public:
virtual ~CSortList();
// Generated message map functions
protected:
//{{AFX_MSG(CSortList)
afx_msg bool OnColumnclick(NMHDR* pNMHDR, LRESULT* pResult);
//}}AFX_MSG

DECLARE_MESSAGE_MAP()
public:
afx_msg void OnLvnColumnclick(NMHDR *pNMHDR, LRESULT *pResult);
void CreateSortIcons();
void SetSortIcon();
bool GetFullRowSelect();
// 设置为行选中
void SetFullRowSelect( bool bFullRowSelect );
bool GetGridLines();
// 设置绘制表格
void SetGridLines( bool bGridLines );
static CALLBACK ListCompare(LPARAM lParam1, LPARAM lParam2, LPARAM lParamSort);
public:
BOOL m_bAsc;//是否顺序排序
int m_nSortedCol;//当前排序的列
private:
CBitmap m_bmpUpArrow;
CBitmap m_bmpDownArrow;
int m_nUpArrow;
int m_nDownArrow;
CImageList m_imglstSortIcons;
};
/////////////////////////////////////////////////////////////////////////////
//{{AFX_INSERT_LOCATION}}
// Microsoft Visual C++ will insert additional declarations immediately before the previous line.
#endif // !defined(AFX_SORTLIST_H__6ACE2F6F_AEFE_11D3_BDE9_F4145AA4F676__INCLUDED_)
B. SoftList.cpp
// SortList.cpp : implementation file
//
#include "stdafx.h"
#include "SortList.h"
#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif
/////////////////////////////////////////////////////////////////////////////
// CSortList
CSortList::CSortList()
{
m_bAsc=TRUE;
//this->m_nSortedCol = -1;
CreateSortIcons();
//GetHeaderCtrl()->SetImageList(&m_imglstSortIcons);
}
CSortList::~CSortList()
{
m_imglstSortIcons.DeleteImageList();
m_bmpUpArrow.DeleteObject();
m_bmpDownArrow.DeleteObject();
}
BEGIN_MESSAGE_MAP(CSortList, CListCtrl)
//{{AFX_MSG_MAP(CSortList)
//}}AFX_MSG_MAP
ON_NOTIFY_REFLECT(LVN_COLUMNCLICK, OnLvnColumnclick)
END_MESSAGE_MAP()
/////////////////////////////////////////////////////////////////////////////
// CSortList message handlers
void CSortList::OnLvnColumnclick(NMHDR *pNMHDR, LRESULT *pResult)
{
LPNMLISTVIEW pNMListView = reinterpret_cast<LPNMLISTVIEW>(pNMHDR);
// TODO: Add your control notification handler code here
//NM_LISTVIEW* pNMListView = (NM_LISTVIEW*)pNMHDR;
if( pNMListView->iSubItem == m_nSortedCol )
m_bAsc = !m_bAsc;
else
{
m_bAsc = TRUE;
m_nSortedCol = pNMListView->iSubItem;
}
SortItems( ListCompare, (DWORD)this );
SetSortIcon();
*pResult = 0;
}

void CSortList::CreateSortIcons()
{
if (!m_imglstSortIcons.m_hImageList)
{
COLORMAP cm = {RGB(0, 0, 0), GetSysColor(COLOR_GRAYTEXT)};
m_imglstSortIcons.Create (9, 5, ILC_COLOR24 | ILC_MASK, 2, 0);
m_bmpUpArrow.LoadMappedBitmap(IDB_HDRUP, 0, &cm, 1);
m_nUpArrow = m_imglstSortIcons.Add(&m_bmpUpArrow, RGB(255, 255, 255));
m_bmpDownArrow.LoadMappedBitmap(IDB_HDRDOWN, 0, &cm, 1);
m_nDownArrow = m_imglstSortIcons.Add(&m_bmpDownArrow, RGB(255, 255, 255));
}
}
void CSortList::SetSortIcon()
{
CHeaderCtrl* pHeaderCtrl = this->GetHeaderCtrl();
ASSERT(pHeaderCtrl);
pHeaderCtrl->SetImageList(&m_imglstSortIcons);
for( int col = 0; col< GetHeaderCtrl()->GetItemCount(); col++ )
{
HDITEM hdrItem = { 0,};

hdrItem.mask = HDI_FORMAT | HDI_IMAGE;
BOOL ret = pHeaderCtrl->GetItem(col-1, &hdrItem);
ret = pHeaderCtrl->GetItem(col+1, &hdrItem);
ret = pHeaderCtrl->GetItem(col, &hdrItem);
if ( m_nSortedCol == col)
{
hdrItem.fmt = hdrItem.fmt & HDF_JUSTIFYMASK | HDF_IMAGE | HDF_STRING | HDF_BITMAP_ON_RIGHT;
if( m_bAsc )
hdrItem.iImage = m_nUpArrow;
else
hdrItem.iImage = m_nDownArrow;
}
else
{
hdrItem.fmt = hdrItem.fmt & HDF_JUSTIFYMASK | HDF_STRING;
}
pHeaderCtrl->SetItem(col, &hdrItem);
}
}
bool CSortList::GetFullRowSelect()
{
return ( GetExtendedStyle()&LVS_EX_FULLROWSELECT) == LVS_EX_FULLROWSELECT;
}
void CSortList::SetFullRowSelect( bool bFullRowSelect )
{
if( bFullRowSelect )
SetExtendedStyle( GetExtendedStyle()|LVS_EX_FULLROWSELECT );
else
SetExtendedStyle( GetExtendedStyle()&(~LVS_EX_FULLROWSELECT) );
}
bool CSortList::GetGridLines()
{
return ( GetExtendedStyle() & LVS_EX_GRIDLINES ) == LVS_EX_GRIDLINES;
}
void CSortList::SetGridLines( bool bGridLines )
{
if( bGridLines )
SetExtendedStyle( GetExtendedStyle()|LVS_EX_GRIDLINES );
else
SetExtendedStyle( GetExtendedStyle()&(~LVS_EX_GRIDLINES) );
}
int CALLBACK CSortList::ListCompare(LPARAM lParam1, LPARAM lParam2, LPARAM lParamSort)
{
CSortList* pList=(CSortList*)lParamSort;
int nItem1, nItem2;

LVFINDINFO FindInfo;
FindInfo.flags = LVFI_PARAM; // 指定查找方式
FindInfo.lParam = lParam1;
nItem1 = pList->FindItem(&FindInfo, -1); // 得到对应Item索引
FindInfo.lParam = lParam2;
nItem2 = pList->FindItem(&FindInfo, -1);
if((nItem1 == -1) || (nItem2 == -1))
{
TRACE("无法找到!\n");
return 0;
}
CString Str1,Str2;
Str1 = pList->GetItemText(nItem1, pList->m_nSortedCol); // 得到排序列的Text
Str2 = pList->GetItemText(nItem2, pList->m_nSortedCol);
int iCompRes = 0;
if(Str1 > Str2)
iCompRes = 1;
else if(Str1 == Str2)
iCompRes = 0;
else
iCompRes = -1;
if(pList->m_bAsc)
return iCompRes;
else
return iCompRes*-1;
return 0;
} ]]> http://312441502.qzone.qq.com/blog/1220454430#comment 512 Wed, 03 Sep 2008 15:07:10 GMT http://312441502.qzone.qq.com/blog/1220454430 <![CDATA[ado连数据库(转)]]> http://312441502.qzone.qq.com/blog/1219755141 #import "c:\program files\common files\system\ado\msado15.dll" no_namespace rename ("EOF", "adoEOF")
//ADO连接数据库所需的dll,编译的时候系统会为我们生成msado15.tlh,ado15.tli两个C++头文件来定义ADO库
//注意这里的import一定要放在一行
int main(){
//该程序使用ADO连接ACCESS（装office的时候里面有）数据库 后缀为.mdb 运行平台vc6.0
//2003平台在写着
//---------------------------------------------------------------------------------

//ADO数据库连接分五步走，
//第一、获取连接（只到数据库在什么地方）
//第二、打开连接 open（必要的用户名和密码）
//第三、获取字符集 ResultSet（类似数组的数据存储对象），
//第四、显示数据
//第五、关闭数据集、关闭连接

//创建个连接对象
_ConnectionPtr m_pConnection;
//对连接进行初始化
CoInitialize(NULL);
//---------------------------------------------------------------------------------
//第一步、获取连接
//---------------------------------------------------------------------------------
//同过连接(Connection)创建并获取一个数据库连接实例，
//也可以把他看成句柄（电影门票）有里他就有资格使用数据库里的资源了 呵呵
m_pConnection.CreateInstance(__uuidof(Connection));
// 又于在数据库连接的时候有有可能会出现错误，比如数据源设置或用户名 密码错误等
//所以使用try{....}catch(){...}捕获try{}里的异常（错误）
//并把这些异常放到_com_error e 这个变量里，我们可以同过他获取错误的信息
//并且，在出错的时候程序一定回运行catch(){....}里的东西，我们看到如果连接错误的时候
//会执行cout<<"数据库连接失败，确认数据库mydb.mdb是否在当前路径下!"<<endl;
// return FALSE; 之后推出程序 。如果不加try的话可以在程序出错的时候造成死机
//所以，try也可以看成一种出错的处理（异常处理）
try
{ //---------------------------------------------------------------------------------
//第二步、打开连接 参数用 ; 分开
//---------------------------------------------------------------------------------
//第一个是Provider=Microsoft.Jet.OLEDB.4.0; access的厂商
//Data Source=mydb.mdb","","",adModeUnknown 数据库名称 ， 用户名（空） ，密码（空）， 缺省连接模式
//对于该参数：~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ (1)
 /*adModeUnknown:缺省。当前的许可权未设置
adModeRead:只读
adModeWrite:只写
adModeReadWrite:可以读写
adModeShareDenyRead:阻止其它Connection对象以读权限打开连接
adModeShareDenyWrite:阻止其它Connection对象以写权限打开连接
adModeShareExclusive:阻止其它Connection对象打开连接
adModeShareDenyNone:允许其它程序或对象以任何权限建立连接
*/
//通过这个语句我们的数据库连接真正得到实现了，m_pConnection有了内容了（被附值了）
m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=mydb.mdb","","",adModeUnknown);

}
catch(_com_error e) //捕捉异常
 {
cout<<"数据库连接失败，确认数据库mydb.mdb是否在当前路径下!"<<endl;
return FALSE;
}
//数据集对象
 _RecordsetPtr m_pRecordset;
//实例化数据集
 m_pRecordset.CreateInstance(__uuidof(Recordset));
//---------------------------------------------------------------------------------
//第三步、获取数据集
//---------------------------------------------------------------------------------
//虽然，前面连接上了，但连接的这个数据库里是不是有数据表（test表）还不能确定
//所以，这里同样要捕获可能出现的错误
 try
{
m_pRecordset->Open("SELECT * FROM test", //是数据查询字符串（即所谓的SQL语句）
//通常这些语句分为 数据的查询(select),插入(insert)
//更新(update),删除(delect)
//是否能执行这个命令是由前面(1)确定的
m_pConnection.GetInterfacePtr(), // 获取库接库的IDispatch指针

adOpenDynamic, //动态光标。所有数据库的操作都会立即在各用户记录集上反应出来
adLockOptimistic, //乐观锁定方式。只有在你调用Update方法时才锁定记录。在此之
//前仍然可以做数据的更新、插入、删除等动作

adCmdText); //查询出来的数据是显示在控制台里的
 }
catch(_com_error *e)
{
cout<<e->ErrorMessage()<<endl;
}
_variant_t var;
char *ID,*name;

try//得到表，但表里不一定有数据
 {
if(!m_pRecordset->BOF) //数据表里是是有数据
 m_pRecordset->MoveFirst(); //将游标（数据集在数据库的叫法）移动到一第一条记录
 else {
cout<<"表内数据为空"<<endl;
return 1;
}

//--------------------------------------------------------------------------------------------------------------------------
// 第四步、显示数据
//---------------------------------------------------------------------------------------------------------------------------
while(!m_pRecordset->adoEOF) //和前面的rename ("EOF", "adoEOF") 想对应 这里使用的是
 //adoEOF代替EOF （当然这里如果前面没有rename也可以使用EOF）
//判断游标是不是到达最后一条数据
 {
var = m_pRecordset->GetCollect("ID"); //这是获取表中字段的一种方法“ID”为表字段名
 if(var.vt != VT_NULL) //判断记录在该有没数据
 ID= _com_util::ConvertBSTRToString((_bstr_t)var); //由于得到的数据可能不是字符传 这里要转换
//将他们转成字符串，从而可以在屏幕上显示

var = m_pRecordset->GetCollect("name");
if(var.vt != VT_NULL)
name=_com_util::ConvertBSTRToString((_bstr_t)var);
cout<<ID<<" is "<<name<<endl; //打印该记录
m_pRecordset->MoveNext(); //游标向走向下条记录
 }
}
catch(_com_error *e) //捕获异常
 {
cout<<e->ErrorMessage()<<endl; //如有错误 ，将错误输出
 }
//--------------------------------------------------------------------------------------
//关闭数据集
//-----------------------------------------------------------------------------------
m_pRecordset->Close();
m_pRecordset = NULL;

//--------------------------------------------------------------------------------------
//关闭数据库连接
//--------------------------------------------------------------------------------------
 if(m_pConnection->State)
m_pConnection->Close();
m_pConnection= NULL;
//这两步是一定要做的，否则时间长内存可能会被用尽
return 0;
} ]]> http://312441502.qzone.qq.com/blog/1219755141#comment 512 Tue, 26 Aug 2008 12:52:21 GMT http://312441502.qzone.qq.com/blog/1219755141