个人中心
gpt4 book ai didi

filesystemobject组件的用法示例

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 29 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章filesystemobject组件的用法示例由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

  1. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
  2. ' CreateLyrics  
  3. ' 目的：  
  4. ' 在文件夹中创建两个文本文件。  
  5. ' 示范下面的内容  
  6. ' - FileSystemObject.CreateTextFile  
  7. ' - TextStream.WriteLine  
  8. ' - TextStream.Write  
  9. ' - TextStream.WriteBlankLines  
  10. ' - TextStream.Close  
  11. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
  12.  
  13. Sub CreateLyrics(Folder)  
  14.  
  15. Dim TextStream  
  16.  
  17. Set TextStream = Folder.CreateTextFile("OctopusGarden.txt")  
  18.  
  19. TextStream.Write("Octopus' Garden ") ' 请注意，该语句不添加换行到文件中。  
  20. TextStream.WriteLine("(by Ringo Starr)")  
  21. TextStream.WriteBlankLines(1)  
  22. TextStream.WriteLine("I'd like to be under the sea in an octopus' garden in the shade,")  
  23. TextStream.WriteLine("He'd let us in, knows where we've been -- in his octopus' garden in the shade.")  
  24. TextStream.WriteBlankLines(2)  
  25.  
  26. TextStream.Close  
  27.  
  28. Set TextStream = Folder.CreateTextFile("BathroomWindow.txt")  
  29. TextStream.WriteLine("She Came In Through The Bathroom Window (by Lennon/McCartney)")  
  30. TextStream.WriteLine("")  
  31. TextStream.WriteLine("She came in through the bathroom window protected by a silver spoon")  
  32. TextStream.WriteLine("But now she sucks her thumb and wanders by the banks of her own lagoon")  
  33. TextStream.WriteBlankLines(2)  
  34. TextStream.Close  
  35.  
  36. End Sub  
  37.  
  38. ' GetLyrics  
  39. ' 目的：  
  40. ' 显示 lyrics 文件的内容。  
  41. ' 示范下面的内容  
  42. ' - FileSystemObject.OpenTextFile  
  43. ' - FileSystemObject.GetFile  
  44. ' - TextStream.ReadAll  
  45. ' - TextStream.Close  
  46. ' - File.OpenAsTextStream  
  47. ' - TextStream.AtEndOfStream  
  48. ' - TextStream.ReadLine  
  49. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
  50.  
  51. Function GetLyrics(FSO)  
  52.  
  53. Dim TextStream  
  54. Dim S  
  55. Dim File  
  56.  
  57. ' 有多种方法可用来打开一个文本文件，和多种方法来从文件读取数据。  
  58. ' 这儿用了两种方法来打开文件和读取文件：  
  59.  
  60. Set TextStream = FSO.OpenTextFile(TestFilePath & "\Beatles\OctopusGarden.txt", OpenFileForReading)  
  61.  
  62. S = TextStream.ReadAll & NewLine & NewLine  
  63. TextStream.Close  
  64.  
  65. Set File = FSO.GetFile(TestFilePath & "\Beatles\BathroomWindow.txt")  
  66. Set TextStream = File.OpenAsTextStream(OpenFileForReading)  
  67. Do While Not TextStream.AtEndOfStream  
  68. S = S & TextStream.ReadLine & NewLine  
  69. Loop  
  70. TextStream.Close  
  71.  
  72. GetLyrics = S  
  73.  
  74. End Function  

最后此篇关于filesystemobject组件的用法示例的文章就讲到这里了,如果你想了解更多关于filesystemobject组件的用法示例的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

29 4 0
文章推荐： 关于用ADO STREAM做的无组件上传程序简单介绍
文章推荐： FileSystemObject处理文件
文章推荐： ASP中文本文件与数据库文件的数据交换(FSO)
文章推荐： ASP中FSO的神奇功能 - FSO不能做到的
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
全站热门文章
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com