forcode：学习编程还是挺有用的，DIY一下，给工作生活带来了很多方便。前段时间实习，也自学了一下SAS，刚刚操练了一下这个小小的数据读取功能。

我使用google picasa来管理、编辑、上传我的照片，我在博客中经常图文并茂，需要引用宽度不超过540PX的照片，但是picasaweb相册并不支持生成宽度为500的图片列表，因此，我以前总是一张一张把需要的图片地址复制到”松鼠HTML编辑器”中，有时候一次上传数百张照片，这样一张一张复制地址，需要等待图片打开、需要复制粘贴每张图片地址，非常浪费时间。于是，我使用这种办法来提高效率：

1、在picasaweb相册页面你可以看到本相册内所有图片缩略图列表。下图使用的大型缩略图，宽288像素。推荐使用小型缩略图，宽度只有72像素，这样对于那些照片数量非常多的相册，打开速度比较快。

2、按住鼠标左键拖动选中你需要的图片，然后在选中的图片上点右键，在弹出的窗口中选择复制（IE中），这样你复制了选中区域的HTML代码。

3、然后粘贴在一个html编辑器的所见即所得界面。forcode用的是Zoundry Raven博客发贴工具，有design、XHTML和preview三个界面，在XHTML界面下可以看到所复制的内容的HTML源代码。可以看到，每一张缩略图的html源代码非常冗余，加入了DIV层和很多垃圾代码，如果直接将这些代码发到博客上，非常影响网页速度。下面forcode编写的SAS小程序就是要从这一段冗余的HTML代码中抽取出图片地址，下面的代码中我们只需要这个图片地址，其他部分都是垃圾：http://lh5.ggpht.com/wufeng1211/SFDDqEBgEdI/AAAAAAAAE-g/36ZozFibiRI/s288/100_1383.JPG
如果相册图片数量不多，手工复制就可以了；但是如果相册内有数百张图片，手工复制这些地址非常消耗时间。为了用SAS程序来从原始的HTML源代码中读取出我们需要的图片地址列表，先将HTML源代码保存成一个文本文件picasa.txt，我是保存在这个目录下：D:\0docs\My SAS Files\9.1\forcode\

这是picasaweb相册内一张图片的html源代码：

