Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
2 из 2 « 1 2
 
Рейтинг 4.93/15: Рейтинг темы: голосов - 15, средняя оценка - 4.93
0 / 0 / 0
Регистрация: 22.05.2017
Сообщений: 16

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

29.05.2017, 17:21. Показов 3578. Ответов 25
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Здравствуйте, у меня есть такой код:
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311

type
  TForm1 = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    edt4: TEdit;
    edt5: TEdit;
    rb1: TRadioButton;
    rb2: TRadioButton;
    btn1: TButton;
    btn2: TButton;
    lbl6: TLabel;
    edt6: TEdit;
    btn3: TButton;
    procedure rb1Click(Sender: TObject);
    procedure rb2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure edt1KeyPress(Sender: TObject; var Key: Char);
    procedure edt2KeyPress(Sender: TObject; var Key: Char);
    procedure edt3KeyPress(Sender: TObject; var Key: Char);
    procedure edt4KeyPress(Sender: TObject; var Key: Char);
    procedure edt5KeyPress(Sender: TObject; var Key: Char);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TBiblia=class
  author:string;
  title:string;
  year:string;
  constructor Create;
  function add:string;virtual;
  function show:string;virtual;
  function search:string;virtual;
  end;
  TBook=class(TBiblia)
  izdat:string;
  str:string;
  constructor Create;
  function add:string;override;
  function show:string;override;
  end;
  TStat=class(TBiblia)
  nazv:string;
  nazv_number:string;
  constructor Create;
  function add:string;override;
  function show:string;override;
  end;
var
  Form1: TForm1;
  Book:TBook; Stat:TStat; Biblia:TBiblia; zap:Text; s,w,n,n1,info:string;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
constructor TBiblia.Create;
begin
  author:=form1.edt1.Text;
  title:=form1.edt2.Text;
  year:=Form1.edt3.Text;
end;
constructor TBook.Create;
begin
  inherited Create;
  izdat:=Form1.edt4.Text;
  str:=form1.edt5.Text;
end;
constructor TStat.Create;
begin
  inherited Create;
  nazv:=form1.edt4.Text;
  nazv_number:=Form1.edt5.Text;
end;
function TBiblia.add;
begin
  Result:='';
end;
function TBook.add;
begin
  if(StrToInt(year)>2017)then begin
    ShowMessage('Нельзя больше 2017 года!');
    form1.edt3.Clear;
  end
  else begin
     Writeln(zap,'Книга:');
     write(zap,book.author);
     write(zap,' ');
     write(zap,book.title);
     write(zap,' ');
     write(zap,book.year);
     write(zap,' ');
     write(zap,book.izdat);
     write(zap,' ');
     write(zap,book.str);
     write(zap,'.');
     Writeln(zap,' ');
     form1.edt1.clear;
     form1.edt2.clear;
     form1.edt3.clear;
     form1.edt4.clear;
     form1.edt5.clear;
     ShowMessage('Книга записана в файл!');
  end;
end;
function Tstat.add;
begin
  if(StrToInt(year)>2017) then begin
    ShowMessage('Нельзя больше 2017 года!');
    form1.edt3.Clear;
  end;
  if(StrToInt(nazv_number)<1) then begin
    ShowMessage('Номер журнала не может быть меньше 1!');
    form1.edt5.Clear;
  end
  else begin
    Writeln(zap,'Статья:');
     write(zap,stat.author);
     write(zap,' ');
     write(zap,stat.title);
     write(zap,' ');
     write(zap,stat.year);
     write(zap,' ');
     write(zap,stat.nazv);
     write(zap,' ');
     write(zap,stat.nazv_number);
     write(zap,'.');
     Writeln(zap,' ');
     form1.edt1.clear;
     form1.edt2.clear;
     form1.edt3.clear;
     form1.edt4.clear;
     form1.edt5.clear;
     ShowMessage('Статья записана в файл!');
  end;
end;
function TBiblia.show;
begin
  result:='';
end;
function TBook.show;
begin
   s:='';
   while not Eof(zap) do begin
     Readln(zap,w);
     if w='Книга:' then begin
       Readln(zap,info);
       s:=s+info+#13;
     end;
   end;
   if s='' then ShowMessage('Книг нет!')
   else ShowMessage(s);
