找回密码
 加入
搜索
查看: 18|回复: 1

[AU3基础] 请问 编码应该在哪里转换

[复制链接]
发表于 昨天 13:48 | 显示全部楼层 |阅读模式
本帖最后由 卩s丶孩孓灬 于 2025-1-17 13:49 编辑

配置文件
[File]
Number1=❤.png
Number2=1233.jpeg
Number3=_.jpeg
Number4=國画.jpeg



代码
#include <Array.au3>
 
; 读取INI文件
$ini_file = "config.ini"
 
; 读取所有的section
$sections = IniReadSectionNames($ini_file)
 
For $i = 1 To $sections[0]
    ; 读取指定section下的所有key和value
    $keys = IniReadSection($ini_file, $sections[$i])
 
    For $j = 1 To $keys[0][0]
                
                Global $g_sDirPath = @ScriptDir

                Global $g_sFilePattern = $keys[$j][1]

                _SearchDelFile($g_sDirPath, $g_sFilePattern)
                
    Next
Next






Func _SearchDelFile($SearchDir, $SearchFile)
        If $SearchDir <> '' Then
        Local $search = FileFindFirstFile($SearchDir & "\*.*")
        While 1
                Dim $file = FileFindNextFile($search)
                If @error Or StringLen($file) < 1 Then ExitLoop
                If StringRight($SearchDir & "" & $file, StringLen($SearchFile)) = $SearchFile Then
                        If StringInStr(FileGetAttrib($SearchDir & '\' & $file), "R") Then FileSetAttrib($SearchDir & '\' & $file, "-R")
                        FileDelete($SearchDir & '\' & $file)
                EndIf
                _SearchDelFile($SearchDir & "" & $file, $SearchFile)
        WEnd
        EndIf
EndFunc   ;==>_SearchDelFile

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 昨天 22:44 | 显示全部楼层
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2025-1-18 10:01 , Processed in 0.072076 second(s), 21 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表