预览模式: 普通 | 列表

Office文档处理的一些实用技巧

Office系列文档处理软件功能相当强大,有很多实用功能会偶尔用到,记下来备忘吧。

从Word文档里把某些字符串提取出来。

提取手机号的方法:在“查找”里输入“[0-9]{11}”,记得点开“高级“选上“使用通配符”,并选上“突出显示所有在该范围找到的项目”,再点“查找全部”。如下图所示:

把邮箱地址提取出来的,查找内容输入:”[A-z,0-9]{1,}\@[A-z,0-9,\.]{1,}“,未测试。

EXCEL文档的除重的方法:数据->筛选->高级筛选

查看更多...

Tags: 提取内容 除重 正则表达式

分类:资源 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 926

让人不可理解的逆天的事情

我是一个比较在意细节的人,但又没什么条件去讲究细节,或者说追求所谓的细节。我一直奉信这样的说法:精致生活,要追求细节;但生活中的太多细节不够精致。下面是我自己在意的又无法改变的东西,或者从理论上讲本是合理的东西而我无知,不管怎样我就拿出来说道说道,聊以泄怨吧。

固定电话的“请在您拔的号码前加拔0”

从我开始会用固定电话拔电话起就经常听到这句话,都20多年了,就一直很郁闷很烦躁,很是多次问候过中国电信(谁让中国电信的固定电话业务多些)的好几代祖宗。我一直不明白为什么现在是数字时代了还不解决这个问题?难道在被 拔的号码前自动加个零会很难吗?或者像手机一样不管是长途短途都直接拔号很难吗?因为手机号码在国内是唯一的,无论是长途还是短途。

固定电话号码升位的惯例

城市或区域发展一般都是这样的,人由少变多,电话用户也是由少变多,所以我经历过好几个城市的电话升位:由原来的7位数升到后来的8位数。我大学的专业是信息管理,学的专业里有统计学、信息检索学,还有数据库,所以从信息处理的角度来讲,编码的位数决定了编码的容量。我就不明白了,为什么任何一个城市的电话号码都是从7位数开始启用的?退一步来说,可能70多年前的城市规划者没有预料到城市人口的数量会增长这么快量会这么大,这个可以理解。但为什么不从第一个城市升位的那天起,所有的城市都启用8位数的电话号码或9位数的(当然9位数的可能确实用不到了),因为这个事情对于很多城市来说是必然的。迟规划不如早规划,不然很多电话用户都会因为号码升位而带来额外的成本。电信的技术不是特别懂,但会因为这么个位数的变化带来很大成本的上升吗?其实完全可以参照当年身份证号码升位还有千年虫这样的案例。

查看更多...

Tags: 设计 人性化

分类:闲话 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 849

同学会·沈阳游

9月10日下午5点多抵达沈阳的桃仙机场,略有凉意思,但绝对算不上冷,与我的心情人点像:略有忐忑,虽然不是第一次在毕业后生返校园,但毕竟这次会见到的同学有更多,且大部分是17年来一直没有见过的。

我对沈阳的感情一直都是比较特殊的,把她当成了第二故乡。因为大学是人生非常重要的一个阶段,而且一般高中以下都是在老家本地读书,只有大学才是外地,所以大学所在地一般被认为是第二故乡。当然,地域其次,感情的成份最为最重要。我在大学时经历了一些我人生中比较重要的事情,也遇到了一些真正帮助我且不求回报的人,当然还有一大群感情真挚或近或远的同学情。

这次的聚会应该说的很好,进行的非常顺利,结束得很成功圆满。事前是期待的,过程是愉快的,结束是不舍的,对以后的聚会又是更期待了。

共有14位同学参加。

聚会的主题是回忆美好过去,畅想幸福未来。叙旧是最主要的:当年的点滴,离别后的一些经历。大概的活动流程是:先去学校的南北院参观。南院的音乐厅,北院的新图书馆,再在旧主楼里开了个班会,有两位专业课老师、两位指导员(班主任)老师、一位校友会老师到场。后在校园里拍照留念。

不过我的工作没有做好,关于影像的采集与制作,本来是我来负责的,但由于一些原因,导致要其他同学临时赶赴,实在不该。