end;
function TStat.show;
begin
  s:='';
  while not Eof(zap) do begin
  Readln(zap,w);
  if w='Статья:' then begin
    Readln(zap,info);
    s:=s+info+#13;
  end;
  end;
  if s='' then ShowMessage('Статьей нет!')
  else ShowMessage(s);
end;
function Tbiblia.search;
begin
  if Form1.rb1.Checked = True then begin
    s:='';
    while not Eof(zap) do begin
      Readln(zap,w);
      if w='Книга:' then begin
        Readln(zap,info);
        Readln(zap,n);
        if n=n1 then
        s:=s+info+#13;
      end;
    end;
    if s='' then ShowMessage('Книги не найдены!')
    else ShowMessage(s);
  end;
  if Form1.rb2.Checked = True then begin
     s:='';
    while not Eof(zap) do begin
      Readln(zap,w);
      if w='Статья:' then begin
        Readln(zap,info);
        Readln(zap,n);
        if n=n1 then
        s:=s+info+#13;
      end;
    end;
    if s='' then ShowMessage('Статьи не найдены!')
    else ShowMessage(s);
  end;
end;
procedure TForm1.rb1Click(Sender: TObject);
begin
lbl4.Caption:='Издательство:';
lbl5.Caption:='Число страниц:';
end;
 
procedure TForm1.rb2Click(Sender: TObject);
begin
lbl4.Caption:='Название журнала:';
lbl5.Caption:='Номер журнала:';
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
rb1.Checked:=True;
end;
 
procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'А'..'Я','а'..'я','A'..'Z','a'..'z',#8,#32:
else key:=#0;
end;
end;
procedure TForm1.edt2KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'А'..'Я','а'..'я','A'..'Z','a'..'z',#8,#32:
else key:=#0;
end;
end;
procedure TForm1.edt3KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9',#8:
else key:=#0;
end;
end;
procedure TForm1.edt4KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'А'..'Я','а'..'я','A'..'Z','a'..'z',#8,#32:
else key:=#0;
end;
end;
procedure TForm1.edt5KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9',#8:
else key:=#0;
end;
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
if (edt1.text='') or (edt2.text='') or (edt3.text='')or (edt4.text='') or (edt2.text='') then
ShowMessage('Вы не заполнили поля!')
else begin
  Book:=TBook.Create;
  Stat:=TStat.Create;
  Biblia:=TBiblia.Create;
  AssignFile(zap,'reg.txt');
  if FileExists('reg.txt') then Append(zap)
  else Rewrite(zap);
    if rb1.Checked=True then Book.add;
    if rb2.Checked=true then Stat.add;
    CloseFile(zap);
  end;
end;
 
procedure TForm1.btn2Click(Sender: TObject);
begin
  Book:=TBook.Create;
  Stat:=TStat.Create;
  Biblia:=TBiblia.Create;
  AssignFile(zap,'reg.txt');
  if not FileExists('reg.txt') then ShowMessage('Файл не создан, добавьте что-нибудь!')
  else begin
    Reset(zap);
    if rb1.Checked=True then Book.show;
    if rb2.Checked=true then Stat.show;
    CloseFile(zap);
  end;
end;
 
 
procedure TForm1.btn3Click(Sender: TObject);
begin
  Book:=TBook.Create;
  Stat:=TStat.Create;
  n1:=edt6.Text;
  AssignFile(zap,'reg.txt');
  if not FileExists('reg.txt') then ShowMessage('Файл не создан, добавьте что-нибудь!')
  else begin
    Reset(zap);
    if(write('Книга:')=1 and write(' ')=1 and wrete(n1))
    then begin
     if rb1.Checked=True thenBook.search;
      if rb2.Checked=true then Stat.search;
      CloseFile(zap);
  end;
end;
 
end.
Например я создал файл в нём информация Лермонтов МуМу 1990 ООО"Лол" 5, как мне написать поиск например по автору, и чтобы выводило именно эту книгу?
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 29.05.2017, 17:21
Ответы с готовыми решениями:

