怎样用vbs代码实现查找和写出字符串？ - 中国DOS联盟论坛

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

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

open file
str = read file
colse flie
str=~

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

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

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

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

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

hta可以有

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>

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

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

输出包含字符的那一行

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

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

翻到个老贴发上来


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文件

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赋值

第1楼　s11ss	发表于 2007-12-12 19:51
银牌会员　发帖 566　积分 2,098
[求助]怎样用vbs代码实现查找和写出字符串？怎样用vbs代码实现查找某个文本文件中的某个字符串并写出到另一个文件？（输出包含该字符串的行） [ Last edited by s11ss on 2007-12-14 at 04:24 PM ]

第2楼　vkill	发表于 2007-12-12 20:47
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
open file str = read file colse flie str=~

第3楼　s11ss	发表于 2007-12-12 21:10
银牌会员　发帖 566　积分 2,098
vkill兄知道不知道用cscript执行vbs时是否有类似cls的清屏命令？

第4楼　vkill	发表于 2007-12-13 20:30
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
Originally posted by s11ss at 2007-12-12 21:10: vkill兄知道不知道用cscript执行vbs时是否有类似cls的清屏命令？未知,好象除了cmd都没有清屏的功能吧

第5楼　zh159	发表于 2007-12-13 20:48
金牌会员　发帖 1,467　积分 3,687
Originally posted by vkill at 2007-12-13 20:30: 未知,好象除了cmd都没有清屏的功能吧 hta可以有

第6楼　jmz573515	发表于 2007-12-13 21:37
银牌会员　发帖 464　积分 1,212
hta怎么清民屏啊？

第7楼　lotus516	发表于 2007-12-14 00:29
高级用户　发帖 246　积分 551
能不能把代码说详细些啊?

第8楼　zh159	发表于 2007-12-14 02:09
金牌会员　发帖 1,467　积分 3,687
并不是真正的清屏，而是替换为空或者隐藏 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楼　fastslz	发表于 2007-12-14 15:00
铂金会员　发帖 2,315　积分 5,493　来自上海
指定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楼　zh159	发表于 2007-12-14 15:39
金牌会员　发帖 1,467　积分 3,687
问题是你要输出包含字符的那一行，还是有那个字符就输出那个字符？

第11楼　s11ss	发表于 2007-12-14 16:23
银牌会员　发帖 566　积分 2,098
输出包含字符的那一行

第12楼　zh159	发表于 2007-12-14 16:42
金牌会员　发帖 1,467　积分 3,687
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楼　fastslz	发表于 2007-12-14 17:03
铂金会员　发帖 2,315　积分 5,493　来自上海
文本中第几个字节,换行+2

第14楼　terse	发表于 2007-12-14 20:16
银牌会员　发帖 946　积分 2,404
翻到个老贴发上来 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楼　lotus516	发表于 2007-12-16 10:48
高级用户　发帖 246　积分 551
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赋值