Karakter Yazma için Örnek Kod

Bir seferde bir karakter olarak bir veri dosyasına kullanıcı tarafından verilen bir dizeyi yazan bu kodu inceleyin.

C1=COMMENT/INPUT,Yazılacak dosyanın adını girin

, (tam yol dahil).

FPTR=FILE/OPEN,C1.INPUT,WRITE

C2=COMMENT/INPUT,Dosyaya gönderilecek birşey yazın.

,Bu dizeyi bir karaktere tek seferde

,gönderecektir.

ASSIGN/COUNT=0

ASSIGN/LENGTH=LEN(C2.INPUT)

DO/

ASSIGN/WRITETHIS=MID(C2.INPUT,COUNT,1)

FILE/WRITE_CHARACTER,FPTR,WRITETHIS

ASSIGN/COUNT=COUNT + 1

UNTIL/COUNT==LENGTH

Kod Açıklaması

Bu kodun bir kısmı, "Karakter Okuma için Örnek Kod" veya "Satır Okuma için Örnek Kod" kısmında açıklanana benzerdir.

Sadece bu örneğe has açıklamalar burada verilmektedir.

FPTR=FILE/OPEN,C1.INPUT,WRITE
Bu satır, yazma için C1 yorumunda tanımlanan dosyayı açar ve onu FPTR dosya işaretçisine atar. Dosya işaretçisi veri dosyasının başlangıcında başladığı müddetçe bu dosyadaki tüm verilerin üzerine yazılacaktır.

ASSIGN/COUNT = 0
Bu satır, sıfır değerli, kullanıcı tanımlı bir COUNT değişkeni atar. Bu, tek seferde tek karakter dizesi yazdırmak amacıyla döngüleme amaçları için kullanılır.

ASSIGN/LENGTH =LEN(C2.INPUT)
Bu satır, bir dizenin uzunluğunu vermek için LEN( ) fonksiyonunu kullanır. Bu fonksiyon bir parametre, dize alır. Dizedeki (boşluklar dahil) karakter sayısını sayar ve o miktarda bir tamsayı değeri verir. Bu durumda kullanıcı tanımlı değişken olan LENGTH, bu değeri tutar.

DO/
Bu satır, bir DO / UNTIL döngüsü başlatır. DO ve UNTIL ifadeleri arasındaki kod, döngünün koşulu doğru sonuçlanıncaya kadar yürütülecektir.

ASSIGN/WRITETHIS=MID(C2.INPUT,COUNT,1)
Bu satır, WRITETHIS adı verilen kullanıcı tanımlı bir değişken oluşturur ve C2.INPUT dizesinden bir alt dize karakteri vermek için MID( ) fonksiyonunu kullanır ve onu WRITETHIS'e verir.

MID( ), üç parametre alır.

• Parametre 1: Değerlerin alındığı dizedir. Bu durumda C2.INPUT kullanılır.

• Parametre 2: Karakterin alındığı dizedeki konumdur. Bir dizedeki ilk karakter konum 0, ikinci konum 1, üçüncü konum 2 olacaktır ve böyle devam eder. Bu durumda değişken COUNT kullanılır.

• Parametre 3: İkinci parametrenin konumundan itibaren ne kadar karakter alınacağıdır. Bu durumda, 1 değeri kullanılır (örnek aynı anda sadece bir karakter yazar, bu nedenle daha fazla almanın gereği yoktur).

FILE/WRITE_CHARACTER,FPTR,WRITETHIS
Bu satır, FPTR dosya işaretçisinin tanımladığı dosyaya WRITETHIS değişkeninde kayıtlı karakteri yazar.

ASSIGN/COUNT=COUNT+1
Bu satır, mevcut COUNT değerini alır, bir yükseltir ve ardından COUNT'a yeni değeri geri yerleştirir.

UNTIL/COUNT==LENGTH
Bu satır, DO / UNTIL döngüsünün durumunu test eder. Bu durumda döngü, LENGTH değişkeniyle aynı değere sahip olana kadar COUNT değişkenini artırmaya devam edecektir. Ardından yordam sonlandırılarak döngüden çıkılacaktır.