Поиск слова в файле
Мне по заданию нужно искать слово в файле, я воспользовался функцией POS, но при тестировании обнаружилось, что я не учел, что функция не...

Поиск слова в файле
Здравствуйте. Есть такой код: procedure TForm22.Button1Click(Sender: TObject); var list: TStrings; str, str1: string; i, p, k:...

Поиск слова в файле
Есть файл config.cfg там есть такое m_filter &quot;0&quot; m_forward &quot;1&quot; m_pitch &quot;0.022&quot; m_side &quot;0.8&quot; m_yaw &quot;0.022&quot; model...

25
500 / 346 / 200
Регистрация: 20.10.2016
Сообщений: 1,101
31.05.2017, 19:39
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от AndreyKaO20 Посмотреть сообщение
Т.е. я могу просто, вместо пробелов, поставить знак, так ведь?
Да, самими посудите, в названии книги, имени автора тоже могут быть пробелы, а могут и не быть и как узнать есть они там или нет? А если ввести разделитель то четко ясно где новая запись начинается.
Запишите несколько книг в файл и выложите его содержимое, посмотрим что получится.
И определитесь более четко, что должен вам возвращать поиск.
0
0 / 0 / 0
Регистрация: 22.05.2017
Сообщений: 16
31.05.2017, 20:10  [ТС]
Значит смотрите, программа должна выполняться обязательно с классами, мы вводим данные, при нажатии кнопки "Добавить", информация добавляется в файл, и при введении Автора в поле для поиска, оно должно найти все книги с этим автором, вот так должна работать программа, пример я в фото залил. Код весь:
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    edt4: TEdit;
    edt5: TEdit;
    rb1: TRadioButton;
    rb2: TRadioButton;
    btn1: TButton;
    btn2: TButton;
    lbl6: TLabel;
    edt6: TEdit;
    btn3: TButton;
    procedure rb1Click(Sender: TObject);
    procedure rb2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure edt1KeyPress(Sender: TObject; var Key: Char);
    procedure edt2KeyPress(Sender: TObject; var Key: Char);
    procedure edt3KeyPress(Sender: TObject; var Key: Char);
    procedure edt4KeyPress(Sender: TObject; var Key: Char);
    procedure edt5KeyPress(Sender: TObject; var Key: Char);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TBiblia=class
  author:string;
  title:string;
  year:string;
  constructor Create;
  function add:string;virtual;
  function show:string;virtual;
  function search:string;virtual;
  end;
  TBook=class(TBiblia)
  izdat:string;
  str:string;
  constructor Create;
  function add:string;override;
  function show:string;override;
  end;
  TStat=class(TBiblia)
  nazv:string;
  nazv_number:string;
  constructor Create;
  function add:string;override;
  function show:string;override;
  end;
var
  Form1: TForm1;
  Book:TBook; Stat:TStat; Biblia:TBiblia; zap:Text; s,w,p,n,n1,info:string;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
constructor TBiblia.Create;
begin
  author:=form1.edt1.Text;
  title:=form1.edt2.Text;
  year:=Form1.edt3.Text;
end;
constructor TBook.Create;
begin
  inherited Create;
  izdat:=Form1.edt4.Text;
  str:=form1.edt5.Text;
end;
constructor TStat.Create;
begin
  inherited Create;
  nazv:=form1.edt4.Text;
  nazv_number:=Form1.edt5.Text;
end;
function TBiblia.add;
begin
  Result:='';
end;
function TBook.add;
begin
  if(StrToInt(year)>2017)then begin
    ShowMessage('Нельзя больше 2017 года!');
    form1.edt3.Clear;
  end
  else begin
     Writeln(zap,'Книга:');
     write(zap,book.author);
     write(zap,';');
     write(zap,book.title);
     write(zap,';');
     write(zap,book.year);
     write(zap,';');
     write(zap,book.izdat);
     write(zap,';');
     write(zap,book.str);
     write(zap,'.');
     Writeln(zap,';');
     form1.edt1.clear;
     form1.edt2.clear;
     form1.edt3.clear;
     form1.edt4.clear;
     form1.edt5.clear;
     ShowMessage('Книга записана в файл!');
  end;
