Подсчитать количество символов до точки с запятой и после нее

@tany · Регистрация: 19.06.2011

В текстовом файле Input.txt имеется одна точка с запятой (

. Подсчитать количество символов до точки с запятой и после нее. Результат вывести в выходной файл Output.txt. В делфи и на форме. Пожалуйста плиз.

@Puporev · 19.06.2011, 14:49

Пожалуйста, только почитайте про все что здесь написано, это не Паскаль...

@Mawrat · 19.06.2011, 14:56

Решение с использованием цикла для поиска знака ";".

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  S : String;
  i, Len, Pos1, Cnt1, Cnt2 : Integer;
begin
  S := Edit1.Text;
 
  Len := Length(S);
  Pos1 := 0;
  for i := 1 to Len do begin
    if S[i] = ';' then begin
      Pos1 := i;
      Break;
    end;
  end;
 
  if Pos1 = 0 then begin
    ShowMessage('В строке нет занка: ";".');
  end else begin;
    Cnt1 := Pos1 - 1;
    Cnt2 := Len - Pos1;
    ShowMessage(
      'Символов до знака ";": ' + IntToStr(Cnt1)
      + #10 + 'Символов после знака ";": ' + IntToStr(Cnt2)
    );
  end;
end;

@tany · 19.06.2011, 15:00 **[ТС]**

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

Пожалуйста, только почитайте про все что здесь написано, это не Паскаль...

хорошо) спасибо еще раз

@Rendll · 19.06.2011, 17:18

Я немножко усложню задачку. =)) У меня есть txt файл где строка записуется в формате данные1:данные2:данные3. И мне нужно реализовать функию поиска и удаления данные1 вместе с разделительным знаком. Как это можна сделать?? Тоесть во всех строках нада удалить данные1: Программа считует данные с файла и сразу же записует в другой файл уже в таком виде: данные2:данные3

@Puporev · 19.06.2011, 17:23

Pascal

while not eof(f) do
 begin
  readln(f,s);
  delete(s,1,pos(' '));//если разделитель пробел
  writeln(g,s);
 end;

@Rendll · 19.06.2011, 17:50

delete(s,1,pos(' '));//если разделитель пробел

Не принимает строку =)))
Выдает ошибку [Error] Unit1.pas(39): Not enough actual parameters

@Puporev · 19.06.2011, 17:55

Ну такое-то нужно и самому знать...

Pascal

1	delete(s,1,pos(' ',s));

@Arcor · 19.06.2011, 17:57

потому что в Pos Puporev забыл дописать еще 1 параметр

Delphi

1	delete(s,1,pos(' ',s))

Добавлено через 35 секунд

Не по теме:

вот блин, опоздал :jokingly:

@Rendll · 19.06.2011, 18:01

спс всем!

@tany 0 / 0 / 0 Регистрация: 19.06.2011 Сообщений: 50
		1
	Подсчитать количество символов до точки с запятой и после нее 19.06.2011, 14:26. Показов 2028. Ответов 9 Метки нет (Все метки) В текстовом файле Input.txt имеется одна точка с запятой (. Подсчитать количество символов до точки с запятой и после нее. Результат вывести в выходной файл Output.txt. В делфи и на форме. Пожалуйста плиз. __________________ Помощь в написании контрольных, курсовых и дипломных работ здесь 0

@tany 0 / 0 / 0 Регистрация: 19.06.2011 Сообщений: 50
	19.06.2011, 15:00 [ТС]	4
	Сообщение от Puporev Пожалуйста, только почитайте про все что здесь написано, это не Паскаль... хорошо) спасибо еще раз 0

@Rendll 0 / 1 / 0 Регистрация: 04.12.2008 Сообщений: 63
	19.06.2011, 17:18	5
	Я немножко усложню задачку. =)) У меня есть txt файл где строка записуется в формате данные1:данные2:данные3. И мне нужно реализовать функию поиска и удаления данные1 вместе с разделительным знаком. Как это можна сделать?? Тоесть во всех строках нада удалить данные1: Программа считует данные с файла и сразу же записует в другой файл уже в таком виде: данные2:данные3 0

@Rendll 0 / 1 / 0 Регистрация: 04.12.2008 Сообщений: 63
	19.06.2011, 17:50	7
	delete(s,1,pos(' '));//если разделитель пробел Не принимает строку =))) Выдает ошибку [Error] Unit1.pas(39): Not enough actual parameters 0

@Rendll 0 / 1 / 0 Регистрация: 04.12.2008 Сообщений: 63
	19.06.2011, 18:01	10
	спс всем! 0

Опции темы