'='を含む文字列をstringlistに追加するには？

Question

正規表現を使用して、 '='を含むテキストを解析し、分割された文字列をキー値のような文字列リストに入れます。

値に '='が含まれていると、list.add（key3 + '=' + 'number = 10'）;を使用できません。

key1 this's done 
key2 that costs 10 dollars 
key3 number=10 // invalid data, error prompt. 
... 

解決方法？ ありがとうございます。

編集：

ありがとうございました。

キーに '='を含む文字列を追加する必要がある場合、どうすれば解決できますか？

例えば、解析されるテキストは、このようなことがあります。

maleConsumer=john 1 
maleConsumer=eric 2 
femaleConsumer=mary 2 
maleConsumer=john 8 
... 

私は正規表現REG = '\ B \ S + \ b' が解析テキストを使用してSTRINGLISTのキーにmaleconsumer =ジョンを置くために、文字列リストでは、ジョンのレコードは次のようになります。

maleConsumer=john 9 // maleconsumer=john is key, 9 is value 

この場合、どうすればいいですか？

もう一度お返事ありがとうございます。

Answer 1

これは、Delphi

var 
    sl: TStringList; 
begin 
    sl := TStringList.Create; 
    try 
     sl.Add('key1=this''s done'); 
     sl.Add('key2=that costs 10 dollars'); 
     sl.Add('key3=number=10'); 
     ShowMessage(sl.Values['key3']); // Displays number=10 
    finally 
     sl.Free; 
    end; 
end; 

これが優れていると、まだ

var 
    sl: TStringList; 
begin 
    sl := TStringList.Create; 
    try 
     sl.Values['key1'] := 'this''s done'; 
     sl.Values['key2'] := 'that costs 10 dollars'; 
     sl.Values['key3'] := 'number=10'; 
     ShowMessage(sl.Values['key3']); // Displays number=10 
    finally 
     sl.Free; 
    end; 
end; 

ところで作品で正常に動作します、あなたはTStringList.NameValueSeparator

で区切りを指定することができます

NameValueSeparatorを使用してキーを入力する

var 
    sl: TStringList; 
begin 
    sl := TStringList.Create; 
    try 
     // Select a separater you are sure will never be used 
     sl.NameValueSeparator := '|'; 

     sl.Values['maleConsumer=john'] := '1'; 
     sl.Values['maleConsumer=eric'] := '2'; 
     sl.Values['femaleConsumer=mary'] := '2'; 
     sl.Values['maleConsumer=john'] := '8'; 

     ShowMessage(sl.Values['maleConsumer=john']); // Displays 8 
    finally 
     sl.Free; 
    end; 
end; 

Answer 2

値は '=' が含まれているかどうかを確認します。

if(value.indexOf('=') != -1){ 
//error prompt 
} 

Answer 3

のJava：あなたが使用することができます

：String.contains（）メソッド。

Answer 4

デルファイの場合;文字列にデリミタとQuoteCharを設定することができます。 例：詳細は

cars := TStringList.Create; 
    // Now add some cars to our list - using the DelimitedText property 
    // with overriden control variables 
    cars.Delimiter := ' ';  // Each list item will be blank separated 
    cars.QuoteChar := '|';  // And each item will be quoted with |'s 
    cars.DelimitedText := '|Honda Jazz| |Ford Mondeo| |Jaguar "E-type"|'; 

見here。

Answer 5

Delphiは：

var 
    LStringList: TStringList; 
    LStrValue: string; 
begin 
    LStringList := TStringList.Create; 
    try 
    // set the value of a key 
    LStringList.Values['a key'] := 'a value'; 
    // get the value of a key 
    LStrValue := LStringList.Values['a key']; 
    finally 
    FreeAndNil(LStringList); 
    end;// trye 
end; 

Answer 6

Delphi 2009以降を使用している場合は、TStringListではなくTDictionaryを使用します。そうすれば、TStringListを適切に動作させるために必要なこれらのハックをすべて避けることができます。