1. CreateTextFile的用法
使用CreateTextFile创建文本文件非常简单，它的语法如下： CreateTextFile(filename[, overwrite[, unicode]]) 其中，参数filename表示要创建的文件名；参数overwrite表示当同名文件已存在时是否覆盖（True表示覆盖，False表示不覆盖，默认为False）；参数unicode表示是否以Unicode编码方式创建文件（True表示以Unicode编码方式创建，False表示以ANSI编码方式创建，默认为False）。 例如，下面的代码就可以创建一个名为test.txt的ANSI编码文本文件： ``` Dim fso, outFile Set fso = CreateObject(\"Scripting.FileSystemObject\") Set outFile = fso.CreateTextFile(\"C:\est.txt\") ```2. 向文本文件中写入数据
创建好文本文件后，我们当然希望能够向其中写入一些数据。这可以使用Write、WriteLine和WriteBlankLines这三个函数来实现。 Write函数用于向文本文件中写入一段文本内容，语法如下： outFile.Write string 其中，参数string表示要写入的文本字符串。 例如，下面的代码可以向文本文件中写入一条信息： ``` outFile.Write \"Hello world!\" ``` WriteLine函数用于向文本文件中写入一行文本内容，语法如下： outFile.WriteLine string 例如，下面的代码可以向文本文件中写入一行信息： ``` outFile.WriteLine \"Hello world!\" ``` WriteBlankLines函数用于想文本文件中写入空行，语法如下： outFile.WriteBlankLines count 其中，参数count表示要写入的空行数目。 例如，下面的代码可以向文本文件中写入3个空行： ``` outFile.WriteBlankLines 3 ```3. 关闭文本文件
最后，我们还需要使用Close函数关闭文本文件，以释放系统资源。 Close函数的语法如下： outFile.Close() 例如，下面的代码在向文本文件中写入完所有数据后，关闭了文件： ``` outFile.Write \"Hello world!\" outFile.WriteLine \"This is a test file.\" outFile.WriteBlankLines 3 outFile.Close() ```总结
通过CreateTextFile函数，我们可以方便地创建文本文件，并向其中写入数据。同时，我们还需要注意在写入完数据后及时关闭文本文件，以免占用系统资源。
本文标题：createtextfile（使用CreateTextFile创建文本文件） 本文链接：http://www.cswwyl.com/meishi/6645.html
注：本文部分文字与图片资源来自于网络，转载此文是出于传递更多信息之目的,若有来源标注错误或侵犯了您的合法权益，请立即后台留言通知我们，情况属实，我们会第一时间予以删除，并同时向您表示歉意
