用易語言寫掃瞄全盤的txt格式文字 並刪除

2021-08-27 02:44:09 字數 1088 閱讀 6055

子程式 遍歷目錄, , , 輸出指定目錄下的所有檔案,包括子目錄

.引數 參目錄, 文字型, , 不帶最後的「\」

.區域性變數 檔名, 文字型

.區域性變數 目錄陣列, 文字型, , "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...