标题想了半天，也不知道用什么好。。就这样了。。

其实之前在搬家过来第一篇博文中提到过这么一回事，说要写一篇，然后最近写Euler Project写傻了，把这事给忘了。。orz。。。

其实也就屁大点事，旧博客那边很多资源(歌&图片那些)都是中文命名的，尤其很多图表我都是在Matlab里面生成，然后QQ截图的，所以一般图片名称就是“QQ截图20131021213122.png”这种，然后用了个方法把旧站那边的图片爬下来后，传上这边的Wordpress，居然失败了一片，研究了一下，发现 WordPress里面URL不能有中文，囧，考虑到图片超多，1200+张，不可能自己手改，于是乎，就随手写了个Mathematica小段代码，功能就是找出文章中所有旧站的URL，先将其重命名，比如说是：QQ截图20131021213122.png就变成QQjietu20131021213122.png，然后再将博文中所有的URL链接改了，比如说将

kylen314.blog.com/files/2013/10/QQ截图20131021213122.png

变成：

kylen314.com/wp-content/uploads/2013/10/QQjietu20131021213122.png

首先转换拼音就是用很久之前写过的这个文件；然后利用txt的查找替换功能将其改成下面这个样子,这样很适合用Mathematica的Table导入：

阿啊 a
哎哀唉埃挨皑癌矮蔼艾爱隘碍 ai
安氨鞍俺岸按案胺暗 an
肮昂盎 ang
凹敖熬翱袄傲奥澳懊 ao
八巴叭扒吧芭疤捌笆拔跋把靶坝爸罢霸 ba
白百佰柏摆败拜稗 bai
扳班般颁斑搬板版办半伴扮拌绊瓣 ban
...

然后就是下面这段接口读取这个文件来翻译：

pinyin = Import["pinyin.txt", "Table", CharacterEncoding -> "CP936"];

findpinyin[hanzi_, pinyin_] := Block[{},
  k = Select[pinyin, Length[StringCases[#[[1]], hanzi]] >= 1 &];
  If[Length[k] != 0, k[[1, 2]], hanzi]
  ]

fanyi[str_, pinyin_] := StringJoin[findpinyin[#, pinyin] & /@ Characters[str]]

调用fanyi这个函数就可以把“截图”变成“jietu”了；

然后接下来我一直干的事情就是把要转换的博文的html复制到一个文件ori_blog.txt中，用Mathematica读取：

blogtext = 
  Import["ori_blog.txt", "text", CharacterEncoding -> "CP936"];

然后用正则表达式找出这里面的URL：

pictxt  = Union[StringCases[blogtext, RegularExpression[
    "http://kylen314.blog.com/files/((?!http://).)+?\\.(jpg|gif|png|\jpeg|bmp|mp3)"]], 
    SameTest -> (StringMatchQ[#1, #2] &)]

然后在我爬下来的全部图片歌曲里面，将这片文章里面用到的资源，也就是上一行的返回结果，复制出来到一个叫做pic的文件夹，当然这中间还包括拼音重命名的过程：

CopyFile["F:\\建站图片\\" <> #, 
    "pic\\"<>fanyi[#, pinyin]] & /@ (Last[#] & /@ (StringSplit[#, "/"] & /@ pictxt));

然后就可以直接把这部分图片和歌曲上传到博客里面去了；这样就保证了这一些东西的URL里面年份和月份和旧博客那边一样；

之后就是替换博文里面所有的URL：

newblog = 
  StringReplace[blogtext, 
   Function[kk, 
     Thread[kk -> 
       Table[StringCases[kk[[i]], 
            "http://kylen314.blog.com/files/" ~~ (year:DigitCharacter..) ~~ 
              "/" ~~ (month : DigitCharacter ..) ~~ ___ -> 
             "http://kylen314.com/wp-content/uploads/" ~~ year ~~ 
              "/" ~~ month ~~ "/"] <> 
           fanyi[#,pinyin] &@(Last[#] &@(StringSplit[#, "/"] &@kk[[i]])), 
          {i,1, Length@kk}]]][pictxt]];

反正上面代码乱七八糟一堆，所做的事情就是利用正则表达式提取出年月日，文件名等信息，然后构造出各个URL的替换规则{A1->B1,A2->B2,…}之类的，然后直接调用StringReplace替换掉原博文就是了；

唯一一点需要注意的是，以前的博客里面有一些Mathematica识别不了的字符，比如α之类的，这种需要专门再转一下：

反正就是再运行一下下面这个语句：

newblog = StringReplace[newblog, {"ꆰ" -> "\"", "ꆱ" -> "\""}];

可能上面的非法字符在这篇文章里面看不清，在Mathematica里面这个符号是这样子的：

嘛，最后一步就是将博文导出到新的文件中，复制到Wordpress里面就是了：

Export["new blog.txt", newblog, CharacterEncoding -> "UTF-8"];

嘛，这篇算给我水玩了，可以睡觉了~

其实这个方法根本不实用，因为好像真正会的人，估计会有别的方法，比如直接操作数据库(风险略大，而且我不懂),或者将来(或现在)有插件；

就算都不是，那么大部分人也不会选择用Mathematica这么蛋碎的方法来搞这个。。。虽然思路上完全可以用任何一门别的语言来完成。。。

所以这个方法算是。。。永远都不会有人再用得到了吧。。。【至少我不希望我会再用这段代码。。。】

【完】

本文内容遵从CC版权协议，转载请注明出自http://www.kylen314.com