Поиск значение в файле

[nypreH]

Всем доброго дня!

Задача следующая:

Есть файл, кусок такой:

Код: Выделить всё


DESCRIPTION                    COUNTER
------------------------------+-------
NUM_RESET                            0
NUM_RESET_CIRCUIT                    0
NUM_SSP_BSSAP                        0
NUM_SIGN_POINT_PROHIB                0
NUM_CALLS_REL_BS                     0
NUM_RECEIVED_OVERLOAD                0
NUM_SEND_OVERLOAD                    0
NUM_RECEIVED_GCP                     0
NUM_RECEIVED_CIP                     0
NUM_RECEIVED_CLASSM_UPD         127001
NUM_TOTAL_START_IMEI_CHECK           0
NUM_IMEI_CHECK_WHITE                 0



Есть значение в строке, например - NUM_RECEIVED_CLASSM_UPD 127001
Номер строки всегда одинаковый, но это не имеет значение, можно перейти к нужной строке, использовав что-то вроде:

Код: Выделить всё


Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Pattern = "NUM_RECEIVED_CLASSM_UPD"



Задача - нужно скопировать (присвоить некоторой переменной это значение) для дальнейшей обработки значение 127001 (это значение постоянно меняется). Длина этого значения тоже может изменяться, т.е. может быть больше или меньше 6и символов. С обоих сторон - пробелы, может поможет.
Так вот я не совсем понимаю, как можно присвоить это значение некоторой переменной?

Буду очень признателен за помощь,
Заранее благодарю,
С уважением,
Роман

[Денис]

Вот переделанный стандартный пример. (Код исправил).

Код: Выделить всё

Sub Main()

Dim TextLine As String
Dim LineArr() As String
Dim strName As String
Dim strValue As String

Open "d:\Temp\Sample.txt" For Input As #1 ' Open file.
Do While Not EOF(1)                             ' Loop until end of file.
    Line Input #1, TextLine                     ' Read line into variable.
    Debug.Print TextLine                        ' Print to Debug window.
    LineArr = Split(TextLine, " ")
    strName = LineArr(LBound(LineArr))
    strValue = LineArr(UBound(LineArr) - 1)
    If strName = "NUM_RECEIVED_CLASSM_UPD" Then
        MsgBox strName & " = " & strValue
    End If
Loop
Close #1                                        ' Close file.

End Sub


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

Код: Выделить всё

Option Explicit

Dim NUM_RESET As Long
Dim NUM_RESET_CIRCUIT As Long
Dim NUM_SSP_BSSAP As Long
Dim NUM_SIGN_POINT_PROHIB As Long
Dim NUM_CALLS_REL_BS As Long
Dim NUM_RECEIVED_OVERLOAD As Long
Dim NUM_SEND_OVERLOAD As Long
Dim NUM_RECEIVED_GCP As Long
Dim NUM_RECEIVED_CIP As Long
Dim NUM_RECEIVED_CLASSM_UPD As Long
Dim NUM_TOTAL_START_IMEI_CHECK As Long
Dim NUM_IMEI_CHECK_WHITE As Long

Sub LoadConstants()

Dim TextLine As String
Dim LineArr() As String
Dim strName As String
Dim strValue As String

Open "d:\Temp\Sample.txt" For Input As #1       ' Open file.
Do While Not EOF(1)                             ' Loop until end of file.
   
    Line Input #1, TextLine                     ' Read line into variable.
    'Debug.Print TextLine                        ' Print to Debug window.
   
    LineArr = Split(TextLine, " ")
    strName = LineArr(LBound(LineArr))
    strValue = LineArr(UBound(LineArr) - 1)
   
    Select Case strName
        Case "NUM_RESET":                   NUM_RESET = Val(strValue)
        Case "NUM_RESET_CIRCUIT":           NUM_RESET_CIRCUIT = Val(strValue)
        Case "NUM_SSP_BSSAP":               NUM_SSP_BSSAP = Val(strValue)
        Case "NUM_SIGN_POINT_PROHIB":       NUM_SIGN_POINT_PROHIB = Val(strValue)
        Case "NUM_CALLS_REL_BS":            NUM_CALLS_REL_BS = Val(strValue)
        Case "NUM_RECEIVED_OVERLOAD":       NUM_RECEIVED_OVERLOAD = Val(strValue)
        Case "NUM_SEND_OVERLOAD":           NUM_SEND_OVERLOAD = Val(strValue)
        Case "NUM_RECEIVED_GCP":            NUM_RECEIVED_GCP = Val(strValue)
        Case "NUM_RECEIVED_CIP":            NUM_RECEIVED_CIP = Val(strValue)
        Case "NUM_RECEIVED_CLASSM_UPD":     NUM_RECEIVED_CLASSM_UPD = Val(strValue)
        Case "NUM_TOTAL_START_IMEI_CHECK":  NUM_TOTAL_START_IMEI_CHECK = Val(strValue)
        Case "NUM_IMEI_CHECK_WHITE":        NUM_IMEI_CHECK_WHITE = Val(strValue)
    End Select
   
   
Loop
Close #1                                        ' Close file.
   
MsgBox "NUM_RECEIVED_CLASSM_UPD = " & NUM_RECEIVED_CLASSM_UPD

End Sub


[nypreH]

Добрый день,

Выглядит как будто то, что мне нужно, но при запуске, выдает ошибку

Line 3
Char 19
Error Expected end of statement
Code 800A0401

Не подскажете, в чем может быть проблема?

Спасибо,
Роман

[Хакер]

Не подскажете, в чем может быть проблема?

Проблема в том, что ты — провокатор. Используешь VBS, а вопрос пишешь в разделе о VB6. А сам, так, если посмотреть, и разницы между этими вещами не чуешь.