中国DOS联盟论坛 - Powered by Discuz! Board

标题: [求助]怎样用vbs代码实现查找和写出字符串？ [打印本页]

作者: s11ss 时间: 2007-12-12 19:51 标题: [求助]怎样用vbs代码实现查找和写出字符串？

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

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

作者: vkill 时间: 2007-12-12 20:47

open file
str = read file
colse flie
str=~

作者: s11ss 时间: 2007-12-12 21:10

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

作者: vkill 时间: 2007-12-13 20:30

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

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

作者: zh159 时间: 2007-12-13 20:48

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

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

hta可以有

作者: jmz573515 时间: 2007-12-13 21:37

hta怎么清民屏啊？

作者: lotus516 时间: 2007-12-14 00:29

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

作者: zh159 时间: 2007-12-14 02:09

并不是真正的清屏，而是替换为空或者隐藏

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>

作者: fastslz 时间: 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,"”"

作者: zh159 时间: 2007-12-14 15:39

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

作者: s11ss 时间: 2007-12-14 16:23

输出包含字符的那一行

作者: zh159 时间: 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

作者: fastslz 时间: 2007-12-14 17:03

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

作者: terse 时间: 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文件

作者: lotus516 时间: 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赋值

作者: zh159 时间: 2007-12-16 14:44

Set fso = CreateObject("Scripting.FileSystemObject")



source = "a.txt"

strFind = "a,b,c,d,e,f"

strFind = Split(strFind,",")

Num = Ubound(strFind)



Set f = fso.OpenTextFile(source,1)

While not f.AtEndOfStream

  strRead = f.ReadLine

  For i = 0 to Num

    If instr(strRead,strFind(i))>0 Then

      msgbox strRead

    End If

  Next

Wend

  f.Close

这里查找的字符区分大小写（执行的是二进制比较，具体查看instr用法）

Last edited by zh159 on 2007-12-16 at 02:46 PM ]

作者: lotus516 时间: 2007-12-17 08:12

Originally posted by zh159 at 2007-12-16 14:44:

Set fso = CreateObject("Scripting.FileSystemObject")



source = "a.txt"

strFind = "a,b,c,d,e,f"

strFind = Split(strFind,",")

Num = Ubound(strFind)

 ...



zh159理解错我的意思了,我是说strFind的值从某一个文本中取得,不是后面跟一串,总不可能我要找50个,strFind后面打上50个变量吧!!

作者: zh159 时间: 2007-12-17 10:06

Originally posted by lotus516 at 2007-12-17 08:12:

zh159理解错我的意思了,我是说strFind的值从某一个文本中取得,不是后面跟一串,总不可能我要找50个,strFind后面打上50个变量吧!!

Set fso = CreateObject("Scripting.FileSystemObject")



source = "a.txt"

target = "b.txt"



Set f = fso.OpenTextFile(source,1)

strFind = f.ReadAll

f.Close



Set f = fso.OpenTextFile(target,1)

While not f.AtEndOfStream

  strRead = f.ReadLine

  If instr(1,strFind,strRead,1)=0 Then

    str = str & strRead & vbCrLf

  End If

Wend

  f.Close

msgbox str