VPF::Убрать из файла ненужные символы

SeeD

Дата 15.11.2006, 23:15 (ссылка)

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

Загрузка ...

Новичок

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

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

Доброго времени!
Вот появилась такая проблема. Ничего подходящего не нашел в инете.
Смысл такой, что нужно убрать из файла, который содержит 10 символов, все, кроме цифр и 2х букв. Мне нужно выдернуть кол-во мегабайт. Но в файле могут хранится еще и хтмл тэги. Некоторые не закрытые =(

Sunvas

Дата 15.11.2006, 23:45 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Цитата(SeeD @ 15.11.2006, 23:15

)

который содержит 10 символов

Цитата(SeeD @ 15.11.2006, 23:15

)

Мне нужно выдернуть кол-во мегабайт.

Че-то я не очень понимаю твоей математики - как 10 символов могут метрами меряться??

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

SeeD

Дата 16.11.2006, 00:00 (ссылка)

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

Загрузка ...

Новичок

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

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

В файле хранятся данные(кол-во мегабайт), которые скачал юзер...
Например, в файле хранится это :

Код


>130Mb</b><t

Как мне выдернуть значение 130Mb ?
Извините, что плохо сформулировал вопрос. Спать хоцца...

Sunvas

Дата 16.11.2006, 00:23 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Ну дык ищи в файле "Mb", а затем выдергивай то, что лежит между ">" и "Mb" smile

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

SeeD

Дата 16.11.2006, 00:56 (ссылка)

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

Загрузка ...

Новичок

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

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

Не пойму, как правильно делать поиск.
Например так :

Код


f;=TStringCreate();
f.LoadFromFile('c:\temp.txt');
for i:=0 to f.count-1 do
begin
if f.strings[I]='Mb' then bla-bla-bla
end;
f.free;

Mb он не находит!

anwe

Дата 16.11.2006, 01:37 (ссылка)

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

Загрузка ...

Опытный

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

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

Ты же сравниваешь всю строку с Mb.
Так найдешь свои Mb:

Код


if pos('Mb',f.strings[i])>0 then ShowMessage('bla-bla-bla');

Poseidon

Дата 16.11.2006, 01:48 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Вот, на быструю руку...

Код


procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile;
str: string;
p, i, tmp: integer;
begin
AssignFile(f, 'D:/file.txt');
Reset(f);
Read(f, str);
CloseFile(f);

p:= pos('Mb', str);

try
  for i:= p-1 DownTo 1 do
  tmp:= StrToInt(copy(str, i, p-i));
  except ShowMessage(IntToStr(tmp));
  end;

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

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