开发工具:
文件大小: 395kb
下载次数: 0
上传时间: 2009-08-28
详细说明： 创建文本文件 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile("C:\FSO\ScriptLog.txt") 检察文件是否存在 Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists("C:\FSO\ScriptL og.txt") Then Set objFolder = objFSO.GetFile("C:\FSO\ScriptLog.txt") Else Wscript.Echo "File does not exist." End If 删除文本文件 Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile("C:\FSO\ScriptLog.txt") 重命名文件 Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.MoveFile "C:\FSO\ScriptLog.txt" , "C:\FSO\BackupLog.txt" 文本操作 读取全部内容 Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForReading) strContents = objFile.ReadAll objFile.Close 一行行的读取文本文件内容 Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile ("c:\scripts\servers.txt", ForReading) Do Until objTextFile.AtEndOfStream strComputer = objTextFile.ReadLine Wscript.Echo strComputer Loop objTextFile.Close 追加文本文件一行内容 Const ForAppending = 8 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile ("C:\Scripts\Service_Status.txt", ForAppending, True) objTextFile.WriteLine("追加的内容") objTextFile.Close 有用的几个函数： 替换：将Jim替换成James。 strNewText = Replace(strText, "Jim ", "James ") 用逗号分隔字符串： arrpath=split(strDN,",") wscript.echo arrpath(0) 几个实例： 读取文本文件指定的行内容（读第四行内容存到strLine变量中） Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("mylogfile.log", ForReading) For i = 1 to 3 objTextFile.ReadLine Next strLine = objTextFile.ReadLine Wscript.Echo strLine objTextFile.Close 对文本文件中的项计数 On Error Resume NextConst adOpenStatic = 3Const adLockOptimistic = 3Const adCmdText = &H0001Set objConnection = CreateObject("ADODB.Connection")Set objRecordset = CreateObject("ADODB.Recordset")strPathtoTextFile = "C:\Scripts"objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & strPathtoTextFile & ";" & _ "Extended Properties=""text;HDR=Yes;FMT=Delimited"""strFile = "City_Names.txt"objRecordset.Open "Select City, Count(City) AS CountOfCity FROM " & strFile & _ " GROUP BY City", objConnection, adOpenStatic, adLockOptimistic, adCmdTextDo Until objRecordset.EOF Wscript.Echo objRecordset.Fields.Item("City"), objRecordset.Fields.Item("CountOfCity") objRecordset.MoveNextLoop ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
