Arondes Arondes
闲来无事,只想睡觉.
关注数: 3 粉丝数: 292 发帖数: 18,681 关注贴吧数: 7
通过SQLite获取时间 在说明手册3.1中提到,“Dates 相关的计算和转换我都尝试失败”。经过我的测试,确实如此,可能是Simple语言本身的Bug,或者别的原因。目前来看,最好的办法就是回避使用这一整套函数库。那么假如想获取时间日期的信息该如何操作呢?答案不是唯一的,我这里介绍的就是靠SQL来实现。 Ø 获取当前日期 Select Date('now'); 结果如:2014-03-18 注意:Select 等语句的大小写不敏感,但最后的分号是不可缺少的。 Ø 获取当前时间 Select Time('now'); 结果如:03:11:20 可能有人发现了,这个时间不对呀!其实是因为默认的情况下调用的是格林威治标准时间,如果是想获取本地时间的话需要改为: Select Time('now','localtime'); 人工调整的话可以用: Select Time('now','+8 hour'); Ø 同时获取当前日期和时间 Select DateTime('now'); 怎样在VB4A中使用这些语句呢?很简单: Dim xstr As String xstr=Application.SQLPREPARE("test.db","Select DATETIME('now');","", "") Application.ToastMessage(xstr) 在这里,test.db的名字是我随便取的,你也可以任意。后面的两个参数分别是记录之间的分隔符与行之间的分隔符,我这里全部省略了,所以用的是空的字符串。特别值得注意的是,我这里的SQL语句中,用的都是单引号(比如’now’),如果是双引号的话,需要用\"now\",否则会出错! 接下来是一些更细致的语句 Ø SELECT strftime('%Y','now'); 获取年 Ø SELECT strftime('%m','now'); 获取月(注意m的大小写!) Ø SELECT strftime('%d','now'); 获取日 Ø SELECT strftime('%H','now'); 获取小时 Ø SELECT strftime('%M','now'); 获取分钟(注意M的大小写!) Ø SELECT strftime('%S','now'); 获取秒 其他相关的内容可以查阅SQL方面的参考资料。
利用AppleScript汇总照片的exif信息 我的目的很简单,就是想通过写一个脚本,把自己在Aperture中选定的照片exif信息汇总一下:光圈快门iso焦距——自动做成一个表格文件。这样你就可以统计一下自己经常拍的照片是什么曝光参数。其实这个功能在很多软件中都已经实现,我只是作为一个学习脚本语言的小作业。今天学了好几个小时才会一点入门的功夫呢! AppleScript差不多就相当于Mac里面的VBA(当然VBA我也不是很懂,反正都说微软office因为有VBA所以牛),可以自动化的完成很多繁琐的工作。它可以与Aperture等苹果的软件完美结合,提高工作效率。 下面我就说一下这个脚本的工作流程: 首先打开aperture,把你想要统计的图片都给选中,运行脚本 脚本会在桌面试着建立一个Export文件夹,然后根据文件夹内已有文件的情况,按序号建立一个csv文件。比如说上次已经生成一个1.csv,那么这次就自动建立一个2.csv 然后脚本会把你选中的图像的exif信息全部都放进这个2.csv里面去,因为mac office似乎把’;‘而不是’,‘作为csv的分隔符,所以我这里也是用了分号。如果你要转移到win平台下,可以自己改动代码,也可以在excel里面用“分列”来解决。目前只包含了光圈快门iso焦距4项参数,你可以自己添加! 目前还有一个bug:如果你选择的图片不包含exif信息的话,它会自动把上一个图片的信息重复输进去,我还没想好咋解决,反正先放出来吧。另外我有些地方明明输入的是“\n”,编辑器自动给我改成实体的换行了,也是一样运行,不是代码出错 全部代码如下,开源哦 你只要输进mac自带的脚本编辑器就可以了! tell application "Finder" set exfolder to path to desktop folder as string if (exists exfolder & "Export" ) is false then display dialog "将创建新的导出文件夹" buttons {"好的", "不要嘛"} if button returned of result is "好的" then make new folder at desktop with properties {name:"Export"} else return end if end if set tail to 1 set aFile to exfolder & "Export:" & tail & ".csv" repeat while exists file aFile set tail to tail + 1 set aFile to exfolder & "Export:" & tail & ".csv" end repeat set fp to open for access aFile with write permission end tell try tell application "Aperture" set imageSel to (get selection) write "ISO; Aperture; Shutter; Focal Length " to fp repeat with i from 1 to count of imageSel tell item i of imageSel try set iso to value of EXIF tag "ISOSpeedRating" set apt to value of EXIF tag "ApertureValue" set sht to value of EXIF tag "ShutterSpeed" set fl to value of EXIF tag "FocalLength" end try end tell write iso as string to fp write "; " to fp write apt as string to fp write "; " to fp write "1/" & (round (1 / sht as real)) as string to fp write "; " to fp write fl as string to fp write " " to fp end repeat close access fp end tell on error close access fp end try
发一个源代码:生成一组正态分布的随机数 这次写的稍微比较认真。我发现Simple语言从基础来说是有些过于薄弱了,很多东西都没办法简单的实现,只好自己从头造。这段代码之所以这么长,也就是为了保证运行起来比较高效,在小米3手机上试了一下,大概一两秒可以生成10000个正态随机数,基本也就凑活够用了。百度似乎把缩进给去掉了…… count是生成的数量,mean均值,sd方差 Function rnorm(count As Long , mean As Double , sd As Double) As Double() Dim temp1 As Double() Dim temp2 As Double() Dim result As Double(count) Dim R As Double Dim T As Double Dim tempn As Long Dim i As Long Dim j As Long j=0 If count<=0 Then rnorm=result End If If (count Mod 2)=0 Then tempn=count/2 temp1=New Double(tempn) temp2=New Double(tempn) For i=0 To (tempn-1) temp1(i)=Rnd() temp2(i)=Rnd() R=Sqr(-2*Log(temp1(i))) T=2*PI*temp2(i) result(j)=mean+R*Cos(T)*sd j=j+1 result(j)=mean+R*Sin(T)*sd j=j+1 Next i rnorm=result End If If (count Mod 2)=1 Then tempn=(count+1)/2 temp1=New Double(tempn) temp2=New Double(tempn) temp1(0)=Rnd() temp2(0)=Rnd() R=Sqr(-2*Log(temp1(0))) T=2*PI*temp2(0) result(j)=mean+R*Cos(T)*sd j=j+1 If count=1 Then rnorm=result End If If count>1 Then tempn=(count-1)/2 temp1=New Double(tempn) temp2=New Double(tempn) For i=0 To (tempn-1) temp1(i)=Rnd() temp2(i)=Rnd() R=Sqr(-2*Log(temp1(i))) T=2*PI*temp2(i) result(j)=mean+R*Cos(T)*sd j=j+1 result(j)=mean+R*Sin(T)*sd j=j+1 Next i rnorm=result End If End If End Function
【汉水阆苑】关于写作《若吧史》的意见讨论 附注:以下内容,并非定稿,希望大家多给一些意见和补充。 所谓若吧史,就是周芷若吧的历史。我曾想过一些其他名字,但总是感觉不够贴切。三个字的话,比较简洁有力。大家再想想,提点建议。我们写这个史,一方面,是为了记录自己曾经付出的青春;另一方面,总结一下自己在这里认识的许许多多的人,许许多多的事。 首先要讨论体裁。我个人的意见是纪传体,原因就在于这样比较便于集思广益。按编年来说,不好给每个人分配任务。以纪传体的话,我的打算就是,每个人呢,写自己的部分。对于找不到的人,相关的人来写。 本纪:收录所有历任大吧主的资料。 1. 收录要全面,尽量都找齐。最好是每人写自己的部分。 2. 如果找不到本人的话,由同期相关人员负责编写。 3. 对于集体领导的帐号,不要作为一个整体来写,主要的参与者,每人来写自己的部分,最后附注一下。 4. 按时间顺序排列。不一定完全严格,但是要大体遵循这个规矩。 5. 每个人担任吧主的时间,尽量要写清楚。同时担任的吧主,写的内容肯定有交错的,那么可以对照参考。 6. 按一般史书惯例,“本纪”并不完全是个人传记,任职期间若吧发生的重要事情也应该有所涉及,所以这个比较困难,需要花时间。 列传:收录所有其他成员的资料。 1. 由每个人负责编写自己的部分,本着自愿原则征稿。条件允许的话,也可以为自己熟悉的朋友代写。 2. 写清楚自己加入的时间,发的第一个帖子,其他一些有意义的事件等等。尽量把自己发的比较重要的帖子列举过来,不必原文,给出链接即可。 3. 最好不要泄露过多个人信息。基本上写清楚自己哪里人,上学/工作的一般状况就可以了,以贴吧相关内容为主。 4. 如果担任过小吧主等其他职务的,尽量写清楚自己什么时期担任的,主要做了哪些值得一提的工作。 5. 有很多个小号的,仅选取最重要的一个。其他的,根据本人意愿公开与否,可以列入备注。 志:收录所有规章制度方面的资料。比如: 1. 吧务管理方面的历次规定 2. 一些重要的规矩的形成。比如:发帖前缀,每月一次的聊天室等等。 3. 本吧举办的历次重要活动。比如拜年/征集活动等等。 4. 由编委会协作完成,广泛征求意见。 5. 也包括其他的未列入个人传记的重要内容 大体上就是这三部分。按说,“表”也是需要的,可是我觉得这个过于琐碎,不是当务之急。 可以有这么一个组织结构: 编委会成员: 包括写作公共部分内容的,画图的,编辑校对的,总结成书的。这个工作最重,需要负责任的人。有一定时间精力工作,而且经验比较丰富,思想比较成熟。不知你们看法如何。 一般成员: 自愿参与,主要是投稿,写好自己的部分。另外也可以浏览已经确认完工的部分并提出修改建议。 我目前是考虑可以用金山快盘作为编委会的合作平台,供主要的几位撰稿人来放置文稿和资料。金山快盘的好处在于可以协作,也就是几个不同的人可以对同一个文稿进行编辑。为了充分利用金山快盘的同步功能,请安装金山快盘软件。它会在你的本地硬盘上保留一个备份,而且同步更新,你在本地保存以后就自动上传到网上。国外有类似Dropbox的软件,我是怕国内被墙。 然后再有一个公共邮箱,接受一般成员投稿。 编委会定期更新已经完工的部分,公布并听取意见。 关于格式的话我也有考虑,尽量使用常见的,比如docx,rtf等格式。 那么关于这个问题,我想继续听下大家的看法。
弟弟为肥胖哥哥选墓志铭:如今很骨感 是不是博德之门的玩家呢? 2013-08-22 10:30:04 来源: 人民网(北京) 有1565人参与分享到墓志铭 楚天都市报讯 “我从前是个胖子,现在和所有躺着的人一样有骨感”……昨日是中元节(俗称鬼节),不少市民到公墓祭奠亲人。穿行墓碑间,一些以前难以见到的幽默墓志铭时不时映入眼帘。“这样的墓志铭,让人过目不忘,连墓园的氛围也感觉轻松了些。”昨日,祭祀亲人的王先生说。 子为父拟“逢赌必胜”铭文 昨日在扁担山公墓,不少祭奠亲人的市民,被一座墓碑的铭文吸引。这座墓的主人姓黄,享年58岁。逝者的妻儿为他竖立了墓碑。墓碑除了逝者影像、姓名、生卒年月日和立碑者姓名外,还有十六个字:海纳百川,逢赌必胜,如有可能,把我唤醒。 “看着这段墓志铭,就感觉这位逝者,生前肯定是个快活的人。”在这座墓旁边祭扫亲人的严女士笑着说,不少武汉人闲暇时都喜欢打牌,读了这段话,就像看到一个喜欢打牌的武汉男人,正跃跃欲试准备上场,“感觉蛮亲切、蛮轻松。” 记者联系上逝者的儿子黄先生。30岁的黄先生称,父亲生前住在汉口,比较喜欢打牌。今年初夏去世安葬在扁担山公墓后,家人就商量为其拟一段墓志铭。因为父亲生前豁达开朗,他们便拟出了这样一段墓志铭,纪念爱打牌的父亲。 弟弟挑幽默墓志铭纪念亡兄 “我从前是个胖子,现在和这里躺着的人一样有骨感……”这是扁担山公墓另一位逝者的墓志铭,刻在了墓地的大理石盖上,墓碑上逝者的身材胖胖的,一脸笑意。扁担山公墓前台接待人员罗颖还记得,家属为逝者选择公墓推荐的墓志铭时,逝者的弟弟一眼就瞧中了这一条。 “我哥哥生前有192斤,确实胖得很。”昨日,逝者的弟弟刘先生告诉记者,哥哥生前也是个快活人,非常直爽。但是后来患上了胰腺癌,越来越瘦,直至逝世。这条墓志铭他觉得很符合哥哥的性格和身材,嫂子和侄女也没有意见。刘先生说,每回来扫墓,看到墓碑上哥哥笑着的样子,和这段墓志铭,就感觉他还没有离开我们。 幽默墓志铭逐渐增多 “现在,选择幽默墓志铭的逝者家属逐渐多了。”罗颖介绍,公墓的墓志铭推荐手册上有七百多条,“从前,家属大多是看哪一条别人选得多,便选这一条,力求稳妥。”罗颖说,现在追求个性化的人多了起来,幽默的墓志铭开始得到关注。 记者看到,手册上的《幽默篇》中写了不少类似“生时何须久睡,死后自会长眠”、“一居室,求合租,面议”、“我觉得我还可以抢救一下!”等幽默感十足的墓志铭。 “墓志铭体现了对个体生命的尊重,也为生者与逝者提供了一个情感交流的空间。”扁担山公墓管理处党总支书记宋平认为,幽默的墓志铭逐渐多了,说明市民看待生死更理性、更平和、更达观了。他说,公墓倡导文明、现代的殡葬文化,希望大家进墓园时少些悲痛,多一点轻松,因此,幽默的墓志铭越来越多是他所乐见的。
孔卡难道会写中文吗?——微博事件解析 首先,这个微博基本可以确定是翻译所写。孔卡不懂中文,平时跟外界的联系也主要靠翻译的间接沟通,所以我们必须认识到,这个微博是否反映其本人真实意愿是值得怀疑的。翻译是恒大请来的吧?如果孔卡一时气愤要发布什么重量级消息,翻译只要稍微有点职业操守肯定会选择事先与俱乐部方面沟通,而绝不会贸然的把球员乱讲话的内容公布到网上。因此有很多人怀疑,这个微博实际上是恒大方面在做媒体压力测试,试探下球迷们的口风,以便做下一步决定。那么这个决定会是什么呢? 李章洙作为上赛季夺冠功勋教练,尽管很多人对他的水平有所不满,但是直接就叫他下课回家,显然是有卸磨杀驴的嫌疑,管理层谁也不愿意落下这个骂名。那么现在孔卡事件其实是一个很好的契机,一旦孔卡停赛后俱乐部战绩下滑,炒掉李章洙就有了充分的理由。所以这件事情,对于恒大来说是双赢:一方面通过重罚孔卡来给管理层立威,让其他球员深刻理解俱乐部的规章制度,没有人可以例外。另一方面李章洙一旦在接下来的几场比赛中发挥不佳,那么解雇他并换上其他名牌教头就有了充分的理由。事实上,作为“案犯”本人的孔卡,甚至可能对外面沸沸扬扬的微博事件一无所知——毕竟他也看不懂中国的报纸。
田中丽奈佐藤佑基被曝同居 男方承认恋情 10月29日发行的周刊《FRIDAY》曝光了一组女星田中丽奈和比自己小四岁的演员佐藤佑基热恋中的照片:两人一起骑佐藤的摩托车,以及手牵手走出公寓,处于半同居状态的样子。佐藤当天更新博客,大方承认恋情。 10月29日发行的周刊《FRIDAY》曝光了一组女星田中丽奈和比自己小四岁的演员佐藤佑基热恋中的照片:两人一起骑佐藤的摩托车,以及手牵手走出公寓,处于半同居状态的样子。佐藤当天更新博客,大方承认恋情。 网易娱乐10月30日报道 10月29日发行的周刊《FRIDAY》曝光了一组女星田中丽奈和比自己小四岁的演员佐藤佑基热恋中的照片:两人一起骑佐藤的摩托车,以及手牵手走出公寓,处于半同居状态的样子。佐藤当天更新博客,大方承认恋情:“这次因为我私人的事情让他们困扰了非常抱歉。事实就是报道所说的那样”。 佐藤向粉丝表达了歉意:“我作为一个演员还有很多不成熟的地方,没能够事先(在报道曝光前)鼓起勇气向大家报告这个消息,对不起”,并表示不会放弃演艺事业:“作为一个演员,会为得到更多的人认可而努力”,“不管作为一个男人还是演员都还有很多问题需要解决的我,会更坚强地前进”。田中和佐藤在去年NHK的电视剧《派遣的奥斯卡》中合作。
1 下一页