自建hexo博客并将原有的文章发布其上

1、保存粘贴到memo9中的博客文章，并将txt转换成word文档

varPowerShellPath, CommandLine: string; //  , ScriptPath
begin//save to txtMemo9.Lines.SaveToFile('test.txt');memo10.Lines.SaveToFile('txt2word.ps1');//save as docxPowerShellPath := 'powershell.exe ';CommandLine := 'C:\delphisource\mytools\mynewtools\Win64\Debug\txt2word.ps1 ';DosCommand3.CommandLine := PowerShellPath + ' -ExecutionPolicy Bypass -File ' + CommandLine;DosCommand3.Execute;end;

txt2word.ps1代码 

$word = New-Object -ComObject word.application
$doc = $word.documents.open("C:\delphisource\mytools\mynewtools\Win64\Debug\test.txt")
$doc.saveas("C:\delphisource\mytools\mynewtools\Win64\Debug\test.docx",16)
$doc.close()
$word.quit()

2、使用pandoc将word文档转换成md文档 

begin//pandoc word2mdDosCommand3.CommandLine := 'pandoc -s C:\delphisource\mytools\mynewtools\Win64\Debug\test.docx -t markdown -o C:\delphisource\mytools\mynewtools\Win64\Debug\test.md';// 启动进程DosCommand3.Execute;exit;end;

3、使用hexo新建博客文章

begin// newblogs bash command fileMemo11.Lines.Add('hexo new "' +UTF8Encode(edit9.Text) + '"');Memo11.Lines.SaveToFile('C:\pythoncode\new\test.sh');DosCommand3.CommandLine := '"C:\Program Files\Git\bin\bash.exe"  C:\pythoncode\new\test.sh';// 启动进程DosCommand3.Execute;end;

test.sh脚本

#!/bin/bash# �л���ָ��Ŀ¼
cd C:/Users/86182/myblog/source/_posts# ����Hexo����
hexo new "Python中的PDF文本提取：使用fitz和wxPython库（带进度条�?

4、将第二步产生的md文档，复制到指定文件夹下，并替换新建的博客md文档

beginMemo12.Lines.Add('mv "c:/Users/86182/myblog/source/_posts/test.md" "c:/Users/86182/myblog/source/_posts/'+UTF8Encode(Edit9.Text)+'.md"');Memo12.Lines.SaveToFile('C:\pythoncode\new\test4.sh');DosCommand3.CommandLine := '"C:\Program Files\Git\bin\bash.exe"  C:\pythoncode\new\test4.sh';// 启动进程DosCommand3.Execute;
end;

 test4.sh代码

#!/bin/bash# �����ļ�
cp "c:/delphisource/mytools/mynewtools/Win64/Debug/test.md" "c:/Users/86182/myblog/source/_posts"# ������Ŀ���ļ�
mv "c:/Users/86182/myblog/source/_posts/test.md" "c:/Users/86182/myblog/source/_posts/探索硬件王国：计算机硬件信息一览（使用powershell获得计算机硬件信息）.md"

5、hexo将刚刚新增并编辑好的md文档生成。

beginDosCommand3.CommandLine := '"C:\Program Files\Git\bin\bash.exe"  C:\pythoncode\new\test1.sh';// 启动进程DosCommand3.Execute;
end;

test1.sh代码

#!/bin/bashcd C:/Users/86182/myblog/source/_postshexo generate 

6、hexo 启动服务器（注意先关闭）

beginDosCommand3.CommandLine := '"C:\Program Files\Git\bin\bash.exe"  C:\pythoncode\new\test3.sh';// 启动进程DosCommand3.Execute;
end;

test3.sh代码

#!/bin/bashcd C:/Users/86182/myblog/source/_postshexo server

结果如下