今天让我们用VB.NET来做个程序吧？我都很长时间不用它来编程了，今天在网上回答别人提出的问题，在这里就和大家一起来分析一下吧。主要实现修改bin的文件名。及修改一个没有后缀名的文件里面的一些数据。介面两个文本框一个按钮搞定。新建两个文本文件一个bin文件，还有老大给的那个文件。 VB.NET读写文件代码：

10年的屏边网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。成都营销网站建设的优势是能够根据用户设备显示端的尺寸不同，自动调整屏边建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联建站从事“屏边网站设计”,“屏边网站推广”以来，每个客户项目都认真落实执行。

#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读写文件改文件名的一个实例。

网站题目：全面讲述VB.NET读写文件修改文件名
转载注明：http://jxjierui.cn/article/dhijpsg.html