论坛 › 已解决问题区 › 谁帮改下这个脚本(已解决)

p5200151 发表于 2011-6-15 17:36:08

谁帮改下这个脚本(已解决)

本帖最后由 p5200151 于 2011-11-19 19:58 编辑

$tb1= IniRead("tb.ini","需要删除的图标", "图标1", "配置文件不存在")
$tb2= IniRead("tb.ini","需要删除的图标", "图标2", "配置文件不存在")
$tb3= IniRead("tb.ini","需要删除的图标", "图标3", "配置文件不存在")
$tb4= IniRead("tb.ini","需要删除的图标", "图标1", "配置文件不存在")
$tb5= IniRead("tb.ini","需要删除的图标", "图标2", "配置文件不存在")
$tb6= IniRead("tb.ini","需要删除的图标", "图标3", "配置文件不存在")
$tb7= IniRead("tb.ini","需要删除的图标", "图标1", "配置文件不存在")
$tb8= IniRead("tb.ini","需要删除的图标", "图标2", "配置文件不存在")
$tb9= IniRead("tb.ini","需要删除的图标", "图标3", "配置文件不存在")
$tb10= IniRead("tb.ini","需要删除的图标", "图标1", "配置文件不存在")
$tb11= IniRead("tb.ini","需要删除的图标", "图标2", "配置文件不存在")
$tb12= IniRead("tb.ini","需要删除的图标", "图标3", "配置文件不存在")
$tb13= IniRead("tb.ini","需要删除的图标", "图标1", "配置文件不存在")
$tb14= IniRead("tb.ini","需要删除的图标", "图标2", "配置文件不存在")
$tb15= IniRead("tb.ini","需要删除的图标", "图标3", "配置文件不存在")
$tb16= IniRead("tb.ini","需要删除的图标", "图标1", "配置文件不存在")
$tb17= IniRead("tb.ini","需要删除的图标", "图标2", "配置文件不存在")
$tb18= IniRead("tb.ini","需要删除的图标", "图标3", "配置文件不存在")
$tb19= IniRead("tb.ini","需要删除的图标", "图标4", "配置文件不存在")
$tb20= IniRead("tb.ini","需要删除的图标", "图标5", "配置文件不存在")

Do
FileDelete( @DesktopDir & $tb1)
FileDelete( @DesktopDir & $tb2)
FileDelete( @DesktopDir & $tb3)
FileDelete( @DesktopDir & $tb4)
FileDelete( @DesktopDir & $tb5)
FileDelete( @DesktopDir & $tb6)
FileDelete( @DesktopDir & $tb7)
FileDelete( @DesktopDir & $tb8)
FileDelete( @DesktopDir & $tb9)
FileDelete( @DesktopDir & $tb10)
FileDelete( @DesktopDir & $tb11)
FileDelete( @DesktopDir & $tb12)
FileDelete( @DesktopDir & $tb13)
FileDelete( @DesktopDir & $tb14)
FileDelete( @DesktopDir & $tb15)
FileDelete( @DesktopDir & $tb16)
FileDelete( @DesktopDir & $tb17)
FileDelete( @DesktopDir & $tb18)
FileDelete( @DesktopDir & $tb19)
FileDelete( @DesktopDir & $tb20)可以简化写吗？

骗子 发表于 2011-6-15 17:58:16

读取配置文件可以考虑用 IniReadSection

$var = IniReadSection("C:\Temp\myfile.ini", "section2")
If @error Then
    MsgBox(4096, "", "错误, 不是 INI 文静.")
Else
    For $i = 1 To $var
      MsgBox(4096, "", "关键字: " & $var[$i] & @CRLF & "值: " & $var[$i])
    Next
EndIf

骗子 发表于 2011-6-15 18:02:36

$var = IniReadSection("tb.ini", "需要删除的图标")
For $i = 1 To $var
       FileDelete( @DesktopDir & $var[$i])
    Next
=================================
ini的内容
[需要删除的图标]
图标1=xxxx.ico
图标2=xxxx1.ico
图标3=xxxx2.ico
.....

wsfda 发表于 2011-6-15 18:05:01

哪个写的，太有耐心了........

p5200151 发表于 2011-6-15 22:56:34

谢谢。。。。。。

查看完整版本: 谁帮改下这个脚本(已解决)