Колличество символов -, +, *

@LenaLitvinova · Регистрация: 06.12.2010

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

помогите с задачей, мне очень неловко но я ничего сделать не смогла. а задача такая:
нужн в текстовом файле посчитать количество такик символов -, +, *и вывести их количество каждоой в эдит. Без понятия как эти символы обозначать!!!

@ijain · 07.12.2010, 01:18

Напиши регулярное выражение (regular expression). Если не сможешь составить сама, то поищи на гугле.

@LenaLitvinova · 07.12.2010, 01:29 **[ТС]**

а попроще нельзя, на запрос регулярные выражения он мне выдает Делфи 2010 и т.д

Добавлено через 12 секунд
не пойдет((

@ijain · 07.12.2010, 03:40

На английском больше инфы:
http://www.google.com.ua/searc... =&gs_rfai=

http://www.latiumsoftware.com/... /00009.php

Я завтра попробую найти что-то.

@Vangok · 07.12.2010, 15:24

Зачем регулярное выражение?
Делаешь стандартный вывод из файла текста и потом идешь по символьно с помощью цикла for или while. Пишешь условие

Delphi

1
2
3

если st[i]='+' тогда inc(k) 
если st[i]='-' тогда inc(m) 
если st[i]='*'  тогда inc(t)

И делаешь вывод в текстобокс

Delphi

1
2
3

edit1.text:='Количество знаков +='+inttostr(k);  
edit2.text:='Количество знаков -='+inttostr(m);
edit3.text:='Количество знаков *='+inttostr(t);

Или же пример для TMemo

Delphi

Var 
  stroka:String;
begin
  stroka:='Количество знаков +='+inttostr(k)+'#13';  
  stroka:='Количество знаков -='+inttostr(m)+'#13';  
  stroka:='Количество знаков *='+inttostr(t)+'#13';  
Memo.Lines.Add(stroka);
end;

насчет #13 не уверен но там как то можно сделать перенос текста.

@LenaLitvinova · 07.12.2010, 19:48 **[ТС]**

может как то нитак поняла, но у меня не выходит...а сделала я вот что:
procedure TForm1.Button1Click(Sender: TObject);

Var F:TextFile;
s: array[1..100] of string;
var
i, k, n, m : integer;
begin
i:=0;
k:=0;
m:=0;
n:=0;
AssignFile(F,'C:\Users\Åëåíà\Desktop\Ïðîáà2\ttt.txt');
ReSet(F);
while not EOF(f) do
begin
i:=i+1;
ReadLn(F, s[i]);
for i := 1 to length(s) do
if s[i] = '+' then inc(k);
k:=i;
edit1.Text:=IntToStr(k);
if s[i] = '-' then inc(m);
m:=i;
edit2.Text:=IntToStr(m);
if s[i] = '*' then inc(n);
n:=i;
edit3.Text:=IntToStr(n);
end;

end;

end.

Добавлено через 14 секунд
Проверьте пожалуйста

@Vangok · 07.12.2010, 20:05

ну во первых нафига вы к переменным k,n,m присваиваете значение i?
Во вторых вы жестоко насилуете программу.
В третьих писать надо так:

Delphi

ReadLn(F, s);
for i := 1 to length(s) do
begin
if s[i] = '+' then inc(k);
if s[i] = '-' then inc(m);
if s[i] = '*' then inc(n);
end;

А вот дальше вывод данных:
безо всяких присвоений переменным k,m и n переменной i!!!!!!!!!!!
Все понятно?

Добавлено через 9 минут
И перменная s должна быть не массивом, а строкой

@LenaLitvinova · 07.12.2010, 20:18 **[ТС]**

Не хочу показаться дурой, но прграмма запускается но не работает!....(((((

@Vangok · 07.12.2010, 20:30

О боже мой
Вот держите

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  F:TextFile;
  s,sk:string;
  i, k, n, m : integer;
begin
   k:=0;
   m:=0;
   n:=0; sk:='';
AssignFile(F,'C:\Users\Va\Desktop\ttt.txt');
ReSet(F);
while not EOF(f) do
begin
ReadLn(F, s);
sk:=sk+''+s;
end;
for i := 1 to length(sk) do
begin
if sk[i] = '+' then inc(k);
if sk[i] = '-' then inc(m);
if sk[i] = '*' then inc(n);
end;
 
edit1.Text:=IntToStr(k);
edit2.Text:=IntToStr(m);
edit3.Text:=IntToStr(n);
end;
 
end.

@LenaLitvinova · 07.12.2010, 20:41 **[ТС]**

Спасибо, огромное....вы просо не представляете как я вам благодарна.

@LenaLitvinova 3 / 3 / 0 Регистрация: 06.12.2010 Сообщений: 70
		1
	Колличество символов -, +, * 07.12.2010, 01:12. Показов 728. Ответов 9 Метки нет (Все метки) помогите с задачей, мне очень неловко но я ничего сделать не смогла. а задача такая: нужн в текстовом файле посчитать количество такик символов -, +, *и вывести их количество каждоой в эдит. Без понятия как эти символы обозначать!!! 0

@ijain 1 / 1 / 0 Регистрация: 03.12.2010 Сообщений: 10
	07.12.2010, 01:18	2
	Напиши регулярное выражение (regular expression). Если не сможешь составить сама, то поищи на гугле. 0

@LenaLitvinova 3 / 3 / 0 Регистрация: 06.12.2010 Сообщений: 70
	07.12.2010, 01:29 [ТС]	3
	а попроще нельзя, на запрос регулярные выражения он мне выдает Делфи 2010 и т.д Добавлено через 12 секунд не пойдет(( 0

@ijain 1 / 1 / 0 Регистрация: 03.12.2010 Сообщений: 10
	07.12.2010, 03:40	4
	На английском больше инфы: http://www.google.com.ua/searc... =&gs_rfai= http://www.latiumsoftware.com/... /00009.php Я завтра попробую найти что-то. 0

@LenaLitvinova 3 / 3 / 0 Регистрация: 06.12.2010 Сообщений: 70
	07.12.2010, 19:48 [ТС]	6
	может как то нитак поняла, но у меня не выходит...а сделала я вот что: procedure TForm1.Button1Click(Sender: TObject); Var F:TextFile; s: array[1..100] of string; var i, k, n, m : integer; begin i:=0; k:=0; m:=0; n:=0; AssignFile(F,'C:\Users\Åëåíà\Desktop\Ïðîáà2\ttt.txt'); ReSet(F); while not EOF(f) do begin i:=i+1; ReadLn(F, s[i]); for i := 1 to length(s) do if s[i] = '+' then inc(k); k:=i; edit1.Text:=IntToStr(k); if s[i] = '-' then inc(m); m:=i; edit2.Text:=IntToStr(m); if s[i] = '' then inc(n); n:=i; edit3.Text:=IntToStr(n); end; end; end. Добавлено через 14 секунд* Проверьте пожалуйста 0

@LenaLitvinova 3 / 3 / 0 Регистрация: 06.12.2010 Сообщений: 70
	07.12.2010, 20:18 [ТС]	8
	Не хочу показаться дурой, но прграмма запускается но не работает!....((((( 0

@LenaLitvinova 3 / 3 / 0 Регистрация: 06.12.2010 Сообщений: 70
	07.12.2010, 20:41 [ТС]	10
	Спасибо, огромное....вы просо не представляете как я вам благодарна. 0

Опции темы