吕雄

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

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 阅读全文

---

R语言gganimate包绘制动态图表



代码：

September 15 , 2019 阅读全文

---

梦言释话 其二




呓谵昨夜入梦匆，句句谶言喻世浓。

十海平湖还伏倚，百园春树转枯荣。

龟灵有象福难乞，筮草无神运自通。

不信人生回眼望，虚盈常困五局中。

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

---