Delphi如何实现迅雷批量下载那样的通配符功能呢?

guest |浏览430次
收藏|2014/05/21 00:37

请问DELPHI编程下面,如何实现迅雷里面的批量下载的通配符的那种生成URL的功能?

满意回答

2014/05/21 20:34

var
  AFrom, ATo: Integer;
  AURL, Fmt: string;
begin
  MmoURL.Clear;
  if Pos('(*)', EdtURL.Text) <= 0 then
    Exit;
  Fmt := Format('%%.%dd', [EdtLen.Value]);
  AFrom := Min(EdtFrom.Value, EdtTo.Value);
  ATo := Max(EdtFrom.Value, EdtTo.Value);
  MmoURL.Lines.Add(StringReplace(EdtURL.Text, '(*)', Format(Fmt, [AFrom]), [rfReplaceAll]));
  MmoURL.Lines.Add('...');
  MmoURL.Lines.Add('...');
  MmoURL.Lines.Add(StringReplace(EdtURL.Text, '(*)', Format(Fmt, [ATo]), [rfReplaceAll]));
end;


admin

其他回答(0)
0人关注该问题
待解决问题



+1
 加载中...