Parsing Text Dengan Delphi

Parsing Text Dengan Delphi~Sobat semilir, kembali menggeluti dunia scripting membuat saya kembali membuka-buka script lama. Karena memang sedang saya butuhkan untuk membuat project yang sedang digarap. Barangkali saja sobat semilir juga memerlukan dan menemukan kasus serupa. Kali ini saya akan menceritakan script untuk Parsing Text. Sesuai judulnya, parsing text maka script berikut ini akan memilah-milah atau memparsing sebuah kalimat menjadi beberapa bagian sesuai dengan yang kita inginkan. Misalnya proses parsing pesan SMS seperti DAFTAR#ANTO#PEKANBARU, kalimat pesan SMS ini akan diparsing menjadi 3 bagian dengan penanda parsingnya '#', hasilnya akan menjadi DAFTAR sebagai kalimat pertama, ANTO kalimat kedua dan PEKANBARU kalimat ketiga. Untuk contoh lainnya bisa kita gunakan untuk kodifikasi barang misalnya 01-20-001.  Akan kita parsing menjadi 3 bagian dengan karakter parsing '-' sehingga hasilnya 01 sebagai kode gudang, 20 sebagai kode lemari dan 001 sebagai nomor register barang dan untuk penerapan contoh lainnya. Script untuk proses parsingnya adalah sebagai berikut :

function Parsing(Char, Str: string; Count: Integer): string;
var
  i: Integer;
  strResult: string;
begin
  if Str[Length(Str)] <> Char then
    Str := Str + Char;
  for i := 1 to Count do
  begin
    strResult := Copy(Str, 0, Pos(Char, Str) - 1);
    Str := Copy(Str, Pos(Char, Str) + 1, Length(Str));
  end;
  Result := strResult;
end;

Adapun untuk menggunakannya, sobat dapat menulis seperti berikut ini

Kode.Text := Parsing('-', '01-02-2011', 2);

Dari kode diatas akan ditampilkan hasilnya parsingnya berupa angka 02, karena index hasil parsingnya dimulai dari 1, 2, dan 3. Demikian sobat, semoga bermanfaat