字體：小 中 大 |
|
|
|
| 2010/09/04 23:12:08瀏覽1154｜回應3｜推薦56 | |
| 筆者有訂閱部落格的文章，可是並非每日都閱讀，如果積存多日，再整批閱讀，會發生重複叫出部落客的問題。如果能設計一個工具，將同一位作者的新文章數統計出來，就不需要將文章清單一筆一筆叫出；它的好處是每一位作者只需要叫出一次，然後根據文章數，可以方便地決定想閱讀的篇數。 想進行統計，需要設計一個程式和兩個資料檔，執行的環境是FOXPRO，程式名稱是ARTICLE.PRG，資料檔是ARTICLE.DBF，中間檔是ARTICLE2.DBF。 ARTICLE.DBF的資料結構，如下所示： 欄位 欄位名稱 類型 寬度 小數位數 索引 排序 Nulls 1 REMARK 字元型態 1 否 2 PAGE 數值型態 2 否 3 CNT 數值型態 2 否 4 CONTENT 字元型態 100 否 ARTICLE2.DBF的資料結構，如下所示： 欄位 欄位名稱 類型 寬度 小數位數 索引 排序 Nulls 1 TITLE 字元型態 60 否 2 CNT 數值型態 2 否 操作步驟如下： (1) 將訂閱的文章清單複製到記事本。 (2) 在記事本中，將空白行和需用資料以外的內容去掉，每一行再往右退3格，存檔名稱例如取為XX.TXT。 (3) 進入FOXPRO。 (4) 將文章清單轉入資料檔，應打入如下的命令： USE ARTICLE ZAP APPEND FROM XX SDF USE (5) 執行程式，應打入如下的命令： DO ARTICLE (6) 將最後結果轉到一般文件檔，應打入如下的命令： USE ARTICLE COPY TO ARTICLE SDF USE 實際案例： 程式執行前，資料檔ARTICLE.DBF的內容，如下所示： 【紅茶芢的部落格】部落格有 1 篇最新發表創作。 2010/09/03 07:32 刪除 【價值的迷失論】部落格有 5 篇最新發表創作。 2010/09/03 07:32 刪除 【曾經滄海難為水?除卻巫山不是雲】部落格有 4 篇最新發表創作。 2010/09/03 07:31 刪除 【戀戀風塵的部落格】部落格有 1 篇最新發表創作。 2010/09/03 07:31 刪除 【戴媽醬廚心】部落格有 1 篇最新發表創作。 2010/09/02 07:32 刪除 【價值的迷失論】部落格有 2 篇最新發表創作。 2010/09/02 07:32 刪除 【熟女?示錄】部落格有 1 篇最新發表創作。 2010/09/02 07:32 刪除 【MmMm的無牆教室】部落格有 1 篇最新發表創作。 【曾經滄海難為水?除卻巫山不是雲】部落格有 6 篇最新發表創作。 2010/09/02 07:32 刪除 【開心的部落格】部落格有 1 篇最新發表創作。 2010/09/02 07:32 刪除 程式ARTICLE.PRG的內容，如下所示(*號代表註解行)： SET TALK OFF SET SAFETY OFF * 打開資料檔 SELECT 1 USE ARTICLE * 打開中間檔 SELECT 2 USE ARTICLE2 * 清檔 ZAP * 產生索引檔 INDEX ON TITLE TO XX2 * 設行數計數器 MNO = 21 * 設頁次計數器 MPAGE = 0 * 將資料檔每一筆都處理一遍 SELECT 1 DO WHILE .NOT. EOF() * 行數每遇20，則頁數加1 IF MNO >= 20 MPAGE = MPAGE + 1 MNO = 0 ENDIF MNO = MNO +1 * 將頁數寫入資料檔 REPLACE PAGE WITH MPAGE * 取得部落格的名稱 MTITLE = LEFT(CONTENT,AT("】",CONTENT)+1) * 到中間檔去搜尋 SELECT 2 SEEK MTITLE * 如果找不到記錄 IF .NOT. FOUND() APPEND BLANK * 將部落格名稱寫入中間檔 REPLACE TITLE WITH MTITLE * 將文章數寫入中間檔 REPLACE CNT WITH VAL(SUBSTR(A->CONTENT,AT("部落格有",A->CONTENT)+8,2)) * 如果找得到記錄 ELSE * 將文章數與原來的文章數相加，再寫入中間檔 REPLACE CNT WITH CNT + VAL(SUBSTR(A->CONTENT,AT("部落格有",A->CONTENT)+8,2)) SELECT 1 * 在資料檔註記重複記號 REPLACE REMARK WITH "X" ENDIF * 將資料檔移到下一筆 SELECT 1 SKIP ENDDO * 將資料檔關閉再打開 SELECT 1 USE USE ARTICLE * 將資料檔每一筆都處理一遍 DO WHILE .NOT. EOF() * 如果屬於非重複的部落格 IF REMARK = " " * 取得部落格的名稱 MTITLE = LEFT(CONTENT,AT("】",CONTENT)+1) * 到中間檔做搜尋 SELECT 2 SEEK MTITLE * 如果找得到 IF FOUND() SELECT 1 * 將文章數寫入資料檔 REPLACE CNT WITH B->CNT ENDIF ENDIF * 將資料檔移到下一筆 SELECT 1 SKIP ENDDO CLOSE ALL SET SAFETY ON SET TALK ON 程式執行後，中間檔ARTICLE2.DBF的內容摘錄，如下所示： 【堅強是我的名字】 1 【紅茶芢的部落格】 1 【價值的迷失論】 7 【幸福摩天輪】 1 【萬紫千虹】 1 【法蘭客的部落格】 2 【熟女?示錄】 2 【曾經滄海難為水?除卻巫山不是雲】 10 【Uncle's Blog】 2 【caja12 的部落格】 1 備註：中間檔每一位部落客只會占一筆 程式執行後，資料檔ARTICLE.DBF的內容摘錄，如下所示： 1 1【紅茶芢的部落格】部落格有 1 篇最新發表創作。 2010/09/03 07:32 刪除 1 7【價值的迷失論】部落格有 5 篇最新發表創作。 2010/09/03 07:32 刪除 1 10【曾經滄海難為水?除卻巫山不是雲】部落格有 4 篇最新發表創作。 2010/09/03 07:31 刪除 1 2【戀戀風塵的部落格】部落格有 1 篇最新發表創作。 2010/09/03 07:31 刪除 2 1【戴媽醬廚心】部落格有 1 篇最新發表創作。 2010/09/02 07:32 刪除 X 2 0【價值的迷失論】部落格有 2 篇最新發表創作。 2010/09/02 07:32 刪除 X 2 0【熟女?示錄】部落格有 1 篇最新發表創作。 2010/09/02 07:32 刪除 2 1【MmMm的無牆教室】部落格有 1 篇最新發表創作。 X 3 0【曾經滄海難為水?除卻巫山不是雲】部落格有 6 篇最新發表創作。 2010/09/02 07:32 刪除 3 1【開心的部落格】部落格有 1 篇最新發表創作。 2010/09/02 07:32 刪除 備註：(1) 前面有X符號者，代表重複，應省略不看。 (2) 左邊第1個數字代表在訂閱文章清單的頁次，第2個數字代表待閱讀的新文章數。 訂閱的部落格文章，如果能每日閱讀，當然是最理想的；如果不能的話，統計每一位部落客多日的新文章數，然後再去閱讀，比起去一一叫出每日每位部落客的新文章省事。此次實作的環境是使用FOXPRO，當然也可以使用其它的程式環境來實作。 |
|
| ( 興趣嗜好｜電腦3C ) |
