怎样用vbs代码实现查找某个文本文件中的某个字符串并写出到另一个文件？（输出包含该字符串的行）
[ Last edited by s11ss on 2007-12-14 at 04:24 PM ]
[ Last edited by s11ss on 2007-12-14 at 04:24 PM ]
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]怎样用vbs代码实现查找和写出字符串？
查看 2,159 回复 17
楼 主
[求助]怎样用vbs代码实现查找和写出字符串？
发表于 2007-12-12 19:51 · 中国 北京 鹏博士BGP
第 2 楼
发表于 2007-12-12 20:47 · 中国 甘肃 张掖 电信
open file
str = read file
colse flie
str=~
str = read file
colse flie
str=~
本帖最近评分记录
（共 1 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| s11ss | +4 | 2007-12-12 21:06 |
第 3 楼
发表于 2007-12-12 21:10 · 中国 北京 鹏博士BGP
vkill兄知道不知道用cscript执行vbs时是否有类似cls的清屏命令？
第 4 楼
发表于 2007-12-13 20:30 · 中国 甘肃 张掖 电信
Originally posted by s11ss at 2007-12-12 21:10:
vkill兄知道不知道用cscript执行vbs时是否有类似cls的清屏命令？
未知,好象除了cmd都没有清屏的功能吧
第 5 楼
发表于 2007-12-13 20:48 · 中国 广西 玉林 电信
Originally posted by vkill at 2007-12-13 20:30:
未知,好象除了cmd都没有清屏的功能吧
hta可以有
第 6 楼
发表于 2007-12-13 21:37 · 中国 辽宁 本溪 联通
hta怎么清民屏啊？
第 7 楼
发表于 2007-12-14 00:29 · 中国 福建 三明 电信
能不能把代码说详细些啊?
第 8 楼
发表于 2007-12-14 02:09 · 中国 广西 玉林 博白县 电信
并不是真正的清屏，而是替换为空或者隐藏
hta本身运行方式就和批处理不同
hta本身运行方式就和批处理不同
<html>
<title>cls</title>
<HTA:APPLICATION
ID="MyhyliApp"
APPLICATIONNAME="cls"
BORDER="thin"
BORDERSTYLE="normal"
VERSION="1.0"
SCROLL="no"
INNERBORDER="yes"
CONTEXTMENU="yes"
CAPTION="yes"
MAXIMIZEBUTTON="yes"
MINIMIZEBUTTON="yes"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
WINDOWSTATE="normal"
NAVIGABLE="yes"
/>
<script language="VBScript">
windowswidth = 640
windowsheight = 480
window.resizeTo windowswidth, windowsheight
ileft=(window.screen.width-windowswidth)/2
itop=(window.screen.height-windowsheight)/2
window.moveTo ileft,itop
</script>
<body bgcolor=#e0e0e0>
<table align="center">
<tr>
<td align="center">清除后用F5刷新</td>
</tr>
<tr>
<td id="Menu" align="center"></td>
</tr>
</table>
<table width="100%" style="position:absolute; bottom:20px;"><td>
<table align="center" style="font:bold 15px 宋体;">
<tr align="center">
<td><button onclick="CLS1" style="width:100;">清除内容</button></td>
</tr>
<tr align="center">
<td><button onclick="CLS2" style="width:100;">隐藏内容</button></td>
</tr>
</table>
</td></table>
</body>
<script language="VBScript">
Menu.innerHTML = "测试<br>测试<br>测试<br>测试<br>测试<br>"
Sub CLS1
Menu.innerHTML = ""
End Sub
Sub CLS2
Menu.style.display = "none"
End Sub
</script>
<html>
第 9 楼
发表于 2007-12-14 15:00 · 中国 上海 松江区 电信
指定1个字符
file=Wscript.ScriptFullName
'file=WScript.Arguments(0)
Dim str
set str = CreateObject("Adodb.Stream")
str.Type = 1
str.Mode = 3
str.Open
str.Loadfromfile file
Bin=str.read(6)
Usage = MidB(Bin,6,1)
str.Close
set str = Nothing
WScript.echo "本脚本第6字节字符为“",Usage,"”"
第 10 楼
发表于 2007-12-14 15:39 · 中国 广西 玉林 博白县 电信
问题是你要输出包含字符的那一行，还是有那个字符就输出那个字符？
第 11 楼
发表于 2007-12-14 16:23 · 中国 北京 鹏博士BGP
输出包含字符的那一行
第 12 楼
发表于 2007-12-14 16:42 · 中国 广西 玉林 博白县 电信
Set fso = CreateObject("Scripting.FileSystemObject")
source = "a.txt"
strFind = "b"
Set f = fso.OpenTextFile(source,1)
While not f.AtEndOfStream
strRead = f.ReadLine
If instr(strRead,strFind)>0 Then
msgbox strRead
End If
Wend
f.Close
第 13 楼
发表于 2007-12-14 17:03 · 中国 上海 松江区 电信
文本中第几个字节,换行+2
第 14 楼
发表于 2007-12-14 20:16 · 中国 江苏 常州 溧阳市 电信
翻到个老贴发上来
set fso=createobject("scripting.filesystemobject")
If fso.FileExists("text.txt")=0 then '判断是否存在text.txt文件
fso.createtextfile("text.txt")
end if
set file=fso.opentextfile("text.txt",8) '追加形式打开文件
set opfile=fso.opentextfile("a.txt") '打开文件
do while opfile.atendofstream=false
line=opfile.readline '读取一行内容
if instr(line,"查找字符")>0 then '判断是否包含查找字符
str=str&line&vbcrlf '加入缓冲区
end if
loop
file.writeline (str) '搜索到查找字符行写入text.txt文件
简单!简单!再简单!
第 15 楼
发表于 2007-12-16 10:48 · 中国 福建 三明 电信
Originally posted by zh159 at 2007-12-14 16:42:
Set fso = CreateObject("Scripting.FileSystemObject")
source = "a.txt"
strFind = "b"
Set f = fso.OpenTextFile(source,1)
While not f.AtEndOfStream
strRe ...
如果有多个字符呢!!我有一个文本list.txt,里面有abc,will,www等等(均为一行一个单词),可不可以一起找出来呢?而不要运行VBS都要去重新给strFind赋值
论坛跳转: