携帯のVCFをカットする。

携帯から吸い出したVcfってたくさんくっついてて、
そのままOutlookとかWindows Mobileで読み込めないじゃん。
そんな時用のVcfカッター。
読み込んだファイルと同じディレクトリに切り出してくれる。

いつかまた使いそうなのでめもっとく。

procedure TForm1.FormCreate(Sender: TObject);
var
  vcf: TStringList;
  one: TStringList;
  dir: String;
  i, n: Integer;
begin
  if not OpenDialog1.Execute then
    Application.Terminate;

  vcf := TStringList.Create;
  one := TStringList.Create;

  vcf.LoadFromFile(OpenDialog1.FileName);
  dir := ExtractFilePath(OpenDialog1.FileName);

  i := 0;
  n := 0;

  repeat
    one.Clear;
    repeat
      one.Add(vcf[i]);
      inc(i);
    until vcf[i] = 'END:VCARD';
    one.Add(vcf[i]);
    one.SaveToFile(Format('%s%.3d.vcf', [dir, n]));
    inc(n);
    inc(i);
  until i = vcf.Count;

  Application.Terminate;
end;