用EXCEL的VBA將PHPCMS的備份文件轉換成HTML的一次嘗試

背景

有個PHPCMS的網站停了，但是網站的歷史文章又想要看看，網站停了以後，管理員發來了網站的所有數據。

分析

因為不會PHP，所有本地環境跑網站不優先考慮。

有MySQL資料庫文件，但是不熟悉MySQL資料庫，也就不下載資料庫了。

有PHPCMS導出的SQL文件，但是不是標準的SQL文件，不能用於導入資料庫。不過這個文本格式的文件已經包含了所有文章的內容。

嘗試

1.將v9_news 文章主表，v9_news_data 文章從表 用 vlook 函數拼接了一個 “news full”表。

2.用郵件合併的方式，直接生成了2000頁的DOC 文檔。

3.但是文章的附件圖片未能顯示……

行動

1.將幾個SQL 合併成一個文件。（導出文件是按照2MB進行了分割）

2.下載了 PHPCMS的數據字典。

3. 用到的表有： v9_news 文章主表，v9_news_data 文章從表，v9_attachment 附件表， v9_attachment_index 附件關係表

4.將這幾個表的插入語句用 VSCODE處理成 csv格式，導入EXCEL。

5.mysql 資料庫的時間轉換到 excel的時間，用公式  =(Q2+8*3600)/86400+70*365+19，再用函數拼接成字元串格式。

6.用 VBA 將記錄讀取到txt文件中。

 1 Private Sub CommandButton1_Click()
 2 Dim fso As Object, sFile As Object
 3 Const ForReading = 1, ForWriting = 2, ForAppending = 8, TristateFalse = 0
 4 Set fso = CreateObject("Scripting.FileSystemObject")
 5 Set sFile = fso.OpenTextFile("d:\testfile.txt", ForAppending, TristateFalse)
 6 For c = 2 To 1818
 7 
 8         sFile.WriteLine "<div><h3>" + Sheet1.Cells(c, "d").Value + "</h3>"
 9         sFile.WriteLine "<h5>日期：" + Sheet1.Cells(c, "w").Value + "</h5>"
10         For ccccc = 2 To 1818
11         wenzhangID = Sheet2.Cells(ccccc, "a")
12         If wenzhangID = Sheet1.Cells(c, "a") Then
13         NewsData = Sheet2.Cells(ccccc, "b").Value
14         sFile.WriteLine "<div>" & NewsData & "</div>"
15         End If
16         Next
17         'sFile.WriteLine "<div>" + getNewsData(Sheet1.Cells(c, "a")) + "</div>"
18         
19         
20         Dim keyArray() As Single
21         Dim i As Single '數組計數
22         i = 0
23         For cc = 2 To 828
24         aid = Sheet4.Cells(cc, "c")
25         If aid = Sheet1.Cells(c, "a") Then
26             ReDim keyArray(i + 1)
27             keyArray(i) = Sheet4.Cells(cc, "d")
28              i = i + 1
29         End If
30     
31         Next
32         If i > 0 Then
33         For Each aaa In keyArray
34         
35        ' MsgBox aaa
36         
37         For ccc = 2 To 746
38     
39             ID = Sheet3.Cells(ccc, "a")
40             If ID = aaa Then
41              'MsgBox Sheet3.Cells(ccc, "e").Value
42              
43              sFile.WriteLine "<img width=""100%"" src=uploadfile/" + Sheet3.Cells(ccc, "e").Value + " />"
44             End If
45             
46             
47         Next
48         
49         
50         
51         Next
52         
53         End If
54         
55        
56 
57 sFile.WriteLine "</div>"
58         
59 Next
60 
61 sFile.Close
62 Set fso = Nothing
63 Set sFile = Nothing
64 MsgBox "OKOK!!!"
65 
66 End Sub

遇到的問題

1. VBA 不熟悉，基本上都是粘貼複製。做了幾個函數調用，總是有這樣那樣的問題，調用不成功，後來只好來個嵌套大法，層層嵌套了。

 1 Function getNewsData(m)
 2 
 3 For ccccc = 2 To 1818
 4         wenzhangID = Sheet2.Cells(ccccc, "a")
 5         If wenzhangID = m Then
 6         getNewsData = Sheet2.Cells(ccccc, "b").Value
 7         End If
 8         
 9         
10 Next
11 
12 End Function
13 
14 Function getKey(m)
15     'm是文章id
16     Dim keyArray() As Single
17     Dim i As Single '數組計數
18     i = 0
19     For c = 2 To 828
20         aid = Sheet4.Cells(c, "c")
21         If aid = m Then
22         ReDim keyArray(i + 1)
23         keyArray(i) = Sheet4.Cells(c, "d")
24         i = i + 1
25         End If
26     
27     Next
28     ReDim keyArray(i + 1)
29     getKey = keyArray
30 End Function
31 
32 Function EmptyArr(ByRef x() As String) As Boolean  '判斷是否為空數組的自定義函數
33 Dim tempStr As String
34 tempStr = Join(x, ",")
35 EmptyArr = LenB(tempStr) <= 0
36 End Function

2.如果單元格裡面有連續四個空格的話，FileSystemObject.WriteLine 會報錯，不明白為什麼。

3.還有兩個單元格看起來沒有什麼特別的內容，FileSystemObject.WriteLine 也會報錯，原因不明，也不知道該怎樣分析，最後把單元格內容設定為“讀取錯誤”給跳過了。

4.變數名，格式啥的非常隨意，估計過幾天自己也不認得了。

5.認為這樣簡單的任務用 VBA 搞定應該很寬，但是沒想到在做迴圈的時候，竟然在怎樣判斷數組的元素個數上搜了半天。

想法：

下次這樣的任務還是用 NOPI 做。