end;
function Tstat.add;
begin
  if(StrToInt(year)>2017) then begin
    ShowMessage('Нельзя больше 2017 года!');
    form1.edt3.Clear;
  end;
  if(StrToInt(nazv_number)<1) then begin
    ShowMessage('Номер журнала не может быть меньше 1!');
    form1.edt5.Clear;
  end
  else begin
    Writeln(zap,'Статья:');
     write(zap,stat.author);
     write(zap,';');
     write(zap,stat.title);
     write(zap,';');
     write(zap,stat.year);
     write(zap,';');
     write(zap,stat.nazv);
     write(zap,';');
     write(zap,stat.nazv_number);
     write(zap,';');
     Writeln(zap,';');
     form1.edt1.clear;
     form1.edt2.clear;
     form1.edt3.clear;
     form1.edt4.clear;
     form1.edt5.clear;
     ShowMessage('Статья записана в файл!');
  end;
end;
function TBiblia.show;
begin
  result:='';
end;
function TBook.show;
begin
   s:='';
   while not Eof(zap) do begin
     Readln(zap,w);
     if w='Книга:' then begin
       Readln(zap,info);
       s:=s+info+#13;
     end;
   end;
   if s='' then ShowMessage('Книг нет!')
   else ShowMessage(s);
end;
function TStat.show;
begin
  s:='';
  while not Eof(zap) do begin
  Readln(zap,w);
  if w='Статья:' then begin
    Readln(zap,info);
    s:=s+info+#13;
  end;
  end;
  if s='' then ShowMessage('Статьей нет!')
  else ShowMessage(s);
end;
function Tbiblia.search;
begin
  if Form1.rb1.Checked = True then begin
    s:='';
    while not Eof(zap) do begin
      Readln(zap,w);
      if w='Книга' then begin
        Readln(zap,info);
        Readln(zap,n);
        if n=n1 then
        s:=s+info+#13;
      end;
    end;
    if s='' then ShowMessage('Книги не найдены!')
    else ShowMessage(s);
  end;
  if Form1.rb2.Checked = True then begin
     s:='';
    while not Eof(zap) do begin
      Readln(zap,w);
      if w='Статья' then begin
        Readln(zap,info);
        Readln(zap,n);
        if n=n1 then
        s:=s+info+#13;
      end;
    end;
    if s='' then ShowMessage('Статьи не найдены!')
    else ShowMessage(s);
  end;
end;
function SearchByName(Name: string): string;
var p: TStringList;
    i: integer;
begin
  Result:='not found';
  p:=TStringList.Create;
  p.LoadFromFile('reg.txt');
  for i:=0 to p.Count -1 do
    if pos(Name, p[i]) > 0 then begin
      Result:=p[i];
      Break;
    end;
  p.Free;
end;
procedure TForm1.rb1Click(Sender: TObject);
begin
lbl4.Caption:='Издательство:';
lbl5.Caption:='Число страниц:';
end;
 
procedure TForm1.rb2Click(Sender: TObject);
begin
lbl4.Caption:='Название журнала:';
lbl5.Caption:='Номер журнала:';
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
rb1.Checked:=True;
end;
 
procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'А'..'Я','а'..'я','A'..'Z','a'..'z',#8,#32:
else key:=#0;
end;
end;
procedure TForm1.edt2KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'А'..'Я','а'..'я','A'..'Z','a'..'z',#8,#32:
else key:=#0;
end;
end;
procedure TForm1.edt3KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9',#8:
else key:=#0;
end;
end;
procedure TForm1.edt4KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'А'..'Я','а'..'я','A'..'Z','a'..'z',#8,#32:
else key:=#0;
end;
end;
procedure TForm1.edt5KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9',#8:
else key:=#0;
end;
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
if (edt1.text='') or (edt2.text='') or (edt3.text='')or (edt4.text='') or (edt2.text='') then
ShowMessage('Вы не заполнили поля!')
else begin
  Book:=TBook.Create;
  Stat:=TStat.Create;
  Biblia:=TBiblia.Create;
  AssignFile(zap,'reg.txt');
  if FileExists('reg.txt') then Append(zap)
  else Rewrite(zap);
    if rb1.Checked=True then Book.add;
    if rb2.Checked=true then Stat.add;
    CloseFile(zap);
  end;
