如何在文本文件中获取某个字符串

Question

Here's an example text file named "sample.txt":

This is a sample text file and I need to return this string > "myScript.sql".
And this another string: "myNewScript.sql"
How do I do it using VBScript?

And what I want to do is to return the "myScript.sql" and "myNewScript.sql" string using VB Script.

Like:

If string's file extension =  ".sql"
  THEN
    myString = Scan left and get the string until the QUOTE (") symbol.
    Echo myString

Something like that.

Answer 1

You can easily use regular expressions in this case:

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set file = objFSO.OpenTextFile("sample.txt" , ForReading)  
Const ForReading = 1

Dim re
Set re = new regexp 
re.Pattern = """(\w+?[.]sql)"""
re.IgnoreCase = True
re.Global = True

Dim line
Do Until file.AtEndOfStream
    line = file.ReadLine
    For Each m In re.Execute(line)
       Wscript.Echo m.Submatches(0)
    Next
Loop 

By executing it with:

cscript //nologo test.vbs

With the file sample.txt:

This is a sample text file and I need to return this string > "myScript.sql".
And this another string: "myNewScript.sql"
How do I do it using VBScript?

You'll get this:

myScript.sql
myNewScript.sql

Answer 2

Option Explicit

Const ForReading = 1

Dim fso
    Set fso = WScript.CreateObject("Scripting.FileSystemObject")

Dim fileMatch
    With New RegExp
        .Pattern = """([^""]*\.sql)"""
        .IgnoreCase = True
        .Global = True
        For Each fileMatch in .Execute(fso.OpenTextFile("sample.txt", ForReading).ReadAll())
            WScript.Echo fileMatch.SubMatches(0)
        Next 
    End With

This will search the file contents for quoted strings that end in .sql , extracting the text inside the quotes