Vb script to find the string

Question

0.00/5 (No votes)

See more:

i have set of MAP in text file as below.

map alias elr72_511
type regular byRule
roles replace admin to owner_roles
comment Converted_from_elr72_rule_31
to 1/2/x29,1/3/x27
from 1/4/x5..x6
exit
map alias elr72_582
type regular byRule
roles replace admin to owner_roles
comment Converted_from_elr72_rule_274
to 1/2/x29,1/3/x27
from 1/4/x5..x6
exit

from that text file i need to find all maps name which are going to 1/2/x29.

What I have tried:

Dim objFSO, filepath, objInputFile, tmpStr, substrToFind

Set objFSO = CreateObject("Scripting.FileSystemObject")
filepath = "C:\Users\Desktop\New Text Document.txt"
substrToFind = "1/2/x27"
Set objInputFile = objFSO.OpenTextFile(filepath)
tmpStr = objInputFile.Read
If InStr(tmpStr, substrToFind) <= 0 Then
WScript.Echo "No matches"
Else
WScript.Echo "Found match"
End If

Posted 30-Apr-17 22:23pm

Member 13163682

Updated 1-May-17 0:01am

OriginalGriff

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

NightWizzard · Accepted Answer · 2017-05-01T00:01:00

There are two simple ways to solve this:
1) if it is correct that each map ends with the key word 'exit' and if this key word won't occur in other positions within a map, you may read the complete file content into a single string, then use the split method to turn the string into an array using 'exit' as the separator. With a For-Next-Loop you can check each array element for the searched string.

2) you may use a regex object to parse the file content - this would be more elegant and easier but requires a good understanding of regular expressions.

Here's a sample created with VBScript:

VB

Dim objFSO, filepath, objInputFile, tmpStr, substrToFind, arrRecords, r
Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
filepath = "C:\Users\Desktop\New Text Document.txt"
substrToFind = "1/2/x29,1/3/x27"
Set objInputFile = objFSO.OpenTextFile(filepath, ForReading)
tmpStr = objInputFile.ReadAll()


If InStr(tmpStr, substrToFind) <= 0 Then
	WScript.Echo "No matches"
Else
	arrRecords = Split(tmpStr, "exit")
	
	For r = LBound(arrRecords, 1) To UBound(arrRecords, 1)
		If Instr(arrRecords(r), substrToFind) > 0 Then
			MsgBox "'" & substrToFind & "' found in " & (r +1) & ". record"
		End If
	Next
	
	MsgBox "No more matches found"
End If