Форум: "Основная";
Текущий архив: 2003.02.10;
Скачать: [xml.tar.bz2];

Вниз

Как удалить из txt-файла все кроме букв?   Найти похожие ветки 

← →
FLAW   (2003-02-03 00:08) [0]

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

---

← →
mrcat   (2003-02-03 00:12) [1]

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

---

← →
FLAW   (2003-02-03 00:18) [2]

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

---

← →
mrcat   (2003-02-03 00:20) [3]

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

---

← →
FLAW   (2003-02-03 00:22) [4]

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

---

← →
FLAW   (2003-02-03 00:26) [5]

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

---

← →
mrcat   (2003-02-03 00:33) [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:35) [7]

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

---

← →
mrcat   (2003-02-03 00:39) [8]

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

---

← →
FLAW   (2003-02-03 00:43) [9]

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

---

← →
FLAW   (2003-02-03 01:07) [10]

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

---

← →
mrcat   (2003-02-03 01:25) [11]

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


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;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.02.10;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.008 c