今天让我们用VB.NET来做个程序吧？我都很长时间不用它来编程了，今天在网上回答别人提出的问题，在这里就和大家一起来分析一下吧。主要实现修改bin的文件名。及修改一个没有后缀名的文件里面的一些数据。介面两个文本框一个按钮搞定。新建两个文本文件一个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'写入文件内容  
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("执行完毕!")  
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 

由于是内部用的，没怎么做错误处理，上述就是VB.NET读写文件改文件名的一个实例。