VPF::удаление символов из файла - Форум программистов

vicq

Дата 30.4.2008, 18:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 21.12.2006
Где: Белгород

Репутация: нет
Всего: нет

есть текст в юникоде на чешском языке. нужно убрать из него все переносы строк, спецсимволы, цифры... вобщем оставить только буквы алфавита. как это сделать???
Подскажите пожалуйста!!!

SneG0K

Дата 30.4.2008, 20:40 (ссылка)

(нет голосов)

Загрузка ...

Max Mara

Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 1
Всего: 54

Ну вот например тебе надо удалить цифру 1

Код


var 
 i:integer;
begin
 while pos('1',stroka) do
  begin 
   i:=pos('1',stroka);
   delete(stroka, i, 1);
  end;

Аналогично и с остальными. Хотя лучше положить все в массив и запустить цикл по массиву

vicq

Дата 30.4.2008, 22:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 21.12.2006
Где: Белгород

Репутация: нет
Всего: нет

т.е. считываем всю строку.. эт в потоке? или работа с типизированным(текстовым) файлом.. и ещё будет ли символ который я введу таким же как и двухбайтовый в юникоде? а ещё какой тип должен быть у массива и как его заполнить вручную? может и ламерские вопросы, просто я много уже перепробовал. Спасибо за ответ!

1Andrey1

Дата 1.5.2008, 11:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 78
Регистрация: 8.9.2007

Репутация: 1
Всего: 4

Код


function ClearString(Source: string): string;
var
  i: Integer;
const
valid = ['А'..'я','0'..'9']; {сюда можно вписать любой диапазон или символы по отдельности, так же можно использовать коды символов (типа [#47..#246])   }
begin
  Result := '';
  for i := 1 to Length(Source) do
    if Source[i] in valid then
      Result := Result + Source[i]
      else
      Result := Result + ' ';
end;

Это сообщение отредактировал(а) 1Andrey1 - 1.5.2008, 11:41

Данкинг

Дата 1.5.2008, 12:09 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Цитата(SneG0K @ 30.4.2008, 21:40)

while pos('1',stroka) do

А pos сама по себе возвращает истину, если данный символ встречается в строке, что ли? Я всегда писал вроде

Код


while pos('1',stroka)<>0

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »