亚洲激情专区-91九色丨porny丨老师-久久久久久久女国产乱让韩-国产精品午夜小视频观看

溫馨提示×

溫馨提示×

您好,登錄后才能下訂單哦!

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務條款》

VB.NET中怎么對文件進行合并

發布時間:2021-07-22 15:01:49 來源:億速云 閱讀:355 作者:Leah 欄目:編程語言

本篇文章給大家分享的是有關VB.NET中怎么對文件進行合并,小編覺得挺實用的,因此分享給大家學習,希望大家閱讀完這篇文章后可以有所收獲,話不多說,跟著小編一起來看看吧。

VB.NET文件合并代碼實現示例:

  1. Private Sub MergeFiles(ByVal 
    inputDir As String, ByVal 
    inputMask As String, ByVal 
    outputPath As String)  

  2. 'store files in datatable 
    with their created times 
    to sort by later  

  3. Dim files As New DataTable  

  4. files.Columns.Add("filepath",
     GetType(String))  

  5. files.Columns.Add("creationtime",
     GetType(Date))  

  6. 'find partial files  

  7. For Each f As String In IO.
    Directory.GetFiles(inputDir, inputMask)  

  8. files.Rows.Add(New Object() 
    {f, IO.File.GetCreationTime(f)})  

  9. Next  

  10. 'make sure output file does
     not exist before writing  

  11. If IO.File.Exists(outputPath) Then  

  12. IO.File.Delete(outputPath)  

  13. End If  

  14. 'loop through file in order, 
    and append contents to output file  

  15. For Each dr As DataRow In 
    files.Select("", "creationtime")  

  16. Dim contents As String = 
    My.Computer.FileSystem.ReadAllText
    (CStr(dr("filepath")))  

  17. My.Computer.FileSystem.WriteAllText
    (outputPath, contents, True)  

  18. Next  

  19. End Su 

以上就是VB.NET中怎么對文件進行合并,小編相信有部分知識點可能是我們日常工作會見到或用到的。希望你能通過這篇文章學到更多知識。更多詳情敬請關注億速云行業資訊頻道。

向AI問一下細節

免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。

AI

平武县| 古浪县| 濉溪县| 义马市| 临海市| 西盟| 吉水县| 门头沟区| 台中县| 全州县| 苏尼特右旗| 虎林市| 武功县| 舒兰市| 抚顺市| 宁蒗| 镶黄旗| 婺源县| 遂溪县| 通江县| 静乐县| 海城市| 盘山县| 通州区| 顺平县| 沙湾县| 台中市| 南溪县| 曲阜市| 都昌县| 河间市| 简阳市| 乌兰察布市| 清徐县| 郯城县| 唐山市| 都江堰市| 福清市| 商都县| 大埔县| 繁峙县|