今天让我们用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读写文件改文件名的一个实例。
