全面讲述VB.NET读写文件修改文件名

今天让我们用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读写文件，，不是很复杂啊所以就不写注释了，

 
 
    
  
  
  1. PrivateSubCommand3_Click() 
    2. 
  
  
  2. If(Text1.Text="")Then 
    3. 
  
  
  3. MsgBox("请输入IP号") 
    4. 
  
  
  4. Else 
    5. 
  
  
  5. If(Text2.Text="")Then 
    6. 
  
  
  6. MsgBox("请输入MAC号") 
    7. 
  
  
  7. Else 
    8. 
  
  
  8. 
  
  
  9. DimIPAsString 
    10. 
  
  
  10. DimyAsString 
    11. 
  
  
  11. y="*.bin"
    12. 
  
  
  12. IP=Text1.Text&".bin" 
    13. 
  
  
  13. Shell"cmd.exe/cren"&y+Chr(32)+IP,0 
    14. 
  
  
  14. 
  
  
  15. 
  
  
  16. DimconfigIPAsString 
    17. 
  
  
  17. Open"configIP.txt"ForInputAs#1 
    18. 
  
  
  18. DoUntilEOF(1) 
    19. 
  
  
  19. LineInput#1,configIP 
    20. 
  
  
  20. Loop 
    21. 
  
  
  21. Close#1 
    22. 
  
  
  22. 
  
  
  23. Open"configIP.txt"ForOutputAs#1 
    24. 
  
  
  24. Print#1,Text1.Text'写入文件内容 
    25. 
  
  
  25. Close#1 
    26. 
  
  
  26. 
  
  
  27. 
  
  
  28. DimconfigMACAsString 
    29. 
  
  
  29. Open"configMAC.txt"ForInputAs#1 
    30. 
  
  
  30. DoUntilEOF(1) 
    31. 
  
  
  31. LineInput#1,configMAC 
    32. 
  
  
  32. Loop 
    33. 
  
  
  33. Close#1 
    34. 
  
  
  34. 
  
  
  35. 
  
  
  36. Open"configMAC.txt"ForOutputAs#1 
    37. 
  
  
  37. Print#1,Text2.Text 
    38. 
  
  
  38. Close#1 
    39. 
  
  
  39. 
  
  
  40. 
  
  
  41. CallReplaceInFile("shaolind",configIP,Text1.Text) 
    42. 
  
  
  42. CallReplaceInFile("shaolind",configMAC,Text2.Text) 
    43. 
  
  
  43. MsgBox("执行完毕!") 
    44. 
  
  
  44. EndIf 
    45. 
  
  
  45. EndIf 
    46. 
  
  
  46. EndSub 
    47. 
  
  
  47. PrivateSubReplaceInFile(FileNameAsString,ReplaceStrAsString,ReplaceWithStrAsString) 
    48. 
  
  
  48. DimFileNumAsLong,strFileContentAsString,strTempAsString 
    49. 
  
  
  49. 
  
  
  50. FileNum=FreeFile
    51. 
  
  
  51. 
  
  
  52. IfDir(FileName)<>""Then 
    53. 
  
  
  53. OpenFileNameForInputAs#FileNum 
    54. 
  
  
  54. WhileNotEOF(FileNum) 
    55. 
  
  
  55. LineInput#FileNum,strTemp 
    56. 
  
  
  56. strFileContentstrFileContent=strFileContent&strTemp&vbCrLf 
    57. 
  
  
  57. Wend 
    58. 
  
  
  58. Close#FileNum 
    59. 
  
  
  59. 
  
  
  60. strFileContent=Replace(strFileContent,ReplaceStr,ReplaceWithStr,,,vbDatabaseCompare) 
    61. 
  
  
  61. 
  
  
  62. OpenFileNameForOutputAs#FileNum 
    63. 
  
  
  63. Print#FileNum,strFileContent 
    64. 
  
  
  64. Close#FileNum 
    65. 
  
  
  65. 
  
  
  66. EndIf 
    67. 
  
  
  67. EndSub
    68.

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

当前文章：全面讲述VB.NET读写文件修改文件名
文章起源：http://www.shufengxianlan.com/qtweb/news18/256018.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联

猜你还喜欢下面的内容

软件开发知识

各行业网站

梅州网站建设　　 　重庆水土三线托管　　 　虚拟主机　　 　青年旅行社　　 　温江网站设计　　 　网站设计　　 　成都外贸网站建设　　 　成都响应式网站建设　　 　边坡防护网厂家　　 　四川电信高防服务器托管　　 　内江托管服务器　　 　小谭网创广告　　 　盐亭网站制作公司　　 　服务器托管　　 　成都企业网站建设　　 　企业网站建设公司　　 　成都西云机房　　 　SSL证书　　 　重庆电信五里店机房　　 　重庆托管服务器