Pemrosesan Teks

Pemrosesan Teks

Pemrosesan teks banyak dilakukan dalam perangkat lunak pengolah kata (word processor) seperti MS-Word, WordPerfect, dll.
Text memiliki definisi sebagai deretan karakter yang bisa direkam ke dalam suatu berkas/file/arsip.
 Suatu teks bisa terdiri atas beberapa kata (words).
 Setiap kata terpisah dari kata lainnya,paling sedikit satu spasi
 Suatu teks dapat terdiri dari beberapa baris (lines) yang dibentuk oleh beberapa kata.
 Setiap baris diakhiri oleh marka end-of-line (EOL)
 Suatu teks diawali oleh marka begin-of-line (BOF) dan diakhiri dengan marka end-of-file (EOF)

Deklarasi suatu teks didahului dengan tipe-data text.

Beberapa intruksi yang berkaitan dengan teks adalah sebagai berikut :
• Mengembalikan petunjuk teks ke posisi awal (BOF) dari fle : reset (F)
• Membuka suatu file teks yang ada di storage (disk) : assign (F, nama_file).
• Membaca ssatu karakter dari file teks : read (F, char ).
• Merekam satu karakter dari file teks : read (F, char ).
• Menutup file teks : close (F).
Contoh :
1. Menghitung jumlah karakter yang ada dalam suatu file teks bernama mytext.txt.
Algoritma Hit_karakter
{menghitung jumlah karakter yang ada dalam suatu teks}
Deklarasi
text F;
char k;
integer jkar;
Deskripsi
assign ( F, “mytext.txt”);
{kembalikan ke awal file, baca BOF}
read (F, k);
if (k!=BOF)
then reset (F);
read (F, k);
endif
{baca karakter hingga akhir file}
read (F, k);
jkar ← 0;
while (k != EOF) do
{hindari tanda EOL)
If (k!= EOL)
then jkar ← jkar +1;
endif.
read (F,k);
endwhile.
Write (“jumlah karakter (termasuk spasi) = “, jkar);

2. Menghitung jumlah baris yang ada dalam suatu fle teks
Algoritma Hit_baris
{menghitung jumlah baris pada suatu teks}
Deklarasi
text F;
char k;
integer jbar;
Deskripsi
assign ( F, “mytext.txt”);
{kembalikan ke awal file, baca BOF}
read (F, k);
if (k!=BOF)
then reset (F);
read (F, k);
endif.
{menolkan jumlah baris pada awal putaran}

{baca karakter hingga akhir file}
read (F, k);
while (k != EOF) do
{bila ketemu tanda EOL tambah jumlah baris)
If (k= EOL)
then jbar ← jbar + 1;
endif.
read (F,k);
endwhile.
Write (“jumlah baris = “, jbar);

3. Menghitung jumlah kata yang ada dalam suatu fle teks, dengan anggapan setiap kata dipisahkan spasi.oleh
Algoritma Hit_baris
{menghitung jumlah baris pada suatu teks}
Deklarasi
text F;
char k1, k2;
integer jkata;
Deskripsi
assign ( F, “mytext.txt”);
{kembalikan ke awal file, baca BOF}
read (F, k);
if (k1 !=BOF)
then reset (F);
read (F, k1);
endif.

{baca karakter berurutan hingga akhir file}
read (F, k1);
read (F, k2);
jkata ← 0;
while (k1 != EOF) ←║( k2 ! = EOF) do
If (k1 != ‘ ‘ ) && (k2 ! = ‘ ‘ )
then jkata ← jkata + 1;
endif.
k1 ← k2;
read (F,k2);
endwhile.
If (k1 != ‘ ‘ ) && (k2 =EOF)
Then jkata ← + 1
endif.
write (“jumlah baris = “, jbar);