Jak mogę uzyskać adres e-mail z ciągu par klucz = wartość?

Question

Jak mogę uzyskać część sznurka, której potrzebuję?

accountid = typ xxxxxx = prem servertime = 1256876305 addtime = 1185548735 validuntil = 1265012019 użytkownik = noobem directstart = 1 protectfiles = 0 rsantihack plustrafficmode = 1 = 1 lusterka = jsconfig = 1 email=noob@live.com partie = 0 fpoints = 6076 ppoints = 149 curfiles = 38 curspace = 3100655714 bodkb = 60000000 premkbleft = 25000000 ppointrate = 116

Chcę danych po e-mail = ale do live.com.?

Answer 1

Istnieje kilka sposobów, aby to zrobić. Możesz podzielić łańcuch na znak spacji, a następnie wprowadzić go do TStringList. Następnie możesz użyć właściwości Value [String] TStringList, aby uzyskać wartość danej nazwy.

Aby to zrobić, wykonaj ciąg zastąpić wszystkich pomieszczeniach przecinkami:

newString := StringReplace(oldString, ' ', ',', [rfReplaceAll]); 

następnie zaimportować wynik w TStringList:

var 
    MyStringList : TStringList; 
begin 
    MyStringList := TStringList.Create; 
    try 
    MyStringList.CommaText := StringReplace(oldString, ' ', ',', [rfReplaceAll]); 
    Result := MyStringList.Values['email']; 
    finally 
    MyStringList.Free; 
    end; 
end; 

To daje wartość e-mail. Następnie musisz podzielić ciąg znaków na symbol "@", który jest stosunkowo trywialnym ćwiczeniem. Oczywiście działa to tylko wtedy, gdy spacje są rzeczywiście ogranicznikami między polami.

Alternatywnie można użyć wyrażenia regularnego, ale Delphi nie obsługuje tych natywnie (należałoby bibliotekę regex - patrz here)

*** Smasher zauważyć (D2006 +) Ogranicznik/tekst rozdzielany który wyglądałby coś takiego:

MyStringList.Delimiter := ' '; 
MyStringList.DelimitedText := oldString; 
Result := MyStringList.Values['email']; 

Answer 2

Poniższy kod działa tylko wtedy, gdy wartości nie zawierają spacji:

uses 
    StrUtils, Classes; 

.... 

function GetPropertyValue (const PropertyName : String; const InputString : String) : String; 
var 
    StringList : TStringList; 
    Str : String; 
begin 
Result := ''; 
StringList := TStringList.Create; 
try 
    StringList.Delimiter := ' '; 
    StringList.DelimitedText := InputString; 
    for Str in StringList do 
    if StartsText (PropertyName + '=', Str) then 
     Result := RightStr (Str, Length (Str) - Length (PropertyName) - 1);  
finally 
    FreeAndNil (StringList); 
end; 
end; 

Answer 3

Mój pomysł:

1. zastąpić spacje z CRLF (to jest przestrzeń oddzielona)
2. obciążenie do TStringList
3. użyj wartości property z "e-mailem" nazwa

Answer 4

podzielić ciąg na tablicę ciąg, używając „=” jako deliminator, będziesz wtedy mieć tablicę ze w tej kolejności: „Klucz”, a następnie „wartość” mogłeś wtedy przeglądaj poszukiwanie klucza "e-mail", a następnie po prostu dodaj 1 do indeksu tablicy, aby uzyskać wartość. Ale może to zawieść na wiele sposobów (np. Niektóre wprowadzają znak "=") lub są puste ciągi znaków w polu wartości

Answer 5

Kolejny pomysł, możesz również użyć PosEx (StrUtils) z tekstem StringList:

function ExtractMyString(SrcStr, FromStr, ToStr: string): string; 
var 
    posBeg, posEnd: integer; 
begin 
    Result := ''; 
    posBeg := Pos(FromStr, SrcStr) + Length(FromStr); 
    posEnd := PosEx(ToStr, SrcStr, posBeg); 

    if (posBeg > 0) and (posEnd > posBeg) then 
    Result := Copy(SrcStr, posBeg, posEnd-posBeg); 
end; 

Zastosowanie:

ExtractMyString(StringList.Text, 'email=', ' lots='); 

oczywiście to będzie działać tylko wtedy, gdy ciąg źródłowy jest zawsze sformatowane w taki sam sposób, byłby przydatny do wydobywania innych danych, ile potrzeba.

Answer 6

zakładając, że ciąg jest utrzymywany w zmiennej 's' i 'tmp' to kolejna zmienna ciąg

i:= pos ('email=', s); 
tmp:= ''; 
inc (i); 
while s[i] <> ' ' do 
begin 
    tmp:= tmp + s[i]; 
    inc (i); 
end; 

'tmp' odbędzie adres