发布网友 发布时间:2022-04-26 15:58
共1个回答
热心网友 时间:2023-10-13 05:35
Dim fso
content="时间扔带我们匆匆前行 走过一段又一段的落寞 像是沙漠里摇曳的枯树 注定了那样的孤独 我只想请时间可不可以放慢脚步 可以让我走出那片困扰自己的迷途 可是, 我没有想过要忘记"
Set fso = CreateObject("scripting.filesystemobject")
Set myfile=fso.CreateTextFile( "d:\文件.txt",,ture)
str=Split(content," ")
content=""
For Each i In str
myfile.WriteLine i
Next
myfile.Close