Поиск & - Форум MMB

Страница 1 из 1 1
Модератор форума: as-master

Поиск &

Serg

Дата: Четверг, 23 Апреля 2009, 21:08 | Сообщение # 1

Ветеран форума

Группа: Проверенные

Сообщений: 959

Репутация: 6

Награды: 8

Статус: Offline

Блин,никак немогу понять как осуществляется поиск в текстовом файле и вывод целой строки на которой находится искомое слово или слова. Есть пример конечно,но мало что понял.Есть у кого нить возможность объяснить как и чё?

Добавлено (23 Апрель 2009, 21:08)
---------------------------------------------
И ещё,вот например в текстовом файле имеется текст,а я хочу в него записать ещё строчку,как сделать чтобы тот текст не стирался,а строчка просто ниже записывалася

usermmbuild

Дата: Пятница, 24 Апреля 2009, 18:29 | Сообщение # 2

Любопытный

Группа: Проверенные

Сообщений: 48

Репутация: 0

Награды: 0

Статус: Offline

Quote (adamfromvyazniki)

текст не стирался,а строчка просто ниже записывалася

path$ = 'c:\file.txt'
text$ = 'строка'
n = StrToFile(path$,text$,true,true) - параметры TRUE говорят, что нужно ДОБАВИТЬ строку.
смотри справку, там всё понятно

toizy

Дата: Пятница, 24 Апреля 2009, 18:36 | Сообщение # 3

Студийная субстанция

Группа: Администраторы

Сообщений: 2309

Репутация: 29

Награды: 12

Статус: Offline

Quote (adamfromvyazniki)

Есть у кого нить возможность объяснить как и чё?

Конкретный вопрос, плиз

Жизнь оказалась не такой уж и забавной, как поначалу...

Rush

Дата: Пятница, 24 Апреля 2009, 23:58 | Сообщение # 4

Обозреватель-консультант

Группа: Проверенные

Сообщений: 216

Репутация: 10

Награды: 1

Статус: Offline

Quote (adamfromvyazniki)

Блин,никак немогу понять как осуществляется поиск в текстовом файле и вывод целой строки на которой находится искомое слово или слова.

Все ведь так элементарно. Ты ведь, вроде, и не новичок уже...
Один из способов:

Code

file$='имя файла'
search$='искомые слова'
For i=1 To NOL(file$)
    string$=StrFromFile(file$,i,1)
    instr=POS(search$,string$)
    If (instr) Then
      DisplayValue("Text","string$")
      Break()
    End
Next i

Добавлено (24 Апрель 2009, 23:58)
---------------------------------------------
Сейчас, когда проверял пример, выявил одну интересную штуку - вот так

Code

If (instr) Then
     LoadText("Text","string$")
     Break()
   End

не срабатывает, а так

Code

If (instr) Then
       DisplayValue("Text","string$")
       Break()
     End

нормально работает.

*Хозяйкам на заметку*

Сообщение отредактировал Rush - Пятница, 24 Апреля 2009, 23:53

Serg

Дата: Суббота, 25 Апреля 2009, 12:41 | Сообщение # 5

Ветеран форума

Группа: Проверенные

Сообщений: 959

Репутация: 6

Награды: 8

Статус: Offline

А если например на разных строчках слова,например три части фильма
Американский пирог
Американский пирог 2
Американский пирог 3
Американский пирог 4
Поиск выведет тока одно значение,а мне надо чтобы вывелись все части

Rush

Дата: Суббота, 25 Апреля 2009, 13:28 | Сообщение # 6

Обозреватель-консультант

Группа: Проверенные

Сообщений: 216

Репутация: 10

Награды: 1

Статус: Offline

Н-да...
adamfromvyazniki, может тебе завязывать надо с попытками программирования вообще?
Ну что тебе мешает сохранять каждое нахождение тем или иным способом?
Хоть в одну переменную, хоть в разные. Способов море...

Поиск &

Страница 1 из 1
1