VPF::Разбор строки - Форум программистов

Alkash

Дата 31.5.2012, 09:52 (ссылка)

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

Загрузка ...

коллекционер жизни

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

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

Приветствую, уважаемые форумчане. Необходимо выдернуть некоторое значение(формат значения: gamepackxfFmvBYNsOPojo9fOIAyW7wQV+N0EAdp_1216431.jar) из строки. Строка имеет формат:

Код


document.write('archive=gamepackxfFmvBYNsOPojo9fOIAyW7wQV+N0EAdp_1216431.jar ');

с поиском строки проблем нет, нахожу - все замечательно. Начинаю парсить:

Код


function TForm1.GetRSName(rscode: TStrings): string;
var
 s: string;
 i: integer;
 start,endpos: integer;
begin
 for i := 0 to rscode.Count -1 do
    begin
      if pos('archive=',rscode.Strings[i])<>0 then
       s:=rscode.Strings[i];
       start:=posex('archive=',s);
       endpos:=posex('''',s,start);
       s:=copy(s,start,endpos-start);
    end;
  result:=s;
end;

И здесь возникает проблема: start и endpos - равны 0. И соответственно на выходе, вместо нужного значения, я получаю пустоту. Что я не так делаю?-( При том, что в s первоначально- попадает как раз нужная строка для разбора.

Это сообщение отредактировал(а) Alkash - 31.5.2012, 09:52

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

Подпись >> /dev/null

XperT

Дата 31.5.2012, 10:51 (ссылка)

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

Загрузка ...

Опытный

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

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

Ну как минимум код после этой строки:

Код


if pos('archive=',rscode.Strings[i])<>0 then

Должен быть обрамлен в begin-end. Потом если вы нашли нужную строку - то и цикл стоит прервать. И последнее: что не так в данном случае легко определяется при просмотре через деббагер.

Keeper89

Дата 31.5.2012, 13:38 (ссылка)

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

Загрузка ...

Эксперт

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

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

Регулярное выражение

Код


archive=(.+).jar

спасет в данном случае.

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

CynicRus

Дата 31.5.2012, 13:55 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


var
 s: string;
 i: integer;
 start,endpos: integer;
begin
 for i := 0 to rscode.Count -1 do
    begin
      if pos('archive=',rscode.Strings[i])<>0 then
      begin
       s:=rscode.Strings[i];
       start:=posex('archive=',s)+8;
       endpos:=posex('''',s,start);
       s:=copy(s,start,endpos-start);
      end;
    end;
  result:=s;
end;

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