本人一點編程不會，但又要改ＩＴ這塊。（硬體還行）
最近因為公司服務器經常要改動，各客戶端下的檔案經常需要改檔案內的ＩＰ。
我現在需求是這個檔案不管是安裝在Ｃ盤Ｄ盤還是其它盤，不管上面有幾級路徑都可以查差并修改掉檔案里的ＩＰ
以下是我跟據網上所寫的：（只解決修改檔案里ＩＰ的問題）：
On Error Resume Next
Dim Fso,IniFl,Str,IniFn
IniFn="abctest.ini"
Set Fso = CreateObject("Scripting.FileSystemObject")
Set IniFl = Fso.OpenTextFile ("D:\NASA\TEST\"&IniFn,1)
Str = Replace (IniFl.ReadAll,"ServerName=192.168.60.250","ServerName=192.168.10.250")
Set IniFl = Fso.OpenTextFile ("D:\NASA\TEST\"&IniFn,2)
IniFl.Write Str
IniFl.Close
請各位大蝦們幫幫忙，寫個完成點的哈，我是一點都不會的人。
Ｐ.Ｓ最后最好是可以把這個ＶＢＳ給洗掉掉，當然最好也是不管是什么路徑下都可執行完后自行洗掉。
!!!在線等，在線重繪!!!!
uj5u.com熱心網友回復：
自已頂，不能沉！uj5u.com熱心網友回復：
有沒有空閑點的大蝦啊？uj5u.com熱心網友回復：
C:\>findstr /?在檔案中尋找字串。
FINDSTR [/B] [/E] [/L] [/R] [/S] [/I] [/X] [/V] [/N] [/M] [/O] [/F:file]
[/C:string] [/G:file] [/D:dir list] [/A:color attributes] [/OFF[LINE]]
strings [[drive:][path]filename[ ...]]
/B 在一行的開始配對模式。
/E 在一行的結尾配對模式。
/L 按字使用搜索字串。
/R 將搜索字串作為一般運算式使用。
/S 在當前目錄和所有子目錄中搜索匹配檔案。
/I 指定搜索不分大小寫。
/X 列印完全匹配的行。
/V 只列印不包含匹配的行。
/N 在匹配的每行前列印行數。
/M 如果檔案含有匹配項，只列印其檔案名。
/O 在每個匹配行前列印字符偏移量。
/P 忽略有不可列印字符的檔案。
/OFF[LINE] 不跳過帶有脫機屬性集的檔案。
/A:attr 指定有十六進位數字的顏色屬性。請見 "color /?"
/F:file 從指定檔案讀檔案串列 (/ 代表控制臺)。
/C:string 使用指定字串作為文字搜索字串。
/G:file 從指定的檔案獲得搜索字串。 (/ 代表控制臺)。
/D:dir 查找以分號為分隔符的目錄串列
strings 要查找的文字。
[drive:][path]filename
指定要查找的檔案。
除非引數有 /C 前綴，請使用空格隔開搜索字串。
例如: 'FINDSTR "hello there" x.y' 在檔案 x.y 中尋找 "hello" 或
"there"。'FINDSTR /C:"hello there" x.y' 檔案 x.y 尋找
"hello there"。
一般運算式的快速參考:
. 通配符: 任何字符
* 重復: 以前字符或類別出現零或零以上次數
^ 行位置: 行的開始
$ 行位置: 行的終點
[class] 字符類別: 任何在字符集中的字符
[^class] 補字符類別: 任何不在字符集中的字符
[x-y] 范圍: 在指定范圍內的任何字符
\x Escape: 元字符 x 的文字用法
\<xyz 字位置: 字的開始
xyz\> 字位置: 字的結束
有關 FINDSTR 常見表達法的詳細情況，請見聯機命令參考。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/122888.html
標籤：VB基礎類
上一篇：誰幫我看看這道題，