Diary

今天下午四点钟才来到工作室，其实就最近的状态来说，来与不来并没有什么差别。 我总是不能够集中注意力来做某件事情，虽然要做的事情很多，但是我却并没有能力能够平静的去做每一件事，导致我做每一件事情的时候都感到无比的困难，我像一个没头的苍蝇，尝试着做各种事情，也因此处处碰壁。 ...

Todo List The especially things I have to do today have the following 还没背单词 Footprints and Insights 今天实现了控制数据库控制esp的api编写，太棒了这个感觉，看图片上AOC的蓝色光！

每天的时间还是应该分配着过，不能够钻进一个东西里面去，明明知道更加方便的办法，相比于去学习新的知识。 但往往抵不住了解新东西的诱惑，然后一头栽进去，搅得人头晕眼花，注意力也被耗费殆尽。 ...

Todo List The especially things I have to do today have the following 背单词 打卡报备 Footprints and Insights 程序优化方法 避免频繁读写文件，频繁打开关闭文件会大致大量的时间开销，在文件体积持续增大的时候尤其明显。 避免使用超大变量，不然会导致内存溢出，超大变量直接使用文件交互。 忽哟，今天才发现自己原来走了个大圈事情不对劲，wordle给了6次机会代表6次一定能够走出来，去用的这种笨办法，虽然可以将所有可能覆盖 ...

Todo List The especially things I have to do today have the following 背单词 今天重新整理了桌面 还是喜欢干干净净的感觉 Footprints and Insights 查找不重复的组合的一个方法，非暴力枚举，就是将其映射回去，将其压缩到一起，对比其长度，这个方法可以有效避免因强行寻找完美解的一个办法而导致次优解甚至最优解丢失的问题。 ...

Day planner The especially things I have to do today have the following 背单词 看文献选题 想买一个数位板 完成一个wordle，SLOSH Today’s footprints and insights 时间又来到了10点半，今天找到了一个小论文选题，并且完成了其框架，具体实现细节仍然很复杂，最为关键的是算法和代码的编写，最后还是希望能够实现可视化的的细节。 ...

Day planner The especially things I have to do today have the following 背单词 继续完成api的编写 Today’s footprints and insights **kwargs 是严格的名称对应解包，具有特殊功能的函数一般考虑使用 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 Sub format() '快速重排表格以方便导入数据库 Application.ScreenUpdating = False Dim r1 As Integer Dim r2 As Integer Dim flag As Integer Dim s1 As String Dim s2 As String Dim s3 As String r2 = 1 For r1 = 4 To 2150 If Mid(Sheet1.Cells(r1, 1).Value, 1, 4) = "学科门类" Then s1 = Sheet1.Cells(r1, 1).Value Sheet2.Cells(r2, 1).Value = s1 ElseIf Not IsNumeric(Sheet1.Cells(r1, 1).Text) Then 'MsgBox ("NOT numeric") Sheet2.Cells(r2, 1).Value = s1 s2 = Sheet1.Cells(r1, 1).Value s3 = Sheet1.Cells(r1, 2).Value Sheet2.Cells(r2, 2).Value = s2 Sheet2.Cells(r2, 3).Value = s3 Else 'MsgBox ("numeric") Sheet2.Cells(r2, 4).Value = Sheet1.Cells(r1, 1).Value Sheet2.Cells(r2, 5).Value = Sheet1.Cells(r1, 2).Value Sheet2.Cells(r2, 1).Value = s1 Sheet2.Cells(r2, 2).Value = s2 Sheet2.Cells(r2, 3).Value = s3 r2 = r2 + 1 End If Next Application.ScreenUpdating = True End Sub 原始文件长这个样子 ...