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

2023-8-13

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

#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. 
  
  
  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. 
  
  
  15.  
    16. 
  
  
  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. 
  
  
  23. Open"configIP.txt"ForOutputAs#1  
    24. 
  
  
  24. Print#1,Text1.Text'写入文件内容  
    25. 
  
  
  25. Close#1  
    26. 
  
  
  26.  
    27. 
  
  
  27.  
    28. 
  
  
  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. 
  
  
  35.  
    36. 
  
  
  36. Open"configMAC.txt"ForOutputAs#1  
    37. 
  
  
  37. Print#1,Text2.Text  
    38. 
  
  
  38. Close#1  
    39. 
  
  
  39.  
    40. 
  
  
  40.  
    41. 
  
  
  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. 
  
  
  50. FileNum=FreeFile 
    51. 
  
  
  51.  
    52. 
  
  
  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. 
  
  
  60. strFileContent=Replace(strFileContent,ReplaceStr,ReplaceWithStr,,,vbDatabaseCompare)  
    61. 
  
  
  61.  
    62. 
  
  
  62. OpenFileNameForOutputAs#FileNum  
    63. 
  
  
  63. Print#FileNum,strFileContent  
    64. 
  
  
  64. Close#FileNum  
    65. 
  
  
  65.  
    66. 
  
  
  66. EndIf  
    67. 
  
  
  67. EndSub 
    68.

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

版权声明：
作者：后浪云
链接：https://www.idc.net/help/408792/
文章版权归作者所有，未经允许请勿转载。
THE END
Copyright © 2025 后浪云 网站地图