end;
 
procedure TForm1.btn2Click(Sender: TObject);
begin
  Book:=TBook.Create;
  Stat:=TStat.Create;
  Biblia:=TBiblia.Create;
  AssignFile(zap,'reg.txt');
  if not FileExists('reg.txt') then ShowMessage('Файл не создан, добавьте что-нибудь!')
  else begin
    Reset(zap);
    if rb1.Checked=True then Book.show;
    if rb2.Checked=true then Stat.show;
    CloseFile(zap);
  end;
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
  Book:=TBook.Create;
  Stat:=TStat.Create;
  Biblia:=TBiblia.Create;
  AssignFile(zap,'reg.txt');
  if not FileExists('reg.txt') then ShowMessage('Файл не создан, добавьте что-нибудь!')
  else begin
    Reset(zap);
     if rb1.Checked=True then p:=SearchByName(Edt6.Text);
      if rb2.Checked=true then p:=SearchByName(Edt6.Text);
      CloseFile(zap);
      ShowMessage(p);
end;
end;
end.
Миниатюры
Поиск слова в файле  
0
500 / 346 / 200
Регистрация: 20.10.2016
Сообщений: 1,101
31.05.2017, 20:30
Все книги надо выводить в соответствующий компонент, позволяющий отобразить ВСЕ.
Где пример файла?
1
0 / 0 / 0
Регистрация: 22.05.2017
Сообщений: 16
31.05.2017, 20:46  [ТС]
Вот так идёт сохранение
Миниатюры
Поиск слова в файле  
0
500 / 346 / 200
Регистрация: 20.10.2016
Сообщений: 1,101
31.05.2017, 21:22
Кинуть на форму memo, удалить из файла строки "Книга:" и код который добавляет эти строки, эта запись не нужна.
И пробовать вот это:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

var s1, s2: TStringList;
    i: integer;
    searchStr: string;
begin
  searchStr:=lowercase(Edit1.Text);//Вэтот этит вводить фамилию
  s1:=TStringList.Create;
  s2:=TStringList.Create;
  s2.Delimiter:=';';
  try
    s1.LoadFromFile('Путь к файлу');
      for i:=0 to s1.Count-1 do begin
        s2.DelimitedText:=s1[i];
        if lowercase(s2[0]) = searchStr then
        memo1.Lines.Add(s1[i]); //вывод совпадений в мемо
      end;
  finally
    s1.Free;
    s2.Free;
  end;
Как работает не проверял, писал без Delphi под рукой.
1
0 / 0 / 0
Регистрация: 22.05.2017
Сообщений: 16
31.05.2017, 21:31  [ТС]
Обалдеть, наконец-то заработало, спасибо вам огромное, отлично работает.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 31.05.2017, 21:31

Поиск слова в файле
Помогите пожалуйста исправить ошибку Мне надо найти положение введенного слова, то есть номер строки, в которой оно находится и его...

Поиск слова в файле
помогите пожалуйста реализовать следующее: ввожу в edit слово &quot;ежедевная&quot;, нужно найти это слово в файле и вывести название типографии. ...

Поиск слова в файле
помогите пожалуйста разобраться. есть файл, в нём текст, слова разделяются знаками пробелами. пользователь вводит слово с клавиатуры и...

Поиск слова в файле с разделителем
Здравствуйте. Написал функцию, результатом которой должна быть &quot;ячейка&quot;, т.е. слово между разделителями, в файле с разделителями типа: ...

Поиск слова в нетипизированном файле
необходимо подсчитать количество слов длиной 7 букв в нетепизированом файле привызове функции либо считает неверно, либо вылетает ошибка,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
26
Ответ Создать тему
2 из 2 « 1 2
Новые блоги и статьи
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP
and_y87 12.10.2026
10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .
День 5 из 28: Codex подсказывает следующий запрос
and_y87 12.10.2026
9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ"
Adler 06.10.2026
Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке
Supersumestria 05.10.2026
Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO
zorxor 05.10.2026
Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru