子程式 遍歷目錄, , , 輸出指定目錄下的所有檔案,包括子目錄
.引數 參目錄, 文字型, , 不帶最後的「\」
.區域性變數 檔名, 文字型
.區域性變數 目錄陣列, 文字型, , "0"
.區域性變數 i, 整數型
.區域性變數 檔案型別, 整數型
.如果真 (資訊框 (「即將遍歷指定目錄並刪除所有txt檔案!是否繼續?」, 1, ) ≠ 0)
返回 ()
.如果真結束
檔案型別 = 位或 (#存檔檔案, #唯讀檔案, #系統檔案, #隱藏檔案, #子目錄)
檔名 = 尋找檔案 (選擇 (取文字右邊 (參目錄, 1) ≠ 「\」, 參目錄 + 「\」, 參目錄) + 「*.*」, 檔案型別)
.如果真 (檔名 = 「」)
返回 () ' 設定終止條件
.如果真結束
.迴圈判斷首 ()
.如果 (位與 (取檔案屬性 (參目錄 + 「\」 + 檔名), #子目錄) ≠ 0)
' 注意這裡不能直接遍歷,要先存入陣列,
' 否則就是開啟了乙個新的尋找檔案的過程,
' 導致無法列正確的檔案
加入成員 (目錄陣列, 檔名) ' 把目錄先存入陣列中
.否則.如果真 (到小寫 (取文字右邊 (檔名, 4)) = 「.txt」)
刪除檔案 (參目錄 + 「\」 + 檔名)
.如果真結束
' 輸出除錯文字 (參目錄 + 「\」 + 檔名) ' 檔名則輸出
.如果結束
' 尋找下乙個
檔名 = 尋找檔案 (, 檔案型別)
.迴圈判斷尾 (檔名 ≠ 「」)
.計次迴圈首 (取陣列成員數 (目錄陣列), i)
.如果真 (目錄陣列 [i] ≠ 「.」 且 目錄陣列 [i] ≠ 「..」)
' 不是當前目錄和父目錄才進行掃瞄
遍歷目錄 (參目錄 + 「\」 + 目錄陣列 [i]) ' 遞迴呼叫子程式本身
.如果真結束
.計次迴圈尾 ()
易語言呼叫C 寫的DLL
直接呼叫會彈出堆疊錯誤的資訊,原因是vs預設是 cdcel方式,而易語言是 stdcall,所以呼叫約定不一致導致堆疊錯誤。解決方案很簡單,易語言宣告dll函式時 在庫中對應命令名 函式名前加乙個 符號即可。簡單測試一下 標頭檔案 1 pragma once 2 include 3 4 5 exte...
Python寫json格式的檔案到txt
工作上遇到son資料的處理,寫到txt檔案裡,再load到hive表的需求。記錄兩種方法 1.遍歷,再逐行寫入 import json 讀取json檔案,提取詩詞內容逐行放入txt文件 with open poem.json r encoding utf 8 as f temp json.loads...
C 呼叫易語言寫的Dll檔案
分類 c 2011 07 19 22 52 218人閱讀收藏 舉報 本人是用易語言起步的,起初是為了興趣,後來由於易語言被殺軟誤殺嚴重,連空白程式都殺,後來轉到了學c 隨著學習的深入,接觸越來越複雜的東西之後,發現有些功能沒有用易語言來寫方便,所以就想到用c 來呼叫易語言寫的dll,就和一般的dll...