今天讓我們用VB.NET來(lái)做個(gè)程序吧？我都很長(zhǎng)時(shí)間不用它來(lái)編程了，今天在網(wǎng)上回答別人提出的問(wèn)題，在這里就和大家一起來(lái)分析一下吧。主要實(shí)現(xiàn)修改bin的文件名。及修改一個(gè)沒(méi)有后綴名的文件里面的一些數(shù)據(jù)。介面兩個(gè)文本框一個(gè)按鈕搞定。新建兩個(gè)文本文件一個(gè)bin文件，還有老大給的那個(gè)文件。 VB.NET讀寫(xiě)文件代碼：

#T#主要修改
exportIP=121.222.323.1
exportMAC=00:C0:9F:38:BF:E4
上面的ip地址及MAC地址
VB.NET讀寫(xiě)文件，，不是很復(fù)雜啊所以就不寫(xiě)注釋了，

PrivateSubCommand3_Click()  
If(Text1.Text="")Then  
MsgBox("請(qǐng)輸入IP號(hào)")  
Else  
If(Text2.Text="")Then  
MsgBox("請(qǐng)輸入MAC號(hào)")  
Else  
 
DimIPAsString  
DimyAsString  
y="*.bin" 
IP=Text1.Text&".bin"  
Shell"cmd.exe/cren"&y+Chr(32)+IP,0  
 
 
DimconfigIPAsString  
Open"configIP.txt"ForInputAs#1  
DoUntilEOF(1)  
LineInput#1,configIP  
Loop  
Close#1  
 
Open"configIP.txt"ForOutputAs#1  
Print#1,Text1.Text'寫(xiě)入文件內(nèi)容  
Close#1  
 
 
DimconfigMACAsString  
Open"configMAC.txt"ForInputAs#1  
DoUntilEOF(1)  
LineInput#1,configMAC  
Loop  
Close#1  
 
 
Open"configMAC.txt"ForOutputAs#1  
Print#1,Text2.Text  
Close#1  
 
 
CallReplaceInFile("shaolind",configIP,Text1.Text)  
CallReplaceInFile("shaolind",configMAC,Text2.Text)  
MsgBox("執(zhí)行完畢!")  
EndIf  
EndIf  
EndSub  
PrivateSubReplaceInFile(FileNameAsString,ReplaceStrAsString,ReplaceWithStrAsString)  
DimFileNumAsLong,strFileContentAsString,strTempAsString  
 
FileNum=FreeFile 
 
IfDir(FileName)<>""Then  
OpenFileNameForInputAs#FileNum  
WhileNotEOF(FileNum)  
LineInput#FileNum,strTemp  
strFileContentstrFileContent=strFileContent&strTemp&vbCrLf  
Wend  
Close#FileNum  
 
strFileContent=Replace(strFileContent,ReplaceStr,ReplaceWithStr,,,vbDatabaseCompare)  
 
OpenFileNameForOutputAs#FileNum  
Print#FileNum,strFileContent  
Close#FileNum  
 
EndIf  
EndSub 

由于是內(nèi)部用的，沒(méi)怎么做錯(cuò)誤處理，上述就是VB.NET讀寫(xiě)文件改文件名的一個(gè)實(shí)例。