吕雄

January

Python插入数据到word中

word文档——插入——文档部件——域——邮件合并—— MergeField–title\date\content

from mailmerge import MailMerge
 # 打印模板
template = "C:\\Users\\Administrator\\Desktop\\1.docx"
#1.docx文档——插入——文档部件——域——邮件合并—— MergeField--title\date\content

# 创建邮件合并文档并查看所有字段
document_1 = MailMerge(template)
print("Fields included in {}: {}".format(template,document_1.get_merge_fields()))
document_1.merge(
    title=u'得趣处，几点飞翠落红',#数据采集后替换即可
    date='January 2 , 2020 ',
    content='*******', 
) 
document_1.write('C:\\Users\\Administrator\\Desktop\\2.docx')

January 13 , 2020 阅读全文

---

VBA批量提取word中数据放入excel中

Sub 提取word表格()   'excel中Alt+F11调出vba窗口
    
    mypath = "C:\Users\Administrator\Desktop\1\"    '待提取的文件主目录
    myname = Dir(mypath & "*.doc")                  '待提取的文件名，此处为doc格式
    m = 1
        Do While myname <> ""
        Set mydoc = GetObject(mypath & myname)
        With mydoc
            m = m + 1
            With .Tables(1)
                Cells(m, 1) = m - 1          '序号
                Range("A1:F1") = Array("序号", "姓名", "性别", "身份证号码", "政治面貌", "出生日期")
                Cells(m, 2) = Replace(.cell(1, 2).Range.Text, "", "")                'cell(1,2)表示word中第1行第2列，整条语句表示：word中第1行第2列数据放入excel中的第m行第1列
                Cells(m, 3) = Replace(.cell(1, 4).Range.Text, "", "")
                Cells(m, 4) = Replace(.cell(1, 6).Range.Text, "", "")
                Cells(m, 5) = Replace(.cell(2, 4).Range.Text, "", "")
                Cells(m, 6) = Replace(.cell(2, 6).Range.Text, "", "")
            End With
            .Close False
        End With
        myname = Dir()
        Loop
        Set mydoc = Nothing
        MsgBox "提取完成"

End Sub

January 13 , 2020 阅读全文

---

得趣处，几点飞翠落红




夜静山空，万境之尘缘易了。

昼闲人寂，三千之妙法难书。

红烛烧残，黄粱梦断，

今日昨昔，一身云浮！

得趣处，

无非草际烟光、飞翠落红，

无非泉潭月影、山谷花容。

二十余年，

或曾襟怀放荡、恣意汪洋，

或曾人海浮沉、失意惆怅，

或曾七分豪迈、三分悲凉。

于今，

尽归于林壑松深，

无花柳烂漫，无笙歌沸腾。

从木落草枯之后，向声稀味淡之中，

觅得心月之静朗，鹤梦之悠情。

此情，便是余心！




2020：《得趣处，几点飞翠落红》

2019：《只如今 如禅心是故》

2018：《二十年，顺情自达》

2017：《一寸情怀一寸心》

January 2 , 2020 昨日种种  阅读全文

---

2019

December

Python暴力破解WiFi密码

基本逻辑：获取无线网卡–创建连接–读取密码本进行破解

December 23 , 2019 阅读全文

---

September

秋词




乍寒天冷，素秋疏雨霏霏。

想是银河遥翠，仙娥袖洒，碧天如水。

拟向良辰图一醉，

醉把时光轻揉碎，饮三杯。

任它今日是，昨日非！

争奈时光把人催，

明媚阴晦，世事难违。

最怕光景萦回，又是经年别岁。

凝眉问阿谁，昨日可追，今日奚为？

September 21 , 2019 樵林后子  阅读全文

---

小重山




戍楼风寒，重山路暗。
琼花吹散千千万，白骨征战两萧然。
争奈何？
朱仙遗恨、功休旦，
恨般般！

金殿云暖，皇令频传。
三十年家国梦断，八千里云月飘残。
更那堪？
风波冤案、血痕干，
深深叹！



再读岳飞《小重山》

《小重山》
岳飞
昨夜寒蛩不住鸣。
惊回千里梦，已三更。
起来独自绕阶行。
人悄悄，帘外月胧明。

白首为功名。
旧山松竹老，阻归程。
欲将心事付瑶琴。
知音少，弦断有谁听？

September 21 , 2019 故辞依旧  阅读全文

---

R语言tm文本挖掘

1\建立动态语料库Corpus()，静态语料库PCorpus()

2\导出语料库 writeCorpus(x, path = “.”, filenames = NULL)

3\语料库检索和查看ovid[] 查找语料库的某篇文档

4\元数据查看与管理meta(crude[[1]])查看语料库元数据信息,meta(crude)查看语料库元数据的格式

5\词条-文档关系矩阵:
1.创建词条-文档关系矩阵TermDocumentMatrix(x, control = list()) , DocumentTermMatrix(x, control = list())
2.文档距离计算dist(rbind(x, y), method = “binary” /”canberra” /”maximum”/”manhattan” )

6\文本聚类:Knn算法,支持向量机SVM

September 20 , 2019 阅读全文

---