Option Explicit

Dim strPath
Dim strBase

Dim objConnection
Dim objRecordset
Dim objField


strPath = "E:\Песочница\0317"
strBase = "data.dbf"

Set objConnection = WScript.CreateObject("ADODB.Connection")

With objConnection
    .ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & strPath & ";" & _
        "Extended Properties=dBASE IV;"
    
    .Open
End With

Set objRecordset  = WScript.CreateObject("ADODB.Recordset")

With objRecordset
    Set .ActiveConnection = objConnection
    
    .Open "SELECT * FROM " & strBase & " WHERE SUM = -1"
    
    For Each objField In .Fields
        WScript.StdOut.Write objField.Name & ";"
    Next
    
    WScript.StdOut.WriteLine
    
    Do Until .EOF
        For Each objField In .Fields
            WScript.StdOut.Write StrConvert(CStr(objField.Value & ""), "cp866", "windows-1251") & ";"
        Next
        
        WScript.StdOut.WriteLine
        
        .MoveNext
    Loop
    
    .Close
End With

objConnection.Close

Set objRecordset  = Nothing
Set objConnection = Nothing

WScript.Quit 0
'=============================================================================

'=============================================================================
' HKEY_CLASSES_ROOT\MIME\Database\Charset
' cp866, windows-1251, koi8-r, unicode, utf-8, _autodetect
'=============================================================================
Function StrConvert(ByVal strText, ByVal strSourceCharset, ByVal strDestCharset)
    Const adTypeText      = 2
    Const adModeReadWrite = 3
    
    
    With WScript.CreateObject("ADODB.Stream")
        .Type      = adTypeText
        .Mode      = adModeReadWrite
        
        .Open
        
        .Charset   = strSourceCharset
        .WriteText strText
        
        .Position  = 0
        .Charset   = strDestCharset
        StrConvert = .ReadText
        
        .Close
    End With
End Function
'=============================================================================

Условие задано в «WHERE SUM = -1», помнится, оно должно было быть именно таким.

Поскольку у Вас внутри ANSI, а умолчание для данного формата — OEM, то, дабы не лазать и не править реестр («HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Xbase\DataCodePage»), добавлена простая обратная конвертация.

Вам конечный результат в каком виде нужен?

Ошибка происходит из за того, что, скорее всего, в конце есть пустые строки.. Уберите их.. Или же выключите ошибки в скрипте, написав в начале On Error Resume Next..

Или же просто проверять, сколько элементов..

Dim Result(200)

For i = 0 To 200
Result(i) = "_"
Next

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objF = objFSO.OpenTextFile(filename, 1, false, 0)    
Text = objF.ReadAll                                   

Str_ = Split(Text, vbNewLine)      
Index = 0

For Each Str In Str_ 

Parts = Split(Str, vbTab)

If UBound(Parts) = 8 Then
If (Parts(8) = "-1") And (Left(Parts(3), 8) = "16000000") Then
Result(Index) = Parts(3)
Index = Index + 1
End If
End If

Next

Result_ = Filter(Result, "_", False)

For Each p In Result_
MsgBox p
Next

Выложил кусок файла, там в центре где идет текст, между словами идут пробелы.

Tox, «пример данных» был и в первом посте. И даже после последнего «примера данных» возник вопрос.

данные которые я пытаюсь обработать, получаются из dbf таблицы , да бы не делать безсмысленную перегонку данных, можно обращаться напрямую в таблицу... и путем sql запроса получать те же данные...

Выкладывайте пример таблицы. Не всю, несколько записей. Упакуйте в архив, выложите сюда или на RGhost, а сюда — ссылку.

http://rghost.ru/48385323

Или же просто проверять, сколько элементов..

Dim Result(200)

For i = 0 To 200
Result(i) = "_"
Next

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objF = objFSO.OpenTextFile(filename, 1, false, 0)    
Text = objF.ReadAll                                   

