我想從 StringList 復制特定行，我想將所有具有“域狀態：”的行復制到 memo.lines.text 我使用下面的代碼，但問題是它只復制第一行，我想復制所有具有“域狀態：”的行：
const
FieldNames: array[0..2] of string = ('Domain Status', 'domain status', 'Domain status');
begin
sl := TStringList.Create;
try
sl.Assign(Memo.Lines);
for I := 0 to sl.Count-1 do begin
sl[I] := TrimLeft(sl[I]);
end;
sl.NameValueSeparator := ':';
for I := Low(FieldNames) to High(FieldNames) do begin
status := Trim(sl.Values[FieldNames[I]]);
if status <> '' then Break;
end;
finally
sl.Free;
end;
memo1.lines.text:=status;
StringList 中的文本示例：
Domain Name: yahoo.com
Registry Domain ID: 3643624_DOMAIN_COM-VRSN
Registrar WHOIS Server: whois.markmonitor.com
Registrar URL: http://www.markmonitor.com
Updated Date: 2022-03-09T15:51:45 0000
Creation Date: 1995-01-18T08:00:00 0000
Registrar Registration Expiration Date: 2023-01-19T05:00:00 0000
Registrar: MarkMonitor, Inc.
Registrar IANA ID: 292
Registrar Abuse Contact Email: [email protected]
Registrar Abuse Contact Phone: 1.2083895770
Domain Status: clientUpdateProhibited (https://www.icann.org/epp#clientUpdateProhibited)
Domain Status: clientTransferProhibited (https://www.icann.org/epp#clientTransferProhibited)
Domain Status: clientDeleteProhibited (https://www.icann.org/epp#clientDeleteProhibited)
Domain Status: serverUpdateProhibited (https://www.icann.org/epp#serverUpdateProhibited)
Domain Status: serverTransferProhibited (https://www.icann.org/epp#serverTransferProhibited)
Domain Status: serverDeleteProhibited (https://www.icann.org/epp#serverDeleteProhibited)
Registrant Organization: Yahoo Assets LLC
Registrant State/Province: VA
我想得到：
clientUpdateProhibited
clientTransferProhibited
clientDeleteProhibited
serverUpdateProhibited
serverTransferProhibited
.....
without the http://www.icann.org...
uj5u.com熱心網友回復：
您需要遍歷 的各個字串TStringList，該TStringList.Values[]屬性不會幫助您完成此任務，因為它只會搜索具有匹配名稱的第一個字串。但是，您可以使用TStringList.Names[]和TStringList.ValueFromIndex[]屬性來幫助您。
此外，您根本不需要FieldNames[]陣列。使用不區分大小寫的比較，例如SysUtils.SameText()。
嘗試更多類似的東西：
sl := TStringList.Create;
try
sl.Assign(Memo.Lines);
sl.NameValueSeparator := ':';
for I := 0 to sl.Count-1 do begin
sl[I] := TrimLeft(sl[I]);
if SameText(sl.Names[I], 'Domain Status') then begin
status := Trim(sl.ValueFromIndex[I]);
status := Copy(status, 1, Pos(' ', status)-1);
Memo1.Lines.Add(status);
end;
end;
finally
sl.Free;
end;
uj5u.com熱心網友回復：
另一種方法是使用正則運算式。有點矯枉過正，但是如果您可以保留正則運算式而不是在每次使用時重新創建它，則性能可以媲美。
procedure TForm1.Button1Click(Sender: TObject);
Var
RegExDomainStatus : TRegEx;
Match : TMatch;
Alltext : string;
begin
RegExDomainStatus.Create('(?<=^domain status: )[A-z] ',[roIgnoreCase,roMultiline]);
Alltext := Memo1.Lines.Text;
Memo1.Lines.Clear;
match := RegExDomainStatus.Match(AllText);
while match.Success do
begin
memo1.Lines.add(match.Value);
match := match.NextMatch;
end;
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/460939.html
標籤：德尔福 帕斯卡 delphi-10.4-悉尼