如何在VBS中使用CreateTextFile方法-创新互联

如何在VBS中使用CreateTextFile 方法?相信很多没有经验的人对此束手无策,为此本文总结了问题出现的原因和解决方法,通过这篇文章希望你能解决这个问题。

你所需要的网站建设服务,我们均能行业靠前的水平为你提供.标准是产品质量的保证,主要从事网站设计制作、做网站企业网站建设、成都手机网站制作、网页设计、品牌网站制作、网页制作、做网站、建网站。创新互联拥有实力坚强的技术研发团队及素养的视觉设计专才。

CreateTextFile 方法

创建指定文件并返回TextStream 对象,该对象可用于读或写创建的文件。

object.CreateTextFile(filename[, overwrite[, unicode]])

参数

object

必选项。应为 FileSystemObject 或 Folder 对象的名称。

filename

必选项。字符串表达式,指明要创建的文件。

overwrite

可选项。Boolean 值指明是否可以覆盖现有文件。如果可覆盖文件,该值为True;如果不能覆盖文件,则该值为False 。如果省略该值,则不能覆盖现有文件。

unicode

可选项。Boolean 值指明是否以 Unicode 或 ASCII 文件格式创建文件。如果以 Unicode 文件格式创建文件,则该值为True;如果以 ASCII 文件格式创建文件,则该值为False。如果省略此部分,则假定创建 ASCII 文件。

说明

以下代码举例说明如何使用CreateTextFile 方法创建并打开文本文件:

Sub CreateAfile Dim fso, MyFile
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
 MyFile.WriteLine("这是一个测试。") MyFile.CloseEnd Sub

对于filename 已经存在的文件,如果overwrite 参数为False,或未提供此参数时,则会出现错误。

但很多时候为了方便,我们会自定义生成文本文件的函数

Function createTextFile(Byval content,Byval fileDir,Byval code)
	dim fileobj,fileCode : fileDir=replace(fileDir, "\", "/")
	if isNul(code) then fileCode=Charset else fileCode=code
	call createfolder(fileDir,"filedir")
	if fileCode="utf-8" then
		on error resume next
		With objStream
			.Charset=fileCode:
			.Type=2:
			.Mode=3:
			.Open:
			.Position=0
			.WriteText content:
			.SaveToFile Server.MapPath(fileDir), 2
			.Close
		End With
	else
		on error resume next:err.clear
		set fileobj=objFso.CreateTextFile(server.mappath(fileDir),True)
		fileobj.Write(content)
		set fileobj=nothing
	end if
	if Err Then err.clear :createTextFile=false : errid=err.number:errdes=err.description:Err.Clear : echoErr err_09,errid,errdes else createTextFile=true
End Function
Sub echoErr(byval str,byval id, byval des)    

    dim errstr,cssstr
		cssstr=""
    cssstr=cssstr&""
    errstr=cssstr&"setTimeout(""goLastPage()"",5000);function goLastPage(){location.href='"& sitePath &"/';}提示:【"&str&"】
错误号:"&id&"
错误描述:"&des&"返回上一页 返回首页
Powered by AspCms2.0
"     cssstr=""     die(errstr) End Sub

看完上述内容,你们掌握如何在VBS中使用CreateTextFile 方法的方法了吗?如果还想学到更多技能或想了解更多相关内容,欢迎关注创新互联行业资讯频道,感谢各位的阅读!


分享标题:如何在VBS中使用CreateTextFile方法-创新互联
标题URL:http://myzitong.com/article/ipcej.html

其他资讯