How to use VBS code to implement finding and writing strings? - China DOS Union Forum

How to use VBS code to find a certain string in a text file and write it to another file? (Output the lines containing the string)

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

open file
str = read file
colse flie
str=~

Does Brother vkill know if there is a clear screen command similar to cls when executing VBS with cscript?

Originally posted by s11ss at 2007-12-12 21:10:
Does brother vkill know if there is a screen-clearing command similar to cls when executing vbs with cscript?

Unknown, it seems that except for cmd, there is no screen-clearing function.

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

Unknown, it seems that except for cmd, there is no function to clear the screen.

hta can have

How to clear the screen in HTA?

Can you explain the code in more detail?

It's not really clearing the screen, but replacing it with empty or hiding

The running mode of HTA itself is different from batch processing


<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">Clear and then refresh with 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;">Clear Content</button></td>
  </tr>
  <tr align="center">
    <td><button onclick="CLS2" style="width:100;">Hide Content</button></td>
  </tr>
</table>
</td></table>

</body>

<script language="VBScript">

Menu.innerHTML = "Test<br>Test<br>Test<br>Test<br>Test<br>"

    Sub CLS1
Menu.innerHTML = ""
    End Sub

    Sub CLS2
Menu.style.display = "none"
    End Sub

</script>

<html>

Specify 1 character

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 "The character at the 6th byte of this script is “",Usage,"”"

The question is: Do you want to output the line that contains the character, or output that character if it exists?

Please provide the specific content from the China DOS Union (中国DOS联盟) forum so that I can accurately output the line containing characters.

```vb
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
```

Which byte in the text, newline + 2

Dig out an old post and post it up


set fso=createobject("scripting.filesystemobject")
If fso.FileExists("text.txt")=0 then              'Check if the text.txt file exists
fso.createtextfile("text.txt")                    
end if
set file=fso.opentextfile("text.txt",8)               'Open the file in append mode 
set opfile=fso.opentextfile("a.txt")                   'Open the file
do while opfile.atendofstream=false
        line=opfile.readline                           'Read a line of content
        if instr(line,"Search character")>0 then        'Judge if it contains the search character
                str=str&line&vbcrlf                'Add to buffer
        end if
loop
file.writeline (str)                                  'Write the line with the search character to the text.txt file

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 ... What if there are multiple characters!! I have a text file list.txt, which has abc, will, www, etc. (all one word per line). Can I find them all at once instead of having to reassign strFind every time I run the VBS?

Floor1　s11ss	Posted 2007-12-12 19:51
银牌会员　Posts 566　Credits 2,098
How to use VBS code to find a certain string in a text file and write it to another file? (Output the lines containing the string) [ Last edited by s11ss on 2007-12-14 at 04:24 PM ]

Floor2　vkill	Posted 2007-12-12 20:47
金牌会员　Posts 1,744　Credits 4,103　From 甘肃.临泽
open file str = read file colse flie str=~

Floor3　s11ss	Posted 2007-12-12 21:10
银牌会员　Posts 566　Credits 2,098
Does Brother vkill know if there is a clear screen command similar to cls when executing VBS with cscript?

Floor4　vkill	Posted 2007-12-13 20:30
金牌会员　Posts 1,744　Credits 4,103　From 甘肃.临泽
Originally posted by s11ss at 2007-12-12 21:10: Does brother vkill know if there is a screen-clearing command similar to cls when executing vbs with cscript? Unknown, it seems that except for cmd, there is no screen-clearing function.

Floor5　zh159	Posted 2007-12-13 20:48
金牌会员　Posts 1,467　Credits 3,687
Originally posted by vkill at 2007-12-13 20:30: Unknown, it seems that except for cmd, there is no function to clear the screen. hta can have

Floor6　jmz573515	Posted 2007-12-13 21:37
银牌会员　Posts 464　Credits 1,212
How to clear the screen in HTA?

Floor7　lotus516	Posted 2007-12-14 00:29
高级用户　Posts 246　Credits 551
Can you explain the code in more detail?

Floor8　zh159	Posted 2007-12-14 02:09
金牌会员　Posts 1,467　Credits 3,687
It's not really clearing the screen, but replacing it with empty or hiding The running mode of HTA itself is different from batch processing <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">Clear and then refresh with 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;">Clear Content</button></td> </tr> <tr align="center"> <td><button onclick="CLS2" style="width:100;">Hide Content</button></td> </tr> </table> </td></table> </body> <script language="VBScript"> Menu.innerHTML = "Test<br>Test<br>Test<br>Test<br>Test<br>" Sub CLS1 Menu.innerHTML = "" End Sub Sub CLS2 Menu.style.display = "none" End Sub </script> <html>

Floor9　fastslz	Posted 2007-12-14 15:00
铂金会员　Posts 2,315　Credits 5,493　From 上海
Specify 1 character 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 "The character at the 6th byte of this script is “",Usage,"”"

Floor10　zh159	Posted 2007-12-14 15:39
金牌会员　Posts 1,467　Credits 3,687
The question is: Do you want to output the line that contains the character, or output that character if it exists?

Floor11　s11ss	Posted 2007-12-14 16:23
银牌会员　Posts 566　Credits 2,098
Please provide the specific content from the China DOS Union (中国DOS联盟) forum so that I can accurately output the line containing characters.

Floor12　zh159	Posted 2007-12-14 16:42
金牌会员　Posts 1,467　Credits 3,687
```vb 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 ```

Floor13　fastslz	Posted 2007-12-14 17:03
铂金会员　Posts 2,315　Credits 5,493　From 上海
Which byte in the text, newline + 2

Floor14　terse	Posted 2007-12-14 20:16
银牌会员　Posts 946　Credits 2,404
Dig out an old post and post it up set fso=createobject("scripting.filesystemobject") If fso.FileExists("text.txt")=0 then 'Check if the text.txt file exists fso.createtextfile("text.txt") end if set file=fso.opentextfile("text.txt",8) 'Open the file in append mode set opfile=fso.opentextfile("a.txt") 'Open the file do while opfile.atendofstream=false line=opfile.readline 'Read a line of content if instr(line,"Search character")>0 then 'Judge if it contains the search character str=str&line&vbcrlf 'Add to buffer end if loop file.writeline (str) 'Write the line with the search character to the text.txt file

Floor15　lotus516	Posted 2007-12-16 10:48
高级用户　Posts 246　Credits 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 ... What if there are multiple characters!! I have a text file list.txt, which has abc, will, www, etc. (all one word per line). Can I find them all at once instead of having to reassign strFind every time I run the VBS?