Поиск строки в файле

@KROBOCICb · Регистрация: 27.01.2013

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

Как сделать поиск строки в файле я знаю:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TForm1.Button1Click(Sender: TObject);
var
  MasText           :array[0..999] of string;
  Ft                :TextFile;//Òåêñòîâûé ôàéë
  i                 :Integer;//Äëÿ öèêëà
  SearchString      :Integer;//Íîìåð èñêîìîé ñòðîêè
begin
  {îòêðûâàåì ôàéë äëÿ ÷òåíèÿ}
  AssignFile(Ft,'file.txt');
  Reset(Ft);
  i:=0;
  {÷èòàåì âêñü òåêñò èç ôàéëà è ïåðåíîñèì â ìàññèâ MasText}
  while not eof(Ft) do
    begin
      Inc(i);
      Readln(Ft,MasText[i]);
    End;
  {ïîèñê ñòðîêè ïðî÷èòàííîì ôàéëå (ò.å. â ìàññèâå MasText)}
  SearchString:=0;
  while MasText[SearchString]<>('StringWithValue')  do
    Inc(SearchString);
  CloseFile(Ft);//çàêðûâàåì ôàéë
  Edit1.Text:=IntToStr(SearchString);
end;

Но оно ищет строку только целиком(((, то есть если в файле нет строки "StringWithValue", а есть строка "StringWithValue 999", ПОДСКАЖИТЕ как найти часть строки, и при этом в коде не писать:

Delphi
1
while MasText[SearchString]<>('StringWithValue' + ' 999')  do

Ниже есть исходник:

@vampire6666 · 11.02.2013, 22:45

KROBOCICb, я так понял Вам просто нужно их подсчитать то можно сделать и так:

Delphi
1
20. while (pos('StringWithValue',MasText[SearchString])>0)  do

@KROBOCICb · 11.02.2013, 22:47 **[ТС]**

спасибо, так работает)))

11.02.2013, 22:51

Ошибку исправь

Delphi
1
2
  Inc(i);
  Readln(Ft,MasText[i]);

на

Delphi
1
2
  Readln(Ft,MasText[i]);
  Inc(i);

@vampire6666 · 11.02.2013, 22:52

KROBOCICb,Вам нужно найти вхождение данной подстроки StringWithValue в любую другую?

@KROBOCICb · 11.02.2013, 23:11 **[ТС]**

ДА, но первый коментарий

Delphi
1
while (pos('StringWithValue',MasText[SearchString])>0)  do

мне уже помог

@volvo · 11.02.2013, 23:54

KROBOCICb, функцию AnsiContainsText (или AnsiContainsStr, если не нужна нечувствительность к регистру) зачем придумали? Чтобы вместо нее дальше использовали Pos?

@KROBOCICb · 12.02.2013, 00:01 **[ТС]**

UI, а чем отличается AnsiContainsStr от Pos?? Ну я о ней впервые слышу, а к Pos привык... И мы не ищем легких путей)))

@volvo · 12.02.2013, 00:04

Всё ясно, "Что бы не предлагали - буду использовать то, к чему привык". Удачи.

@KROBOCICb · 12.02.2013, 00:15 **[ТС]**

Добавлено через 4 минуты
UI,

Сообщение от UI

Всё ясно, "Что бы не предлагали - буду использовать то, к чему привык". Удачи.

я не об этом, я реально о ней только что узнал. И у неё же значение BOOLEAN... ,так ведь??

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@KROBOCICb 17 / 12 / 4 Регистрация: 27.01.2013 Сообщений: 187
	11.02.2013, 22:47 [ТС]
	спасибо, так работает))) 0

@vampire6666 143 / 143 / 39 Регистрация: 17.08.2012 Сообщений: 411
	11.02.2013, 22:52
	KROBOCICb,Вам нужно найти вхождение данной подстроки StringWithValue в любую другую? 0

@volvo Супер-модератор 33398 / 21508 / 8236 Регистрация: 22.10.2011 Сообщений: 36,906 Записей в блоге: 12
	11.02.2013, 23:54
	KROBOCICb, функцию AnsiContainsText (или AnsiContainsStr, если не нужна нечувствительность к регистру) зачем придумали? Чтобы вместо нее дальше использовали Pos? 0

@KROBOCICb 17 / 12 / 4 Регистрация: 27.01.2013 Сообщений: 187
	12.02.2013, 00:01 [ТС]
	UI, а чем отличается AnsiContainsStr от Pos?? Ну я о ней впервые слышу, а к Pos привык... И мы не ищем легких путей))) 0

@volvo Супер-модератор 33398 / 21508 / 8236 Регистрация: 22.10.2011 Сообщений: 36,906 Записей в блоге: 12
	12.02.2013, 00:04
	Всё ясно, "Что бы не предлагали - буду использовать то, к чему привык". Удачи. 0