结构分析、CAD Autolisp技术、软件使用技巧: 2007/2/1

2007年2月27日星期二

Tecplot的lay文件的TextPad语法高亮文件（部分）

最近仔细的学习了TextPad，发现了不少以前没有发现的新功能，特别是看来Autohotkey给TextPad加语法文件的全过程之后，颇有收获。不过这里只是附加一个二维xy线及散点图的tecplot语法高亮文件，权当是一个备份吧。


; SYNTAX FILE FOR Tecplot 
; qjchen http://chenqj.blogspot.com

C=1

[SYNTAX]
NAMESPACE1 = 6
IGNORECASE = NO
INITKEYWORDCHARS = A-ZA-Z_
KEYWORDCHARS = A-ZA-Z0-9@*-'`
BRACKETCHARS = {}[]
PREPROCSTART = 
SYNTAXSTART = 
SYNTAXEND =
COMMENTSTART =
COMMENTEND =
SINGLECOMMENT = $
SINGLECOMMENTCOL =
SINGLECOMMENTALT =#
SINGLECOMMENTCOLALT =
SINGLECOMMENTESC = \
STRINGSSPANLINES = YES
STRINGSTART = "
STRINGEND = "
STRINGESC = \
CHARSTART = '
CHAREND = '
CHARESC = \

[KEYWORDS 1]
ANCHORPOS
ASSIGN
BACKGROUNDCOLOR
BARCHARTS
BOTTOMHARDCLIPOFFSET
BOX
COLOR
CONTOURCOLORMAP
DATALABELS
DEPXTOYRATIO
DISTANCESKIP
EQUATION
ERRORBARS
FILLCOLOR
FILLMODE
FONT
GEOMSHAPE
GRSPACING
HEADERCOLOR
HEIGHT
INCLUDEGEOM
INCLUDETEXT
INDICES
INITIALPLOTTYPE
IRANGE
ISTRANSPARENT
LEFTHARDCLIPOFFSET
LEGEND
LETTER
LINES
LINETHICKNESS
MAX
NAME
OFFSET
ORIENTPORTRAIT
PAPERGRIDSPACING
PAPERSIZE
PAPERSIZEINFO
RANGEMAX
REGIONINWORKAREA
RESETSTYLE
RIGHTHARDCLIPOFFSET
RULERSPACING
SHOW
SHOWBORDER
SHOWGRID
SHOWPAPER
SHOWRULER
SHOWSYMBOLS
SIZE
SYMBOLS
SYMBOLSHAPE
TEXT
TEXTSHAPE
TICKLABEL
TITLE
TITLEMODE
TOPHARDCLIPOFFSET
VARLOADMODE
VARNAMELIST
WIDTH
X
X1
X2
XAXISVAR
XDETAIL1
XYPOS
XYPOS
Y
Y1
Y2
YAXISVAR
YDETAIL1
ZONE
RANGEMIN
XDETAIL
YDETAIL
LINEPATTERN


[KEYWORDS 2]
RED
BLUE
GREEN
YELLOW
BLACK
WHITE
BYNAME
XYLINE
ONEINCH
HALFINCH
SMRAINBOW
HELV
HELVBOLD
GREEK
USESPECIFICCOLOR
CIRCLE
CUSTOM2
USETEXT
DEL
DASHED
DASHDOT


[KEYWORDS 3]
YES
NO

一段批量将doc文件存为同名txt的autohotkey代码

最近在好好学习地写论文，做了一些批量根据数据生成tecplot图形lay文件和利用autohotkey编写地批量tecplot图形的wmf导出代码，由于不通用，就不放在这里了。doslib7.5的chm文件已经全部翻译完毕，但还在校对中。计划写一个autocad外挂程序小览，这个茶余饭后会完成。

下面简单的介绍一个批量将doc文件存为同名txt的autohotkey代码，可以改造成其他类似用途。


