請各位高手幫我看看腳本

因為我有一句話跟下面差不多所以我把setStr 改成setStr1
還是不行改成setStr1 ?
執行之後INI變空白的 我想尋找CE=0 收循到改成CA=3
Rem 開始
setStr1="CE=0"
Plugin File.DeleteFile("c:\dl.INI")
//下面這句是向目標文件("c:\dl.INI")讀出文本內容到變量(Text)
Plugin Text = File.ReadFileEx("c:\dl.INI")
While Instr(Text, "||") or Instr(Text, vbLf) or Instr(Text, vbCr)
    Text = Replace(Text, "||", "|")
    Text = Replace(Text, vbLf, "")
    Text = Replace(Text, vbCr, "")
EndWhile
dl=Split(Text,"|")
i=0
For UBound(IP)
    If dl(i)=setStr1
        setstr1="CE=0"
    Else
        myStr = myStr & IP(i) & vbLf
    EndIf
    i=i+1
EndFor
//下面這句是刪除目標文件
Plugin File.DeleteFile("c:\dl.ini")
//下面這句是向目標文件("dl.INI")寫入文本內容(myStr)
Plugin File.WriteFileEx("c:\dl.ini", myStr)
EndScript
Rem end
EndScript

不需要那麼複雜，參考下面這些現成的指令，就可以了。

1. // 建立一個檔案 c:\AA.INI，設定CA=0
   
2. Msgbox "保存一個配置文件鍵值"
   
3. Plugin File.WriteINI("Command", "CA", 0 , "c:\AA.ini")
   
4. VBSCall RunApp("c:\AA.ini")
   
5. Msgbox "建立一個檔案 c:\AA.INI，設定CA=0"
   
6. // 將CA=0修改成CA=3
   
7. Plugin File.WriteINI("Command", "CA", 3 , "c:\AA.ini")
   
8. VBSCall RunApp("c:\AA.ini")
   
9. // 讀取CA的值
   
10. Plugin Text = File.ReadINI("Command", "CA", "C:\AA.ini")
    
11. Msgbox "CA值：" & Text

複製代碼

2# be12345 r

你真是神 但是我想要是 修改我的 TXT

因為還有很多文字

3# gb881234
大大不用了 我弄好了非常謝謝你