Задан текстовый файл f. Переписать в новый файл g все слова, которые начинаются с буквы к

@baykersha · Регистрация: 08.06.2013

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

Задан текстовый файл f. Переписать в новый файл g все слова, которые начинаются с буквы к.

@volvo · 19.03.2014, 13:48

Pascal

uses
  System.IO, System.Collections.Generic;
 
begin
  with new System.Collections.Generic.List<string> do
  begin
    // разделителей слов можно добавить по желанию
    foreach var st: string in &File.ReadAllText('D:\test\1.txt').Split(#10#13' ,.!'.ToCharArray()) do
      if st.StartsWith('к') then Add(st);
    &File.WriteAllLines('D:\test\1_k.txt', ToArray());
  end;
end.

@baykersha 0 / 0 / 0 Регистрация: 08.06.2013 Сообщений: 44
		1
	Задан текстовый файл f. Переписать в новый файл g все слова, которые начинаются с буквы к 18.03.2014, 20:13. Показов 1734. Ответов 1 Метки нет (Все метки) Задан текстовый файл f. Переписать в новый файл g все слова, которые начинаются с буквы к. 0

	19.03.2014, 13:48

Опции темы

Задан текстовый файл f. Переписать в новый файл g все слова, которые начинаются с буквы к

Решение