FileList =  ; Initialize to be blank.
Loop, g:\3\*.*
 FileList = %FileList%%A_LoopFileName%`n
Sort, FileList, R   ; The R option sorts in reverse order. See Sort for other options.
Loop, parse, FileList, `n
{
 if A_LoopField =  ; Ignore the blank item at the end of the list.
  continue
 Run g:\3\%A_LoopField%
 WinWaitActive,,,0.5
 Send, !fa{tab}{down}{down}{down}{enter}!s!fc
}

2007年2月23日星期五

Ansys 11里面一些自己感兴趣的新功能

Ansys 11里面一些自己感兴趣的新功能
(qjchen)
1）Nonlinear Stabilization
对局部失稳的问题进行了改进，可以在静态分析中模拟局部失稳和失稳后行为，对某些弧长法无能为力的snap-through问题和整体失稳问题有了一定的改进。……。
个人感觉：这点不知道对前段时间的整体网壳非线性分析有没有改进的作用，且待后测试。

2）3-D Smeared Reinforcing
一个三维的3－D smeared 钢筋单元。REINF265单元，可以作为钢筋或者纤维等的三维模拟。在一个基单元中可以定义250层钢筋，也可以用EREINF来自动生成钢筋。这个单元具有塑性，应力刚化，蠕变，大变形，大应变等特性。
个人感觉：虽然ansys的钢筋功能不是很强大，但是应付一般的问题还是不错的，现在有三维加强总算是对土木行业有些作用吧。

3）New User-Defined Elements
有一个新的API（application program interface ）可以让用户更加简单的构建新单元。其中很重要一点，用户不再需要撰写材料子程序，可以调用标准材料库的程序。

个人感觉：应该还是很好的，ABAQUS和DIANA都支持用户自定义类型，而ansys的自定义门槛可能更高，需要降低一些了。个人觉得一个软件的定制性更强，甚至有某些开源方面的插件接口会好的多，拥有更多的用户。

4）New Joint Element Options
多种新的节点单元，这个主要是对两个单元对应节点的耦合进行更多方面的定义。其中有一种weld的焊接单元。MPC184 Weld Joint Element。
感觉：多些选择总是好的。

5）Component Mode Synthesis (CMS)
字模态合成？，功能有所增强，不知道对师兄的那个连体结构模态分析有没有帮助呢。

6）Drucker-Prager plasticity
多了一种Cap模型。其中的一种Gurson’s plasticity model 塑性模型适用于延性金属的破坏。其基于微力学延性损伤模型。

7） J-Integral Calculation
断裂力学中的J积分，记得以前的马博士是用了编写apdl的方法来完成的，现在可能得让他来判别一下怎么回事了。

8）Initial State
据说初状态的定义大大的增强了，可以从多方面进行定义。

9）Apdl的增强
array相关的几个函数都得到了增强，比如 *DIM *VOPER, *MOPER, *VGET ,*VFUN, *MFUN, *VITRP, *TOPER,
而*GET和*VGET也都得到了增强，个人感觉比较有用。

2007年2月22日星期四

[原创] Totalcmd根据文本文件的第n行批量重命名

