wnlt.net
当前位置:首页 >> 怎么用vBs操作一个文本文件 >>

怎么用vBs操作一个文本文件

代码如下:set fso=CreateObject("Scripting.FileSystemObject") set fw=fso.createtextfile("文件名.txt",2) fw.writeline("111111111") fw.writeline("第二行") fw.writeline("第三行") fw.writeline("第四行") fw.close

path = "C:\" '生成到那里n = 100 '生成多少个Set fso = CreateObject("Scripting.Filesystemobject")For i=0 To n fso.CreateTextFile path & i & ".txt"Next

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

在要建立文本文件的目录下,右击选择"新建文本文档",这样就建立了一个文本文件,然后输入内容. 选择"文件"/"另存为(A)"在弹出的对话中的文件名处填上key.vbs点击"保存"就可以拉 要看你在什么时候使用,如:启动时使用."开始"/"运行"/gpedit.msc/在弹出的对话框中选择"windows设置"/"脚本(启动/关机)"在右边的框中双击"启动"/"添加"/"脚本名"/key.vbs/"确定".每次启动计算机他都执行一次.

使用CreateTextFile去创建文件,路径自己修改下.如果遇到错误 一般是没有权限 或者 文件已经存在Set fso = CreateObject("scripting.filesystemobject")Set myfile=fso.CreateTextFile( "z:\文件名.txt",,ture)myfile.WriteLine "内容"myfile.Close

可以啊. 右击 记事本就行了

批处理不能直接修改原文件,不过可以再新建一个文件满足你的要求.把xx.txt的内容发上来,给你写代码.

set fso=createobject("scripting.filesystemobject")set file=fso.opentextfile("a.txt")do while file.atendofstream<>true n=file.readline s=s & vbcrlf & left(n,9)loopfile.closeSet objIE = CreateObject("InternetExplorer.Application")objIE.Navigate("

'新文本文件命名为 b1.txt b2.txt b3.txt Set FSO = CreateObject("Scripting.FileSystemObject") Const ForReading = 1, ForAppending = 8 For i = 1 To n '把n改为你的文本文件数量 Set fa = FSO.OpenTextFile("a" & i & ".txt", ForReading) Do

打开“我的电脑”,点击菜单里的“工具”子菜单,再点击“文件夹选项”,点击“查看”标签,一直向下拖,直到看见“隐藏已知文件类型扩展名”,点击它,点击“应用”按钮.右键单击文本文档格式的文件,点击“重命名”,把txt改成vbs

网站首页 | 网站地图
All rights reserved Powered by www.wnlt.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com