Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Разбор строки

Автор: Alkash 31.5.2012, 09:52

Приветствую, уважаемые форумчане. Необходимо выдернуть некоторое значение(формат значения: 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 первоначально- попадает как раз нужная строка для разбора.

Автор: XperT 31.5.2012, 10:51

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

Код


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

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

Автор: Keeper89 31.5.2012, 13:38

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

Код


archive=(.+).jar

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

Автор: CynicRus 31.5.2012, 13:55

Код


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;