Подправить код VBA

01.01.2001

Подправить код VBA
Private Sub Form_Load()
Dim b As String
Dim st As String
Dim N As Integer
N = 10001 'Или номер нужной строки
b = 35 'что будем искать
Open "c:Alarm.txt" For Input As #1
For i = 1 To N
Line Input #1, st
Next i
Debug.Print st ' Выводим её в Immediate окно
If VBA.Left(st, Len(b)) = b Then
MsgBox "Совпадение есть"
Else
MsgBox "Совпадения нет"
Close #1
End If
End Sub

Открывает файл ищет строку №10001 если срока начинается на 35 то MsgBox "Совпадение есть",сейчас пишет постоянно "совпадения нет "хотя строка начинается на "35 Перегрузка".

  • как ты строку сравниваешь с числом? естественно нет совпадений.
    if VBA.Left(st,2)=str(b) then
  • У вас зачем из файла читаются все строчки, а потом только сравниваются? Может у вас лишний перенос в файле и для анализа попадает только последняя строка?

    УПД. А, пардон. Неправильно понял. Не то сказал.

Вас заинтересует