vbs怎么向文本文档中的特定区域输入或覆盖文字

将vbs生成的东西放在或覆盖在文本文档的特定区域,如放在某一行的最后,或放在某一行的第n个字符后面,或覆盖某一行的某几个字符

你要的代码如下,具体还要修改on error resume next
Set m= WScript.Arguments
set f=createobject("scripting.filesystemobject")
if m.count=0 then
msgbox "请将您要处理的文件拖进“本程序图标上”",64,"提示"wscript.quit
end if
set h=f.opentextfile(m(0))
set mb=f.getfile(m(0))
n=mb.name
i=0 '记录文件行数
do until h.atendofstreamline=h.readline
msg=msg&line'在这里可以添加或处理你要的文本内容
i=i+1
loop
温馨提示:内容为网友见解,仅供参考
第1个回答  2013-08-07
你说一个具体的例子,我写给你,你的表述太笼统了

vbs怎么向文本文档中的特定区域输入或覆盖文字
msgbox "请将您要处理的文件拖进“本程序图标上”",64,"提示"wscript.quit end if set h=f.opentextfile(m(0))set mb=f.getfile(m(0))n=mb.name i=0 '记录文件行数 do until h.atendofstreamline=h.readline msg=msg&line'在这里可以添加或处理你要的文本内容 i=i+1 loop ...

vbs批量替换word中部分文本
方法如下:把一批.doc文件拖拽到这个VBS文件上,松开手,再按提示运作就行了。不打开doc文件就能够批量替换的vbs程序 On Error Resume nextSet objWord = CreateObject("Word.Application") If Wscript.Arguments.Count <> 0 ThenFindstr=InputBox(chr(13)&" 输入要查找的字符串 ", "输入查找字符",...

...的固定行的内容并顺序添加到一个新的文本文档中?
if dir(fs)="" then '判断文件是否存在,不存在则...fso.Createtextfile(fs).Write Writes '新建文件,写入内容 exit function '退出函数 else '如果文件存在则...sread = fso.opentextfile(fs).readall '读取目标文件...If Right(sread, 2) <> vbCrLf And Len(sread) > 0 Then sread ...

谁能帮我编写一个Vbs文件,将一些内容复制到剪切板,最好是覆盖原来的,代...
新建一个文本文档,重命名为 xxx.vbs 把下面的代码复制进去就行了。查看复制到剪切板的内容步骤:1.按组合键 win+R,输入 clipbrd ,打开的就是剪切板了。2.或者 点击 开始-->运行-->输入 ”clipbrd“,打开的就是剪切板了。CopyString "test test test" ' 这个文本内容顺便你输 msgbox "...

怎样在文本文档中查找excel中的特定字符,并把文本文档中相应行的内容...
VBS?你要用网页代码解决这个问题?如果在VBA中,解决思路是导入txt文档到一个临时表-find特定字符-插入对应内容

BAT里批量修改文本文件里的内容!
1、首先鼠标右键单击电脑桌面,选择新建一个文本文档。2、然后打开新建文本文档,输入下方的代码:echo off for \/f "delims=" %%i in ('dir \/s\/b *.txt') do (for \/f "delims=" %%a in ('type "%%~fi"') do (set "foo=%%a"call,set foo=%%foo:1234=4311 call,echo\/%%foo%%>>"...

如何用批处理命令删除字幕文档(srt文件)中指定内容?
发现你的文件是UTF8的,所以需要先转码到ANSI才能让批处理识别代码:第一段代码请保存为 switch.vbs,(由于第二段代码写死了,请注意名称别错了)set fso = CreateObject("Scripting.FileSystemObject")FileList = ""for each oFile in fso.GetFolder(".").Files if LCase(fso.GetExtensionName(oFi...

txt文档部分内容的替换 批处理程序怎么编?
msgbox "Usage:"&vbcrlf&vbcrlf&" 不要直接运行这个脚本,把需要进行字符串替换的一个或多个文件拖曳到这个脚本文件上来就可以了。",,"批量文件字符串替换器 By 千寂孤城"wscript.quit end if do content1=inputbox("请输入你要替换的字符串","批量文件字符串替换器")if isempty(content1) then ...

一个文本文件中一大段文本的删除或者替换,请问用批处理或者vb或者delph...
先遍历文件,找出后缀名为mnl的文件,读取。delphi的memo可以用来读取,然后在memo内处理,应该简单得多,或者直接读出来,写一个函数,一个一个字符的读,非删除内容就存到别一个字符串内,要删除的内容则不管。(读到d的时候,看下一个是不是e,下下个是不是e……如果读到开头内容了,然后就直接...

如何用文本文档做一个简单的死循环?
1、首先在电脑中新建一个文本文档,如图。2、然后打开文本文档,输入下图中的内容,如图。3、然后再将文件进行保存,如图所示。4、然后将文件的后缀名改为“vbs”,如图。5、然后点击vbs文件,就会出现一个死循环的窗口。

相似回答