中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net  论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]怎样用vbs代码实现查找和写出字符串？
« [1] [2] » ›
作者:
标题: [求助]怎样用vbs代码实现查找和写出字符串？ 上一主题 | 下一主题
s11ss
银牌会员





积分 2098
发帖 566
注册 2007-9-11
状态 离线
『楼 主』:  [求助]怎样用vbs代码实现查找和写出字符串？

怎样用vbs代码实现查找某个文本文件中的某个字符串并写出到另一个文件？（输出包含该字符串的行）

[ Last edited by s11ss on 2007-12-14 at 04:24 PM ]

2007-12-12 19:51
查看资料  发短消息 网志   编辑帖子  回复  引用回复
vkill
金牌会员





积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
『第 2 楼』:  

open file
str = read file
colse flie
str=~

   此帖被 +4 点积分      点击查看详情   
评分人：【 s11ss 】分数： +4  时间：2007-12-12 21:06


2007-12-12 20:47
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子  回复  引用回复
s11ss
银牌会员





积分 2098
发帖 566
注册 2007-9-11
状态 离线
『第 3 楼』:  

vkill兄知道不知道用cscript执行vbs时是否有类似cls的清屏命令？

2007-12-12 21:10
查看资料  发短消息 网志   编辑帖子  回复  引用回复
vkill
金牌会员





积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
『第 4 楼』:  



  Quote:
Originally posted by s11ss at 2007-12-12 21:10:
vkill兄知道不知道用cscript执行vbs时是否有类似cls的清屏命令？

未知,好象除了cmd都没有清屏的功能吧

2007-12-13 20:30
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子  回复  引用回复
zh159
金牌会员




积分 3687
发帖 1467
注册 2005-8-8
状态 离线
『第 5 楼』:  



  Quote:
Originally posted by vkill at 2007-12-13 20:30:

未知,好象除了cmd都没有清屏的功能吧

hta可以有



2007-12-13 20:48
查看资料  发短消息 网志   编辑帖子  回复  引用回复
jmz573515
银牌会员




积分 1212
发帖 464
注册 2006-12-13
状态 离线
『第 6 楼』:  

hta怎么清民屏啊？

2007-12-13 21:37
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
lotus516
高级用户

论坛上抢劫的


积分 551
发帖 246
注册 2006-9-21
状态 离线
『第 7 楼』:  

能不能把代码说详细些啊?

2007-12-14 00:29
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zh159
金牌会员




积分 3687
发帖 1467
注册 2005-8-8
状态 离线
『第 8 楼』:  

并不是真正的清屏，而是替换为空或者隐藏
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>




2007-12-14 02:09
查看资料  发短消息 网志   编辑帖子  回复  引用回复
fastslz
铂金会员

DOS一根葱


积分 5493
发帖 2315
注册 2006-5-1
来自 上海
状态 离线
『第 9 楼』:  

指定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,"”"




第一高手    第二高手
我的小站
2007-12-14 15:00
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zh159
金牌会员




积分 3687
发帖 1467
注册 2005-8-8
状态 离线
『第 10 楼』:  

问题是你要输出包含字符的那一行，还是有那个字符就输出那个字符？



2007-12-14 15:39
查看资料  发短消息 网志   编辑帖子  回复  引用回复
s11ss
银牌会员





积分 2098
发帖 566
注册 2007-9-11
状态 离线
『第 11 楼』:  

输出包含字符的那一行

2007-12-14 16:23
查看资料  发短消息 网志   编辑帖子  回复  引用回复
zh159
金牌会员




积分 3687
发帖 1467
注册 2005-8-8
状态 离线
『第 12 楼』:  


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




2007-12-14 16:42
查看资料  发短消息 网志   编辑帖子  回复  引用回复
fastslz
铂金会员

DOS一根葱


积分 5493
发帖 2315
注册 2006-5-1
来自 上海
状态 离线
『第 13 楼』:  

文本中第几个字节,换行+2



第一高手    第二高手
我的小站
2007-12-14 17:03
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
terse
银牌会员





积分 2404
发帖 946
注册 2005-9-8
状态 离线
『第 14 楼』:  

翻到个老贴发上来
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文件




简单!简单!再简单!
2007-12-14 20:16
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
lotus516
高级用户

论坛上抢劫的


积分 551
发帖 246
注册 2006-9-21
状态 离线
『第 15 楼』:  



  Quote:
Originally posted by zh159 at 2007-12-14 16:42:
[code]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赋值

2007-12-16 10:48
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
« [1] [2] » ›
请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023