<div class=”lhcl_thumb_row”>
<div class=”lhcl_thumb_captionbox”></div>
</div>
<div style=”Z-INDEX: 67″ onmouseout=”_d(&#39;thumbHover&#39;, this, 1, false)” onmouseover=”_d(&#39;thumbHover&#39;, this, 1, true)”
onclick=”_d(&#39;thumbClick&#39;, this, 1);” ondblclick=”return false;” class=”lhcl_thumbnail”>
<div style=”WIDTH: 298px; HEIGHT: 226px” id=”lhid_t1″ class=”lhcl_thumb_row”>
<div style=”WIDTH: 288px; HEIGHT: 216px” id=”lhid_b1″ class=”lhcl_greybox”>
<img src=”http://lh5.ggpht.com/wufeng1211/SFDDqEBgEdI/AAAAAAAAE-g/36ZozFibiRI/s288/100_1383.JPG” style=
“WIDTH: 288px; HEIGHT: 216px” height=”216px” width=”288px” />
</div>
</div>

4、然后，forcode写了一个SAS小程序来从这个HTML源代码文件读取出图片地址列表：

data picasa;
infile “D:\0docs\My SAS Files\9.1\forcode\picasa.txt”;
input @’<img src=”‘ imageurl :$90.;
proc print data=picasa noobs;
run;

这个程序中最关键的就是变量读取语句：input @’<img src=”‘ imageurl :$90.;这表示从picasa.txt这个文件第一行开始，每当遇到<img src=”这样的代码，就开始读取变量imageurl的一个值，读取长度最大为90，类型为字符型。为什么设为90？因为forcode数了一下，google picasaweb相册缩略图地址的长度一般不超过90，而且每一张缩略图的长度都相同。下面这个图片地址的字符长度为85，其中wufeng1211是我的picasa相册用户名，长度为10，这个用户名有长有短，不过一般人的用户名也不会超过15个字符吧，如果你的用户名特别长可以将90改大一点。
http://lh5.ggpht.com/wufeng1211/SFDDqEBgEdI/AAAAAAAAE-g/36ZozFibiRI/s288/100_1383.JPG

5、运行上面的程序，就得到了图片地址列表，复制到记事本中，将http替换成<img src=http，将jpg”替换成jpg><br>，然后查找替换s288为s512就得到了宽度为512像素的图片列表HTML源文件，保存成htm格式，用浏览器打开就得到了宽度为512像素的图片列表。

–
未来新技术和新趋势的种种可能：奇想录 http://www.qixianglu.cn
订阅 http://feed.feedsky.com/woodphone 奇想录作者QQ群:50108840
欢迎读者们给奇想录投稿赚取稿费：http://www.qixianglu.cn/tougao
奇想录读者讨论区-奇想家园：http://www.douban.com/group/forcode
读者QQ群1号:11564958 读者QQ群2号:61921847 读者QQ群3号:61921931

Technorati : SAS, google, picasa, 编程
Del.icio.us : SAS, google, picasa, 编程
Zooomr : SAS, google, picasa, "tag">编程
Flickr : SAS, google, picasa, 编程

你可能对这些文章感兴趣：

• 2008-03-14 -- Skype和SAS的正确读音 (2)
• 2008-02-26 -- forcode点评：用iPhone弹吉他和弹钢琴（视频） (1)
• 2008-02-24 -- forcode点评：未来编程语言更新换代带来的挑战和机遇 (1)

Related posts:

1. 如何看出你家小猫预计要杀掉你？（组图） 婚禮過後沒幾天 最近有一場小小的喪禮 這就要從我們家的貓開始說起…………… 貓有種習慣 就是會狩獵然後把獵物獻給主人 至於貓為什麼會這麼做呢 根據這本參考資料……… 貓的獻上供品其實是…….. 唔……….. 回想一下我們家的貓...
2. Google Reader 下周将改版 根据 Google Reader 的官方 Blog，Reader 下周将会有一个较大的改版。主要有2个方面的改动：用户界面及整合 Google+。 估摸着用户界面的改动就是走向小清新化了（终于。。），而整合 Google+ 也顺理成章。...
3. Google 复杂的招聘流程 去 Google 工作想必是许多人的梦想。还记得以前有位老兄 Matthew Epstein 吗？他专门制作了一个 googlepleasehireme 网站，想以此混进 Google。虽然 Techcrunch 的编辑好心的预言他会被雇佣，但最终结果还是碰了壁。Google 让他走正规渠道。 Google 之所以有吸引力不仅因为它的庞大，它的野心和梦想，而且因为那里的环境非常人性化。那里有免费午餐、干洗店、健身中心、游泳池和视频游戏区。员工们甚至可以带着宠物来上班。 只是，加入 Google 这个大家庭并不容易，如果你不是 Andy Rubin，而是一个普通的电工，那就没有绿色通道可循。如何进入 Google ？这幅信息图将告诉你。 Google 每年收到的简历超过100 万份，他们通常会雇佣 4000-6000 人。 雇佣过程被 Business insider 网站 称为不可思议的复杂： 招聘人员审查简历：招聘人员要审查每一份简历，根据技术能力、教育程度和工作经验来判断是否合格。 招聘人员电话通知：招聘人员会联系你，解释过程，让你知道应该有什么期望。如果是技术工程师的职位，可能会问你的 SAT 分数(美国高中生进入美国大学所必须参加的考试 )和大学 GPA（平均成绩点数）。 面试。第一次面试通常是通知 4-5 个人，每个人有 45 分钟的时间。如果是应聘工程师职位，你可能需要回答现实的技术问题，或者通过编程解决某个问题。也可能有些怪问题，比如“一辆校车里能装多少个高尔夫球”。 面试者回馈。每个面试者都要将他们对应聘者的印象以标准格式填写，并对每个应聘者进行数字排名。然后应聘者的简历将于现有员工的简历进行匹配，如果发现某位应聘者与公司员工曾在一个学校就读或一个公司工作，便会有一封邮件发给公司员工，询问他对应聘者的意见。...
4. A股最慷慨公司:2010年11家公司股息率超定存 　　昨日本系列报道找出了2005年至2010年累计派现居前的17只现金奶牛股。那么，按照股息率计算，谁又会是真正“最慷慨”的上市公司呢？ 　　证券时报网(微博)络数据部的统计显示，以2010年年终收盘价及当年累计的现金分红简单计算，2010年A股公司中共有21家上市公司股息率(税后，以下同)超过3%，主要集中在银行、运输、基建、服装等高分红的传统行业，其中跑赢一年定期存款利率3.5%的有11家。 　　排名前三位的是福耀玻璃(8.45,-0.04,-0.47%)、宁沪高速(5.78,0.06,1.05%)和宝钢股份(5.12,-0.01,-0.19%)，股息率分别达5%、4.88%和4.23%。公路行业公司一直具有高分红的传统，宁沪高速也是出名“大方”的上市公司，6年来持续派现，累计达每10股11.85元。紧随其后的宝钢股份，6年累计派现每10股17元。 　　股息率超过1年期定期存款利率的还包括3家银行股——建设银行(4.78,0.03,0.63%)、中国银行(2.95,0.00,0.00%)(微博)和工商银行(4.29,0.01,0.23%)，股息率分别为4.16%、4.07%和3.91%。此外，还有雅戈尔(10.42,-0.06,-0.57%)(微博)、大秦铁路(7.60,-0.08,-1.04%)、晨鸣纸业(5.80,0.00,0.00%)、中信证券(11.69,-0.01,-0.09%)和宗申动力(6.45,-0.02,-0.31%)，股息率分别为4.12%、4.03%、3.82%、3.57%和3.55%。 　　值得注意的是，在这2010年股息率超过定期存款的11家公司中，有多家公司股息率连续多年保持高水平。据记者粗略统计，剔除2007年，宝钢股份、大秦铁路、中国银行、工商银行、晨鸣纸业2005年以来每年都保持了超过1%以上的派息率。 　　不过，稳定的分红与公司的业绩增长并无明显的相关性。在这些高股息率的公司中，既有业绩逐年稳定增长的公司，如福耀玻璃的净利润从2005年的39172万元攀升至2010年的178776万元，年均增长率达35.48%，2009年和2010年更是净利润集中发力的两年，分别增长353.96%和60.05%。公司于2006年开始派现，2008年间断过一年，4年累计每10股派15.5元，处于较高水平。宁沪高速也是属于盈利稳定、成长明确的公司，净利润年均增长率为28.96%；也有增长缓慢的蓝筹股，典型如宝钢股份，作为钢铁行业龙头公司，2008年、2009年业绩均有所下滑，其净利润6年来年均增长率仅为0.35%。 　　此外，从二级市场看，股息率排名前三甲的宁沪高速和宝钢股份近年来股价一直表现相对疲弱，福耀玻璃今年以来也持续回落，这些持续派现的公司股价涨跌与其分红的多少也没有明显相关性。 　　2010年股息率超3%股票 代码...
5. 福州是否有新生儿保险 是否有新生儿保险 诉求编号 09091700041 诉求标题 是否有新生儿保险 诉求内容 新生儿的医疗费用高，是否有新生儿的保险或者相关保障措施？我这里指的新生儿是指刚出生几天，新生儿一般要做很多检查，这些费用居高不下，却没列入保障范围，给家庭是个很大的负担，不知道政府是否有相关保障措施，解决这个盲点 [...]...

以上关联文章由 Yet Another Related Posts Plugin 提供支持。