Скрипт для поиска слов или символов в текстовом файле

@Pod · Регистрация: 06.04.2016

Студворк — интернет-сервис помощи студентам

Помогите разобраться, почему не работает

Visual Basic

On Error Resume Next
Dim fso, str, i, lis
Set FSO = CreateObject("Scripting.FileSystemObject")
listFile  = FSO.OpenTextFile("C:\users\user\desktop\second.txt",1)
list = listfile.ReadAll 
listLines = Split(list, vbCrLf)
str = listLines(0)
Set our = ubound(Split (list ,vbCrlf))+1
Do Until i = our
 Do Until Pas > 0
 Dim pas
 str = listlines(i)
 i = i + 1
 Pas = Instr(1, str, "house")
 Loop 
  Do until y = i
  y = y + 1
  listfile.skipline
  Loop
Loop 
MsgBox y
msgbox pas

@tisha_ · 11.04.2016, 08:51

Visual Basic

On Error Resume Next
Dim fso, str, i, lis
Set FSO = CreateObject("Scripting.FileSystemObject")
Set listFile  = FSO.OpenTextFile("C:\123\second.txt",1)
list = listFile.ReadAll 
listLines = Split(list, Chr(10))
Dim pas
For i = 0 To UBound(listLines) 
    If  Len(pas)=0 Then
        If InStr(listlines(i), "house") <> 0 Then
            pas = "house"
        End If
    End If
Next 
MsgBox pas

@Pod · 14.04.2016, 12:32 **[ТС]**

Спасибо, но все равно не работает,пишет неуместное next

@tisha_ · 15.04.2016, 09:52

эм........ хм..........фантастика.........
ничего не добавляешь, как есть запускаешь?

@Pod 0 / 0 / 0 Регистрация: 06.04.2016 Сообщений: 3
	14.04.2016, 12:32 [ТС]	3
	Спасибо, но все равно не работает,пишет неуместное next 0

@tisha_ 61 / 61 / 36 Регистрация: 16.09.2015 Сообщений: 296
	15.04.2016, 09:52	4
	эм........ хм..........фантастика......... ничего не добавляешь, как есть запускаешь? 0

Опции темы