小货工作室

今天做关键词排序的时候用到的排序，记录一下，防止丢失 统计一个文本的文字重复次数 比如： 1，1，2，3，4，5，1，5，5，1，2，3， 结果：1，5，2，3，4 1出现4次 所以排第一 5出现3次 排第二 function MySort(List: TStringList; Index1, Index2: Integer): Integer; var I,J:Integer; begin I:=Integer(List.Objects[Index1]); J:=Integer(List.Objects[Index2]); if i>j then Result:=-1 else if i<j then Result:=1 else Result:=0; end; procedure TForm1.btn1Click(Sender: TObject); var slResult,slTmp:TStringList; I,Idx:Integer; begin mmo1.Clear; slTmp:=TStringList.Create; slResult:=TStringList.Create; try //统计. //注意这个,如果是英文的逗号. slTmp.Delimiter:=’,’; slTmp.DelimitedText:=edt1.Text; for I:=0 to slTmp.Count-1 do begin Idx:=slResult.IndexOf(slTmp[i]); if Idx=-1 then slResult.AddObject(slTmp[i],TObject(1)) else slResult.Objects[Idx]:=TObject(Integer(slResult.Objects[idx])+1); end; //排序 slResult.CustomSort(MySort); //打印 for I:=0 to slResult.Count-1 do mmo1.Lines.Add(Format(‘排第%D位的是%S,个数:%D’,[i+1,slResult[i],Integer(slResult.Objects[i])])); finally slResult.Free; slTmp.Free; end; end; http://zhidao.baidu.com/question/126798451.html

前两天申请了新空间，装上了WP，今天就开始换了新皮肤，挂上GG了 然后开始采集文章，想起以前让人蛋疼的autotag插件就觉得不爽 好像是直接利用YAHOO的相关搜索关键词，其实很多tag都风马牛不相及 我还是喜欢DEDE那种在文章内部直接提取关键词的 当然我没那么有空去弄什么词库，然后对比什么词库里的词的出现频率 我想直接就读取文章，然后去掉所有垃圾代码，只剩下单词，单词中间用空格隔着 然后进一步去掉一些短的词，把剩下的词按出现频率排序，取前面几个词就可以了 有了思路就好办了，花了半天时间去弄，但是中间有一些具体的函数啥的，我都不太懂，只好GOOGLE了 不过最终都解决了 完工后去采集了一些文章，伪原创后提取TAG，效果还可以，就是有一些词太常见，以后等TAG多了再把太常见的词弄一个词库，然后在TAG里去掉就可以了 这个功能以后再增添了 前几天刚开到配置文件ini文件的文章，今天用上了这些东东 想想确实方便很多，以后即使数据库结构修改了，直接在配置文件里改一改就可以了，免得又要编译一次

发现在国际上中国人的名声确实不太好 有便宜就占那是出了名的了~ 就像申请免费空间，中国人总是蜂拥而上，最后导致了杯具 不是那空间倒了就是屏蔽了中国IP段的申请 最近发现用轮子的自由door还是可以申请的 显示的是美国的IP，哈哈哈 至于美国的地址邮编什么的，上百度一搜索就出来了 一个字：爽；两个字：很爽；三个字：非常爽。 发现老空间不倒的原因是没人用，没人用的原因是实在太破~ 申请了两个后发现，一个经常性不能访问，另外一个FTP不能用，用国外的NETFTP进去后是空白，似乎系统有问题，只能用他提供的WEB上传工具，杯具的是，他提供了两种上传方法，一个是单文件，一个是多文件同时上传，可是只有单文件上传是可行的，多文件上传的时候老是提示文件夹出错 真实够垃圾的系统，过了几天直接进不去了，貌似好不容易上传的文件全被删除了 真实郁闷到家 型号另外一个至少能访问期间还算正常，将就用用看，采集点数据弄上去

不知道是JS太多还是其他问题 反正刷了4~5次都开不了~而且右边的广告变源码了 忽然想起其实可以用软件直接收取邮件的 于是找了一下它的POP3： POP3 设置 POP3 是通过其他设备或服务（例如手机、计算机中的电子邮件程序或其他电子邮件服务）接收 Hotmail 收件箱中的电子邮件的一种方式。您无需更改任何 Hotmail 设置，但是当您添加 Hotmail 帐户时，手机、电子邮件程序或服务可能会要求您输入您的 Hotmail POP3 设置。 Hotmail POP3 设置： 字段 值 接收 POP 服务器 pop3.live.com 接收 POP 邮件端口 995 要求 POP SSL 是 用户名 您的 Windows Live ID（例如：example555@hotmail.com） 密码 用于登录 Hotmail 的密码 发送 SMTP 服务器 smtp.live.com 发送 SMTP 邮件端口 25 或 587 要求验证 是（您的 Windows Live ID 和密码） 要求 TLS/SSL 是（如果可以请选择 TLS，否则请选择 SSL） 这下不用愁了，收信速度飞快啊 但是不懂那种被列为垃圾邮件的会不会收得到 因为我是收申请免费空间的信，经常被丢到垃圾邮件箱里~ 先观察一段时间再说

