本页内容是《文本文件读一行写一行,生成新文件》同时我们还提供济宁地区的网站建设,百度,雅虎,google的推广,点金,商友,等营销软件
请输入关键字:

标题搜索 内容搜索  

你现在所在的位置->首页->vbscript->文本文件读一行写一行,生成新文件

文本文件读一行写一行,生成新文件

时间:[2009-11-14 21:31:15]     作者:请作者尽快与我们联系。

Const ForReading = 1
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("转移备案号.txt", ForReading)


Set objFSO1 = CreateObject("Scripting.FileSystemObject")
Set objTextFile1 = objFSO1.OpenTextFile ("Service_Status.txt", ForAppending, True)

Do Until objTextFile.AtEndOfStream
    strComputer = objTextFile.ReadLine
if strComputer<>"" then
    objTextFile1.WriteLine(strComputer)
end if
Loop

objTextFile.Close

objTextFile1.Close

【声明】本站刊载的《文本文件读一行写一行,生成新文件》一文如果有侵害你权益的情况,请联系我们。我们将及时采取措施。
QQ:44637339 Email:just6@163.com Tel:13355163107 Lining studios

友情链接

本页内容是《文本文件读一行写一行,生成新文件》 返回顶部
© 2001-2017 Lining studios 济宁速创科技有限公司, All Rights Reserved
 Processed Time:46.875ms