日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
全面講述VB.NET讀寫文件修改文件名

今天讓我們用VB.NET來做個(gè)程序吧？我都很長時(shí)間不用它來編程了，今天在網(wǎng)上回答別人提出的問題，在這里就和大家一起來分析一下吧。主要實(shí)現(xiàn)修改bin的文件名。及修改一個(gè)沒有后綴名的文件里面的一些數(shù)據(jù)。介面兩個(gè)文本框一個(gè)按鈕搞定。新建兩個(gè)文本文件一個(gè)bin文件，還有老大給的那個(gè)文件。 VB.NET讀寫文件代碼：

10年的屏邊網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。成都營銷網(wǎng)站建設(shè)的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動(dòng)調(diào)整屏邊建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)建站從事“屏邊網(wǎng)站設(shè)計(jì)”,“屏邊網(wǎng)站推廣”以來，每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

#T#主要修改
exportIP=121.222.323.1
exportMAC=00:C0:9F:38:BF:E4
上面的ip地址及MAC地址
VB.NET讀寫文件，，不是很復(fù)雜啊所以就不寫注釋了，

 
 
    
  
  
  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'寫入文件內(nèi)容 
    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("執(zhí)行完畢!") 
    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.

由于是內(nèi)部用的，沒怎么做錯(cuò)誤處理，上述就是VB.NET讀寫文件改文件名的一個(gè)實(shí)例。


網(wǎng)站題目：全面講述VB.NET讀寫文件修改文件名
網(wǎng)址分享：http://www.dlmjj.cn/article/dhijpsg.html