Str_ = Split(Text, vbNewLine)      
Index = 0

For Each Str In Str_ 

Parts = Split(Str, vbTab)

If UBound(Parts) = 8 Then
If (Parts(8) = "-1") And (Left(Parts(3), 8) = "16000000") Then
Result(Index) = Parts(3)
Index = Index + 1
End If
End If

Next

Result_ = Filter(Result, "_", False)

For Each p In Result_
MsgBox p
Next

Tox, «пример данных» был и в первом посте. И даже после последнего «примера данных» возник вопрос.

данные которые я пытаюсь обработать, получаются из dbf таблицы , да бы не делать безсмысленную перегонку данных, можно обращаться напрямую в таблицу... и путем sql запроса получать те же данные...

Выкладывайте пример таблицы. Не всю, несколько записей. Упакуйте в архив, выложите сюда или на RGhost, а сюда — ссылку.

http://rghost.ru/48385323

Выкладывайте пример таблицы. Не всю, несколько записей. Упакуйте в архив, выложите сюда или на RGhost, а сюда — ссылку.

Я тут образумился, и понял, что я бред какой-то писал) Попробуй так:

Dim Result(200)

For i = 0 To 200
Result(i) = "_"
Next

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objF = objFSO.OpenTextFile(filename, 1, false, 0)    
Text = objF.ReadAll                                   

Str_ = Split(Text, vbNewLine)      
Index = 0

For Each Str In Str_ 

Parts = Split(Str, vbTab)

If (Parts(8) = "-1") And (Left(Parts(3), 8) = "16000000") Then
Result(Index) = Parts(3)
Index = Index + 1
End If

Next

Result_ = Filter(Result, "_", False)

For Each p In Result_
MsgBox p
Next

Пишет - Индекс выходит за пределы допустимого диапазона: '[number: 8]'

Если бы сразу был выложен образец (хотя бы частичный) реального файла, упакованный в архив — вопрос бы не растянулся на два десятка постов.

Пример данных был уже в 5 посте.  Просто в файле не 2 строки, а 20-100, не думаю , что это сделало бы погоды ...

Tox
Из первого описания сложно понять, что же Вам требуется:

Нужно найти первые цифры вида "111***"(первые 5-7 знаков всегда одинаковые) по вторым цифрам, если они равны 222222(если не 222222) первые цифры не брать.

А вот это описание более осмысленное:

Tox пишет:

20.08.2013    18:23    1    1600000000000888    Платежный сертификат 5000    15    1    -1    
20.08.2013    18:23    1    1600000000000101    Платежный сертификат 5000    15    1    5000

Пример из файла, если есть -1, то брать код 1600000000000888.

Его можно описать так:
Для каждой строки, в которой поле №8 == -1 что-то сделать с полем №4.

Задача решается как с помощью регулярных выражений, так и без них. Так же как и с/без VBS. Заметил, что поля разделены символом табуляции. Это в реальности так или только в качестве примера?

Да, поля разделены табуляцией, сейчас подумал, ведь vbs имеет возможность выполнять sql запросы(так ведь?), просто данные которые я пытаюсь обработать, получаются из dbf таблицы , да бы не делать безсмысленную перегонку данных, можно обращаться напрямую в таблицу... и путем sql запроса получать те же данные...

А вот это описание более осмысленное:

Его можно описать так:
Для каждой строки, в которой поле №8 == -1 что-то сделать с полем №4.

Задача решается как с помощью регулярных выражений, так и без них. Так же как и с/без VBS. Заметил, что поля разделены символом табуляции. Это в реальности так или только в качестве примера?

Ааа.. Нее.. Я беру справа 2 символа.. Но если нужно поиск, то замени на InStr("-1", Str) > 0

Если написать InStr("-1", Str) > 0(как я понимаю вместо If Right(Str, 2) = "-1" Then), то выдает пустоту , если str поменять местами с -1 выдает странные цифры(1,60000000000089E+15)