查看更多...

Tags: 母校 同学会 沈阳 师生情

分类:闲话 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 766

ASP不能正确获得JPG图片的尺寸

 一般情况下,用下面的函数是可以正确获得JPG(不能是JPEG)图片的像素大小的,比如1024*768PIX这样的。

ASP/Visual Basic代码
  1. '获取图片的像素大小  
  2. Class imgInfo  
  3.     dim aso  
  4.     Private Sub Class_Initialize  
  5.         set aso=CreateObject("Adodb.Stream")  
  6.         aso.Mode=3  
  7.         aso.Type=1  
  8.         aso.Open  
  9.     End Sub  
  10.     Private Sub Class_Terminate  
  11.         err.clear  
  12.         set aso=nothing  
  13.     End Sub  
  14.   
  15.     Private Function Bin2Str(Bin)  
  16.         Dim I, Str  
  17.         For I=1 to LenB(Bin)  
  18.         clow=MidB(Bin,I,1)  
  19.         If ASCB(clow)<128 Then  
  20.         Str = Str & Chr(ASCB(clow))  
  21.         else  
  22.         I=I+1  
  23.         If I <= LenB(Bin) Then Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow))  
  24.         End If  
  25.         Next  
  26.         Bin2Str = Str  
  27.     End Function  
  28.   
  29.     Private Function Num2Str(num,base,lens)  
  30.     dim ret  
  31.     ret = ""  
  32.     while(num>=base)  
  33.     ret = (num mod base) & ret  
  34.     num = (num - num mod base)/base  
  35.     wend  
  36.     Num2Str = right(string(lens,"0") & num & ret,lens)  
  37.     End Function  
  38.   
  39.     Private Function Str2Num(str,base)  
  40.         dim ret  
  41.         ret = 0  
  42.         for i=1 to len(str)  
  43.         ret = ret *base + cint(mid(str,i,1))  
  44.         next  
  45.         Str2Num=ret  
  46.     End Function  
  47.   
  48.     Private Function BinVal(bin)  
  49.     dim ret  
  50.     ret = 0  
  51.     for i = lenb(bin) to 1 step -1  
  52.     ret = ret *256 + ascb(midb(bin,i,1))  
  53.     next  
  54.     BinVal=ret  
  55.     End Function  
  56.   
  57.     Private Function BinVal2(bin)  
  58.     dim ret  
  59.     ret = 0  
  60.     for i = 1 to lenb(bin)  
  61.     ret = ret *256 + ascb(midb(bin,i,1))  
  62.     next  
  63.     BinVal2=ret  
  64.     End Function  
  65.   
  66.     Private Function getImageSize(filespec,filefrom)  
  67.     dim ret(3)  
  68.     select case filefrom  
  69.         case 1  
  70.             '1为同域文件,否则为异域文件  
  71.             aso.LoadFromFile(filespec)  
  72.         case 2  
  73.             ASO.Write filespec  
  74.             ASO.Position = 0  
  75.     end select  
  76.     bFlag=ASO.Read(3)  
  77.     select case hex(binVal(bFlag))  
  78.     case "4E5089":  
  79.     aso.read(15)  
  80.     ret(0)="PNG"  
  81.     ret(1)=BinVal2(aso.read(2))  
  82.     aso.read(2)  
  83.     ret(2)=BinVal2(aso.read(2))  
  84.     case "464947":  
  85.     aso.read(3)  
  86.     ret(0)="GIF"  
  87.     ret(1)=BinVal(aso.read(2))  
  88.     ret(2)=BinVal(aso.read(2))  
  89.     case "535746":  
  90.     aso.read(5)  
  91.     binData=aso.Read(1)  
  92.     sConv=Num2Str(ascb(binData),2 ,8)  
  93.     nBits=Str2Num(left(sConv,5),2)  
  94.     sConv=mid(sConv,6)  
  95.     while(len(sConv)<nBits*4)  
  96.     binData=aso.Read(1)  
  97.     sConv=sConv&Num2Str(ascb(binData),2 ,8)  
  98.     wend  
  99.     ret(0)="SWF"  
  100.     ret(1)=int(abs(Str2Num(mid(sConv,1*nBits+1,nBits),2)-Str2Num(mid(sConv,0*nBits+1,nBits),2))/20)  
  101.     ret(2)=int(abs(Str2Num(mid(sConv,3*nBits+1,nBits),2)-Str2Num(mid(sConv,2*nBits+1,nBits),2))/20)  
  102.     case "FFD8FF":  
  103.     do  
  104.     do: p1=binVal(aso.Read(1)): loop while p1=255 and not aso.EOS  
  105.     If p1>191 and p1<196 Then exit do else aso.read(binval2(aso.Read(2))-2)  
  106.     do:p1=binVal(aso.Read(1)):loop while p1<255 and not aso.EOS  
  107.     loop while true  
  108.     aso.Read(3)  
  109.     ret(0)="JPG"  
  110.     ret(2)=binval2(aso.Read(2))  
  111.     ret(1)=binval2(aso.Read(2))  
  112.     case else:  
  113.     If left(Bin2Str(bFlag),2)="BM" Then  
  114.     aso.Read(15)  
  115.     ret(0)="BMP"  
  116.     ret(1)=binval(aso.Read(4))  
  117.     ret(2)=binval(aso.Read(4))  
  118.     else  
  119.     ret(0)=""  
  120.     End If  
  121.     end select  
  122.     ret(3)="width=""" & ret(1) &""" height=""" & ret(2) &""""  
  123.     getimagesize=ret  
  124.     End Function  
  125.   
  126.     Public Function imgW(pic_path,filefrom)  
  127.         '参数filefrom是判断文件是远程http开头的还是本地的  
  128.         '1为本地,2为远程  
  129.         select case filefrom  
  130.             case 1  
  131.                 Set fso1 = server.CreateObject("Scripting.FileSystemObject")  
  132.                 If (fso1.FileExists(pic_path)) Then  
  133.                     Set f1 = fso1.GetFile(pic_path)  
  134.                     ext=fso1.GetExtensionName(pic_path)  
  135.                     select case ext  
  136.                     case "gif","bmp","jpg","png":  
  137.                     arr=getImageSize(f1.path,1)  
  138.                     imgW = arr(1)  
  139.                     end select  
  140.                     Set f1=nothing  
  141.                 else  
  142.                     imgW = 0  
  143.                 End If  
  144.                 Set fso1=nothing  
  145.             case 2  
  146.                 Arr=GetImageSize(pic_path,2)  
  147.                 imgW = Arr(1)  
  148.         end select  
  149.     End Function  
  150.   
  151.     Public Function imgH(pic_path,filefrom)  
  152.         select  case filefrom  
  153.             case 1  
  154.                 Set fso1 = server.CreateObject("Scripting.FileSystemObject")  
  155.                 If (fso1.FileExists(pic_path)) Then  
  156.                 Set f1 = fso1.GetFile(pic_path)  
  157.                 ext=fso1.GetExtensionName(pic_path)  
  158.                 select case ext  
  159.                 case "gif","bmp","jpg","png":  
  160.                 arr=getImageSize(f1.path,1)  
  161.                 imgH = arr(2)  
  162.                 end select  
  163.                 Set f1=nothing  
  164.                 else  
  165.                 imgH = 0  
  166.                 End If  
  167.                 Set fso1=nothing  
  168.             case 2  
  169.                 Arr=getImageSize(pic_path,2)  
  170.                 imgH = Arr(2)  
  171.         end select  
  172.     End Function  
  173. End Class  

但下面这两个图片却不行,没办法获得。

图片是用iPhone 5S手机拍摄的,并在电脑上简单编辑过的。

解决的方法比较简单直接,把图片转换成PNG的,就可以了。

查看更多...

Tags: 图片尺寸 图片大小 ASP

分类:网络 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 674

取多个类别的前几条数据的SQL语句

 有一现实问题,想取某些类的前几条记录

SQL代码
  1. select * from BaikeInfo a where a.id in (select top 5 b.id from BaikeInfo b where b.Class = a.Class order by posttime descorder by Class, posttime desc  

 结果如下:

id     title    typeid posttime

3     1.3     1          3

2     1.2     1          2

6     2.3     2          6

查看更多...

Tags: 分组 查询 SQL

分类:数据 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 747