Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.10;
Скачать: CL | DM;

Вниз

Как удалить из 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;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.012 c
1-28757
RomiraS
2003-02-01 11:43
2003.02.10
Простой вопрос...


7-29123
Burjua
2002-12-06 11:41
2003.02.10
Как ловить синхроимпульсы от видеокарточкм


8-28942
Fredericco
2002-10-30 12:27
2003.02.10
DSPack 1.05 и DirectX - наверно у меня руки кривые :-)


9-28573
Lamer86
2002-07-04 12:21
2003.02.10
Можно ли использовать формат jpg в DXImageList


14-29080
Mischka
2003-01-21 13:13
2003.02.10
Программирование доказывает или отрицает существование Бога?