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

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

PrivateSubCommand3_Click()  
If(Text1.Text="")Then  
MsgBox("請輸入IP號")  
Else  
If(Text2.Text="")Then  
MsgBox("請輸入MAC號")  
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'寫入文件內(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)部用的，沒怎么做錯誤處理，上述就是VB.NET讀寫文件改文件名的一個實例。