以前一直没这个问题，但是今天发现竟然出错了 上网找了很久的资料~都说是在复制的时候切换的中文输入法就可以了 可是很多网站都没说出个所以然出来，让我很是郁闷，没复制一次都要切换一次也是很麻烦的 后来看到了一个网站上说由于delphi是ANSI的API，所以复制到粘贴板的时候会有两套内容，一套是ANSI的，一套是UNICODE的，而记事本使用的是unicode的那一套，所以容易出现乱码 解决的办法仍然是切换到中文输入法，虽然暂时解决问题，但并非一劳永逸的办法 我不死心继续查找，终于又有新的发现 找到一篇文章： 消除WindowsXP中的复制乱码技巧 摘录一段： 我发现从金山词霸2002上复制内容也不能够正常复制的时候，我想到了金山论坛，于是在金山论坛上发表了一个帖子寻求帮助，几天后我重新来到金山论 坛，发现金山公司已经给出了解决方案。仔细看过解决方案以后我恍然大悟，知道我在哪里犯下了一个错误，同时也清楚地看到Windows XP还是有些地方做的不是很好。下面将详细地把方案提供给大家。 问题出在输入法里面，Windows XP默认的输入法为英语，键盘模式为美式键盘，这个选项一直用于Win98中，同时提供的还有中文键盘的模式，由于Win98中使用美式键盘没有任何问 题，所以我在设置的时候，把中文键盘删除了，只保留了英文键盘。就是由于这个问题才出现复制中出现乱码的问题。知道这些就很好办了，删除英文的美式键盘模 式，添加中文键盘模式并且设置为默认值就OK了。 总结：设置中文键盘模式并且设置为默认值 一切就迎刃而解了，以后不用再切换输入法了 回想这一两天有人用我的电脑，可能输入法不太合适，就到那里面乱调，记过就出现了上面的状况

editplus有个代码剪辑功能，一般就是目录里面的ctl文件，我们可以单独创建自己的剪辑文件，比如我经常做DEDE模板的话，把所有用到的剪辑（也就是代码片段）放到一个文件里，以后编辑模板的时候，只需要在剪辑窗口双击，那些剪辑就自动添加到光标的位置，大大缩减了我们的工作量，设想：我们弄一个模板只需要简单地点几下鼠标，那是多么爽的事情 剪辑文件也是非常好理解 文件前面几行可以随便写，一般是在选剪辑文件的时候用，比如我写DEDE，在剪辑选择下拉菜单那里就会显示这个名称，选中它就自动读入剪辑文件 #TITLE=dede? 这个就是剪辑标识，区分其他剪辑用的 #INFO dede #SORT=n? 这个是排序方式，可以不改 下面就很简单了 #T=这里写剪辑的名称 后面可以带一堆的代码，就是点剪辑名称的时候在编辑窗口自动填写的代码 然后第二个剪辑开始 循环N个剪辑 剪辑中可以用^!表示光标位置，为了提醒在剪辑中填写某些参数用的 一切就是那么简单，呵呵

This domain name has been seized by ICE - Homeland Security Investigations 只好又去申请了一个CO.CC 我那么频繁地换域名，主要是不想论坛的数据影响到主站 好在CO.CC申请很快 只是不知道能用多久，据说被删或者被屏蔽的很多 唉，又找不到好的，只好将就用着先了

我把StringReplace放到了一个循环里面，替换的值随着循环而改变 但是却没得到我预期的结果 我查看了一下，貌似定位不准确，很多本来应该往后几个字符再替换的，却跑到了前面去，把前面的几个字符给吃掉了一样，而且有些还重复替换了，循环了15次，有一小半的是重复替换了的 上网查了一下，有人说这个函数效率低，想想是有可能，但是为什么会出现这种状况我就没能力去追究了 网上说可以用效率高的函数替代，我想了一下，还是用正则自己写个

秀下刚制作完成的小软件：模板下载工具 以前做DEDE模板的时候老是发现网页里的图片网址要一个一个去替换 CSS里的图片要自己一个一个去下载，实在是误时误工 所以一直想弄个软件直接帮处理好，我们只要添加标签什么的就可以了 我去搜索过，似乎有过类似的工具，但是很遗憾，我的积分不够，没办法下载 http://download.csdn.net/source/2420448 感觉制作起来应该不难，很多时候都是字符串操作，于是萌发了自己编一个的念头 用起我不太熟悉的DELPHI，花了两天功夫，终于把这个软件给弄出来了

为了给程序弄个好看的ICO，我找了一下工具 原来我认为PS或firework会有类似功能，找了一下，发现确实没有 于是我又想到那种在线生成ICO的网站，找到一个后测试了一下，发现透明的图片生成后背景变黑色了，难看死了 后来只好下软件了，找到的第一个AVAST提示有毒，虽然那网站上面的说明说是误报，不过以防万一，还是不用的好 再找到了第二个软件，是PNG转ICO的，下载使用了一下，效果不错 下载地址：http://www.mt30.com/Soft/imgtools/Imake/200608/2265.html 以后我都是自己画ICO，非常难看，现在有了工具就好办了 可以到站长站这类素材站去下载素材，然后转化成ICO就可以使用了