忘尽心中情

遗下爱与痴

任笑声送走旧愁

让美酒洗清前事

四海家乡是

何地我懒知

顺意趋寸心自如

任脚走尺躯随遇

难分醉醒玩世就容易

此中胜负只有天知

披散头发独自行

得失唯我事

昨天种种梦

难望再有诗

就与他永久别离

未去想那非和是

未记起从前名字

国庆长假的最后一天在家里吃饭的时候，觉得土塘虱味道不错，多吃了几口，不小心被鱼刺扎了口腔，然后回来深圳上班，没留神，加上一周吃了两次胜记海鲜，结果牙齿开始发作，右边痛完就左边痛，最后两边一起痛，！！！

可怜的p，最后要用花旗参茶来好好侍候它们。

最近无聊做文档，跟领导建议不要用word做，没被采纳，无奈文档给洋人看，全角符号要改半角，于是仿照现成例子写个macro:

Sub 字母数字符号全角转半角()

‘

‘ 字母数字符号全角转半角 Macro

‘ 宏在 2005-10-14 由 ZhengRC 创建

‘

Dim qjsz, bjsz As String, i As Integer ‘定义qjsz(全角数字)、bjsz(半角数字)为字符串型，i为整数型

qjsz =

０１２３４５６７８９ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ，．／＜＞？；＇：

［］｛｝＼｜＝－＋＿）（＊％＄＃＠！｀～＆　

bjsz =

0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ,./

?;’:

[]{}\|=-+_)(*%$#@!`~

Selection.WholeStory

For i = 1 To 95 ‘循环10次

    With Selection.Find

        .Text = Mid(qjsz, i, 1) ‘mid函数：返回文本字符串中从指定位置开始的特定数目的字符，每次取一个数字

        .Replacement.Text = Mid(bjsz, i, 1) ‘将用于替换的相应位置的半角数字

        .Format = False ‘保留替换前的字符格式

        .Execute Replace:=wdReplaceAll ‘用半角符号替换全角符号

    End With

Next i

End Sub

昨天发现东方卫视的新闻其实做得不错，在播报的同时，下方打印之前或者之后的重要新闻。

浏览了一下世界各大新闻社对神六的报道。其他都是一般，美联社的视点比较独特，中国开放如此多的内外媒体，让他们同步报道神六的发射，昭示中国对自己升天技术的强大信心。

不过我想，信心归信心，跟100%的成功率是永远不能划上等号的，至于可能失败之后的危机公关，如何平息公众的各种指责与声音，政府估计也做足的准备。

昨天看一篇文章，说为何致力发展航天而非航母，说的话也不无道理，按照战列舰被淘汰的趋势，航母将来亦并非战争主角，航天技术的提升还是很有必要的。虽然文章有点御笔性质，但观点还是可以的。

没什么感觉，正如两年前神5那样，没有什么大喜的感觉。

应该是顺理成章的事情，无论成败。

快两年没联系了，不知道你过得如何。

Happy birthday to you!