как прочитать текстовый файл слово за словом в VB скрипте?

Question

как читать текстовый файл слово за словом в VB скрипте? пожалуйста, дайте все возможные функции.

Answer 1

Это:

  Dim sAll : sAll    = readAllFromFile("..\data\wbw.txt")
  WScript.Echo sAll
  WScript.Echo "-----------------------"

  Dim oRE  : Set oRE = New RegExp
  oRE.Global  = True
  oRE.Pattern = "\w+"
  Dim oMTS : Set oMTS = oRE.Execute(sAll)
  Dim oMT
  For Each oMT In oMTS
      WScript.Echo oMT.Value
  Next

Выход:

===============================================================================
How to read text file word by word in VB script?
Please give all possible functions.
First, read the file line-by-line into an array. Then, when you're reading
through the array, parse each line word-by-word. As such:

-----------------------
How
to
read
text
file
word
by
word
in
VB
script
Please
give
all
possible
functions
First
read
the
file
line
by
line
into
an
array
Then
when
you
re
reading
through
the
array
parse
each
line
word
by
word
As
such
===============================================================================

избегает всех злодеяний решения Зомги:

1. Не может использоваться с явным параметром
2. Бесполезный Dim фиксированного массива без размера
3. Бесполезный массив строк
4. Дорогое ReDim Preserve с дополнительным счетчиком
5. Бесполезная переменная inputText
6. Разделение на "" делает "Первое" словом

Answer 2

Сначала прочитайте файл построчно в массив.Затем, когда вы читаете массив, анализируйте каждую строку пословно.Как таковой:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("c:\file.txt", ForReading)

Const ForReading = 1

Dim arrFileLines()
i = 0
Do Until objFile.AtEndOfStream
    Redim Preserve arrFileLines(i)
    arrFileLines(i) = objFile.ReadLine
    i = i + 1
Loop
objFile.Close

For Each strLine in arrFileLines

    inputText = strLine

    outputArray = Split(inputText)

    For Each x in outputArray
        WScript.Echo "Word: " & x
    Next
Next