| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как удалить из txt-файла все кроме букв? [D6, Win95/98]

FLAW ©   (2003-02-03 00:08:00) 

В файле по одному слову в строке. Помогите!

---

mrcat   (2003-02-03 01:25:00) [1]

что-то типа этого:


var
DoDelete: boolean;
...

begin
DoDelete := true;
with TStringList.Create do
begin
LoadFromFile("исходный_файл");
Sort;
while DoDelete do
begin
DoDelete := (Strings[0][1] < "a") or (Strings[0][1] > "z");
if DoDelete then Delete(0);
end;
SaveToFile("файл_результата");
Destroy;
end;
end;

---

FLAW   (2003-02-03 01:07:00) [2]

НЕТ ТАМ НИЧЕГО!

---

FLAW   (2003-02-03 00:43:00) [3]

Спасибо за совет.

---

mrcat   (2003-02-03 00:39:00) [4]

подробней: TStringList
F1 -> Example

---

FLAW   (2003-02-03 00:35:00) [5]

А можно чуть подробней?

---

mrcat   (2003-02-03 00:33:00) [6]

1. Считываете содержимое текстового файла в TStringList (TStringList.LoadFromFile);
2. Сортируете TStringList (TStringList.Sort);

В цикле:
3. Если 1-й символ 1-й строки < a, или > Z удаляете строку TStringList.Delete(0);

4. Записываете содержимое TStringList куда Вам надо (TStringList.SaveToFile)

---

FLAW   (2003-02-03 00:26:00) [7]

В текстовом файле могут находиться, например: кроме цифр !,",№, ;,%,?,*,(,),_,-,=,+ и т.д. и т.п.

---

FLAW   (2003-02-03 00:22:00) [8]

Подробно: как читать из файла строку за строкой и если обнаружиться, что строка это цифра или др. (т.е. все кроме букв) не сохранять ее в новом файле.

---

mrcat   (2003-02-03 00:20:00) [9]

А что по Вашему кроме букв находится в текстовом файле?!

---

FLAW   (2003-02-03 00:18:00) [10]

Как удалить из txt-файла все кроме букв? А КАКИЕ ЕЩЕ ПОДРОБНОСТИ ТРЕБУЮТСЯ, НЕ ПОНЯЛ!

---

mrcat   (2003-02-03 00:12:00) [11]

подробней, пожалуйста...

---

Наверх