[原创] Totalcmd根据文本文件的第n行批量重命名
(华南理工大学建筑学院 qjchen）

问题1:
有一批txt文件，希望根据其文本文件的第一行或者第n行内容重命名文件【这个问题有时在某些下

载的电子书会遇到）。
问题2:
或者有一批html文件，希望根据其标题（title）进行批量重命名。（这个问题在没有安装插件

firefox存网页的时候会遇到）

在昨天之前，我还没有什么方法，只能编下程序。
在http://chenqj.blogspot.com/2007/02/4-qjchen-txtca1234-httpqjchen.html

我用Lisp，python，cmd脚本和 Autohotkey等几种小众语言编了完成。

但是一直觉得TC重命名水平很高，于是找WDX插件，找到如下这个——Script Content plugin

——Lev Freidin (c) 2005

下载地址:
http://www.totalcmd.net/plugring/script_wdx.html

这个WDX插件的功能非常强大，它可以读取js和vbs脚本的结果来作为一个TC的内容插件。这点给用户的自定义性非常强。

它自带了几个脚本，其中的ext.vbs给我们如下功能
'Show size for eps, ai, ps, prn files （查看eps, ai, ps, prn文件的尺寸）
'Show title for htm, html files （查看htm和html文件的标题——title）

WDX插件的很大一个用处就是重命名。可以查看title内容就可以按照它修改。

但是它离我的目标还差一点，没有显示文本内容，怎么办。本人编程水平还比较低，只能依样画葫芦写出如下一段代码。

'---------------------------------
case "txt"
Set f = fso.GetFile(filename)
Set ts = fso.OpenTextFile(filename, ForReading)
s = ts.readline
s = ts.readline
s = ts.readline
ts.Close
content= s

把这段代码拷贝到ext.vbs的Select Case sExt这句话的下一行，保存文件，即可。（注意，本文是读取文本txt文件的第三行，所以这么写。假如是第n行，当然可以把ts.readline写上n遍，但是最好还是写个for循环吧）

作者说了，假如你想多几个内容，可以把这个程序拷贝多几个目录，分别指定vbs，这个可以打开script.ini，看看[Script]的Section这个段，比如把Section＝AddZeros就变成了其自带的另外一种内容显示模式（文件名中数字填充0的模式，方便排序）

接下来的wdx自定义列及重命名工作，各位肯定很熟手，就不一一列举了。

主要是在Ctrl＋M之后，选Plugins就可以了。

我在这里放了一个swf文件，主要是为了顺便学习Wink的应用

http://qjchen.googlepages.com/mytcrename1.htm
各位见笑了：）

2007年2月20日星期二

利用4种小众语言进行批量多层子目录内文件重命名的方法

利用4种小众语言进行批量多层子目录内文件重命名的方法
（华南理工大学建筑学院 qjchen）
问题的提出:
有一批txt文件（处于c:\a目录及在此内的多层子目录下），名字是1，2，3，4等比较乱的名字，现在希望用每个文本的第三行文字作为文件的新名字。
（这个要求当然可以是其他比较奇特的，修改一下即可）
为了方便测试，放了一个文件在这里，
http://qjchen.googlepages.com/test.ZIP
请解压到c:\a目录下即可。

现在希望用几种小众语言共同试一下，作为自我学习，也希望各位高手指正、精简及告诉多几种语言的写法。

问题的中心：目录的递归查找文件，文件读取，重命名

1a）纯粹的Lisp语言
既然是Lisp版，当然得先用Lisp语言，此处用的是Vlisp，其中借助了John F. Uhden, Cadlantic的程序。由于VLisp本身只提供了少量的目录函数，因此代码比较长。里面涉及了递归定义。

优点：lisp函数就如一个玩具一样，它用很少的语言定义出一栋高楼大厦，给人有很满足的感觉，当有足够多的Lisp函数构建出函数库，照样有强大的功能。当然，AutoLisp语言的强项在于图形方面，用它来作这些也有点难为它。

缺点：vlisp的速度相对其他语言似乎有些慢。

用法：在autocad2000以上加载之后，运行ren即可。


;;; ========================================================================
;;; Some of the following code are writen by CHEN QING JUN                 ;
;;; Civil engineering Department, South China University of Technology     ;
;;; Purpose: To get a file list of the currrent path                       ;
;;; The platform: Acad2000 and after                                       ;
;;; 2007.02.19                                                             ;
;;; Http://chenqj.blogspot.com                                             ;
;;; Http://autolisper.googlepages.com                                      ;
;;; ========================================================================
(defun c:ren (/ direc directree x y direcfile)
(setq direc (getstring "\nc:/a:"))
(if (= direc "")
 (setq direc "c:/a")
)
(setq directree (@Folders direc))
(foreach x directree
 (setq direcfile (qj-directory-only-files x))
 (foreach y direcfile
   (if (= (vl-filename-extension y) ".txt")
(rename y)
   )
 )
)
)
(defun rename (y / path fh newname)
(setq path (vl-filename-directory y)
ext (vl-filename-extension y)
)
(setq fh (open y "r"))
(read-line fh)
(read-line fh)
(setq newname (strcat path "/" (read-line fh) ext))
(close fh)
(vl-file-rename y newname)
)
(defun qj-directory-only-files (path / lst res)
(setq lst (vl-directory-files path))
(setq lst (mapcar
     '(lambda (x)
 (strcat path "/" x)
      )
     lst
   )
)
(foreach x lst
 (if (not (vl-file-directory-p x))
   (setq res (append
  res
  (list x)
)
   )
 )
)
res
)
;;; ========================================================================
;; given the parent folder as a Path.                                      ;
;; Note that using a path of "" or "." or "\\" will exclude                ;
;; the drive letter.  McNeel's DOSLIB has a DOS_FULLPATH function          ;
;; that can return such folders with drive designations.                   ;
;; (c) John F. Uhden, Cadlantic                                            ;
;;; ========================================================================
(defun @Folders (Path / Folders @Dirs)
(defun @Dirs (Path / Dir Dirs)
 (and
   (= (type Path) 'STR)
   (or
(/= (type DOS_FULLPATH) 'EXRXSUBR)
(setq Path (DOS_FULLPATH Path))
   )
   (if (wcmatch Path ",*/,*\\")
(setq Dir Path)
(setq Dir (strcat Path "/"))
   )
   (setq Dirs (vl-directory-files Dir "*.*" -1))
   (setq Folders (cons Path Folders))
   (setq Dirs (vl-remove-if '(lambda (x)
    (vl-position x '("." ".."))
  ) Dirs
 )
   )
   (mapcar
'@Dirs
(mapcar
 '(lambda (x)
    (strcat Dir x)
  )
 Dirs
)
   )
 )
)
(@Dirs Path)
(reverse Folders)
)

1b）利用doslib程序库
DOSLib, 是一个免费的AutoLISP/Visual Lisp 程序库。它为Autocad提供了各种可供调用的windows操作函数 . 它是用Objectarx编写的AutoCAD应用程序。 DOSLib 通过各种函数扩展了AutoLISP和Visual LISP的编程功能。部分翻译可以见这里：
http://chenqj.blogspot.com/2007/01/doslib-75_27.html

优点：比Lisp的代码要短不少。

缺点：需外挂ARX函数库，对不同版本的arx需要不一样。

用法：对相应的cad版本，加载相应的doslib


;;; ========================================================================
;;; Some of the following code are writen by CHEN QING JUN                 ;
;;; Civil engineering Department, South China University of Technology     ;
;;; Purpose: To rename a batch of txt files into new name according to the ;
;;;          third line of the text  (Use DOSLIB)                          ;
;;; The platform: Acad2000 and after                                       ;
;;; 2007.02.19                                                             ;
;;; Http://chenqj.blogspot.com                                             ;
;;; Http://autolisper.googlepages.com                                      ;
;;; ========================================================================
(defun c:ren (/ direc directree x y direcfile fh newname)
(setq direc (getstring "\nc:/a:"))
(if (= direc "")
 (setq direc "c:/a")
)
(setq directree (dos_dirtree direc))
(foreach x directree
 (dos_chdir x)
 (setq direcfile (dos_dir))
 (foreach y direcfile
   (if (= (vl-filename-extension y) ".txt")
    (progn
    (setq fh (open y "r"))
(read-line fh)
(read-line fh)
(setq newname (strcat (read-line fh) ".txt"))
(close fh)
(dos_rename y newname)
)
   )
 )
)
)

2）Python语言
python语言是一种比较新的脚本语言，虽然比较小众，但是也得到越来越多人的应用，个人只学了很少的一部分，感觉其层次清楚，函数库也比较大，语言相对比较灵活，和lisp有点类似，比如list,def,lambda等等都很熟悉。
我用的python版本是activepython:
http://www.activestate.com/，
下面的函数walk函数递归调用子程序中的各层文件是参考了
http://www.chinaunix.net/jh/55/574467.html的函数的。

优点：函数库比较多，语言也算比较清晰
缺点：得安装python解释器。

用法：将代码存为.py文件，在activepython里面打开这个文件，按ctrl+R运行即可
注意：python的类似progn之类的操作，是用Tab缩进来描述的，每个缩进代表了一个层次，假如下述代码无法工作的话，请把相应的空格改成Tab，两层的为两个Tab


import os
filedir = "c:\\a"
filenamelist=[]
def visit(arg, dirname, names, flist = filenamelist):
 flist += [dirname + "\\" + file for file in names]
os.path.walk(filedir, visit, 0)
for y in filenamelist:
 if os.path.isfile(y):
   f=open(y,'r')
   f.seek(0)
   allline=f.readlines()
   thirdline=allline[2]
   lst=os.path.split(y)
   os.chdir(lst[0])
   f.close()
   os.rename(lst[1] , thirdline.replace("\n", " ")+'.txt')

3）cmd脚本语言
（这个是修改精品和drl的hitme大侠的，for的用法比较奇怪也非常强大）
cmd脚本其实就是批处理语言，在win2000之后得到很大的增强，有许多不可思议的操作都用短短几行就得到了解决，范例可见https://www.dream4ever.org/showthread.php?t=75887
第八楼的帖子，相应还有su99和hitme等高手之作

优点：完全只靠系统本身的批处理语言就解决了问题。
缺点：代码的可读性一般，for的用法非常复制，但也非常强大，好好的学习应该可以解决很复杂的问题（听说黑客整天干这种事，咱可没那种能力和野心：）

用法：将代码存为1.bat文件，放到c:\a目录下，双击运行或者cmd命令行下键入1.bat即可


@echo off
setlocal  ENABLEDELAYEDEXPANSION
for /f "delims=" %%a in ('dir /s/b *.txt') do (
 for /f "skip=1 tokens=1,2 delims=:" %%i in ('findstr /n "." "%%a"') do (
  set n=%%j
  if "%%i"=="3" (
  ren "%%~da%%~pa%%~nxa" "!n:~0,10!.txt" 2>nul)
 )
)
endlocal

4）用Autohotkey语言
Autohotkey是一个系统键盘及鼠标模拟程序，具有强大的自定义功能，完全可以将之作为一个Autocad热键处理程序来运行（与Autohook各有所长），外国网站是在这里
http://www.autohotkey.com/wiki/index.php?title=Script_Listing#File_Reading_.26_Parsing
国内也有好些此中高手
http://www.blogcn.com/user48/yonken/index.html
要先安装一个叫autohotkey的软件，下载地址：http://www.autohotkey.com/
它的作用是这样的，
比如把下面这三句代码，存为一个叫abc.ahk (abc可以任意取），
F1::^c
F2::^v
Tab::^l
然后，双击这个abc.ahk，那么它将会认为F1是复制，F2是粘贴，在Autocad中，它会认为Tab键就是和F8键一样的正交键。（你可以用它实现很强大的功能吧：0，不过它和autohook还是不一样的，autohook对于定义单键，比如一个按键的，比如a非常有用，而autohotkey还不行）

本来我想编一个ahk文件来实现用autocad的lisp编辑器批量的autolisp程序的代码格式化的，差一点还没有成功，就先编一个这个来测试一下其目录递归功能，发现也很强大。

优点：语言简洁，更有其他强大的功能
缺点：调试不大方便

用法，将这段代码存为1.ahk文件，双击之则完成


FileList =  ; Initialize to be blank.
Loop, c:\a\*.*,0,1
FileList = %FileList%%A_LoopFileFullPath%`n
Loop, parse, FileList, `n
{
FileReadLine, line, %A_LoopField%, 3
B= %A_LoopField%
SplitPath, B, name, path
NewName = %path%\%line%.txt
FileMove, %A_LoopField%, %NewName%
}

其实高手只要精通一种语言就可以为所欲为了，本人只是得处理非常多的文本文件，因此乱七八糟的学了一点皮毛，特别是语言不熟悉时程序也经常拖沓不已，各位见笑了。

总体的感觉，Lisp最顺手，编的最快。Doslib也很熟眼。Python之前编过一些，改改就成功，但是原来的listdir不能用了之后得google，cmd学的好苦，但感觉到有一片新天地，而autohotkey是为了后面的一些批量导出tecplot图形而学习的。除了lisp，好像速度都比较快。

假如有各种其他的代码，也请不吝指教，谢谢。

2007年2月17日星期六

新年到了，拜年拜年

新年到了，拜年拜年。
祝天下人开心愉快，万事如意。

春晚是欢庆的，春晚是美妙的，不过喜庆之余也挑点骨头吧。

看春晚
几个感想：
1）人多
2）小品较烂，李金斗大兵的广告相声，之前的春晚早就讲过。潘长江的小品看头知尾。黄宏的笑话还抄周星驰10来年前的桥段，过会再看看赵本山的。
3）对于歧视南方普通话的做法越发郁闷。为什么广电局强制限制港台腔，却不禁其他方言。蔡明的话我就没有听懂，还有许多的，不合理，真的不合理。
4）要是到了以后没有春晚看的时候，不知道会不会怀念现在有的看有的开心还有的批评的开心日子呢。所以呢，看过开心就是。

愿天下人新年好运

2007年2月15日星期四

关于winmount的试用

前段时间在smth上看到它的预告，似乎是trw的作者写的，那可挺厉害的啊。
昨天在cnbeta看到它的发布，就去下了一个回来试用。

应该还是很好用，界面还比较简单，如图所示。操作很简单。

特点：可以将rar, zip, bin, iso, mdf, mds虚拟为一个新盘（其中，rar和zip模拟成为U盘类，光盘镜像模拟为光盘）
那么思考1：和daemon有什么区别－－个人感觉——安装之后不用重启，mount光盘镜像的时候会出现安装新硬件的界面。
2：和totalcmd有什么区别，它照样可以看好些压缩文件和iso文件－－个人感觉——它是采用一个虚拟空间的概念，所有操作在重启或者unmount之后都没有改变。比如你mount一个压缩文件，出现一个新盘符，比如Z：，给其添加文件，修改里面文件，所有操作unmount之后都会丢失。操作比较安全。另外，由于是新盘符，所以，比如看压缩文件的各种图形，查看各种类型的文件，都比totalcmd来的方便。

体会：应该有很好的用处的，有待仔细思考。现在虚拟类程序越来越多了，虚拟系统，影子系统，虚拟光驱软驱U盘，ramdisk，虚拟桌面等等等等，值得思考。

2007年2月13日星期二

[转载]AutoLISP Highlighter

今天在ivox这里
http://ivox-tech.blogspot.com/2006/10/autolisp-highlighter.html

看到专门用于加亮代码的javacode，且下载回来好好学习。

IVOX的网站：http://ivox-tech.blogspot.com/

dp.SyntaxHighlighter源代码的主页：http://www.dreamprojections.com/SyntaxHighlighter/Usage.aspx



 """
 def f(a, b):
     print a,b

 f(5,6)

 def stri(str):
         print str[2:3]

 stri("567890")

 def sear(strr, str1):
     len1=len(str1)
     lenr=len(strr)-1
     for i in range(1,  lenr):
         if  strr[i:i+len1]==str1:
             print "haha"


 sear("abcde", "d")

这个的做法是要把这一段代码在template的edit html中加入（个人修改过的），位置是body之前。然后呢在以后写代码的时候，只要把代码放在textarea标签之间，就可以比较好的显示代码了，真不错。

2007年2月12日星期一

快速启动应用程序的软件－－launchy

有时候MineSweeper Clone比较难下载，于是我在这里up两个，97版本和2006版本，06版本的需要.net frame，有时候装不上。

今天看CHIP(新电脑),发现最近这个300个免费软件很热,大家都在讨论.
CHIP这个杂志还不错,反正现在电脑杂志广告都很多,很难找到一本最好的杂志来看就是.没有最好,只有较好.
里面介绍的这个launchy 1.0挺好的. 据说它是学苹果的Quick Sliver。它的主要作用是快速启动应用程序.这种软件倒是有不少,但是以前一直不是特别在意就.比如typeandrun,功能很强大,不过用了之后没有上瘾. hoekey好像要记住的按键太多了. rocketdock倒是经常在PC上用,不过也得占用一定的屏幕. 今天的这个launchy倒是很合我意.

它的用法很简单,安装完之后,用alt+空格调用(可以修改),自动启动,也可以设置为U盘使用.
它的搜索应用程序范围小一些,主要是自己定义的几个目录的lnk链接文件(刚才花了几分钟,把自己喜欢的应用程序都做成一堆lnk,放到一个工作目录里面). 如此一来,需要调用的时候,按alt+空格, 然后键入几个程序的英文开始字母,就可以挺快的启动程序了.

个人观点:这种启动程序法不是最快的(不如hoekey),但是是比较容易的.适合喜欢用键盘人士使用,但不适合完美主义者.
个人观点1:软件界面非常漂亮,这点CHIP也说了,甚至说它的主页更加漂亮,很有特色.
www.launchy.net

下面是它自带的11种界面,可见都非常漂亮.
1. default

2. aero soft

3.aqua

4.black glass

5.blue metal

6.clean

7.gantchy blue

8.gantchy deep

9.quick siliver

10.quick siliver2

11.ilau11toptab

2007年2月10日星期六

xdcad论坛 Autolisp帖子汇总到2007.5.1

前段时间有兄台给出了xdcad的lisp帖子汇总，我也挺有兴趣的。
最近我也作了一个，如下所示，见笑了。

具体有什么用，还不知道，但是我上网时间不多，有时候到xd搜索的时候，时间限制的比较严，而我大概是知道帖子是什么名字和作者的，可以进行搜索。有时候的作用，查询一下自己首发的帖子有多少，精华有哪些。

主要编程工具：python。采用python的原因如下：本来想用cmd脚本的，这个精品的hitme大牛是此中高手，他编过一个收集过滤ccf一年中精华帖子的cmd脚本，完全利用批处理脚本就完成了。只用了20来行代码，深感不如。本来想改造一下来过滤xdcad帖子的，无奈cmd脚本水平太低，编了一半没有完成。第二个就是利用熟悉的Lisp，这个编写了一段之后发现Lisp的文件处理速度还是太慢了。第三个就是利用python语言，这个语言其实和Lisp很像的，（以前用它编过一些文件重命名程序，比如把所有txt文件的第一行拿出来作文件名，大概只需不到10行代码；编了一个Sap2000和Abaqus梁系单元的几何转换，也不过20来行），但是内置的程序库很大，正则表达式的功能很强，速度也比较快。以后有时间写一篇关于python和Lisp的简单比较，感觉多一个工具多一种应用还是很好的。不过也是半桶水的水平，编了好久才完成。

第一个，Lisp帖子汇总（到2007年2月8日）
网址如下，此贴有2M多。也可dl再回去看看。
全部帖子

截图如下: