Append - polecenie

Polecenie wpisuje zawartość pliku1 do otwartego do zapisu pliku o numerze nr_pliku2. Powtarzanie zastosowania polecenia do otwartego pliku docelowego powoduje kolejne dopisywanie zawartości dołączanego pliku na końcu docelowego.

 

Składnia

Int Append String  plik1 To Int  nr_pliku2

 

Argumenty

 

Wartość zwracana

Różna od zera, gdy plik dołączony poprawnie.

Zero, gdy dołączenie pliku nieudane.

 

Przykład

//Zdefiniowanie nazwy pliku docelowego wraz ze ścieżką dostępu
String Plik_wynikowy = KatalogFirmy() + "Plik.txt"
//Nadanie numeru otwieranego pliku
Int Numer_pliku = 8
//Otwarcie pliku docelowego
Int Wsk1 = Open Plik_wynikowy For output As Numer_pliku
//Wyświetlenie komunikatu o otwarciu pliku docelowego
String k1 = "Dokonano nieudanej próby otworzenia pliku: " + Plik_wynikowy + "Ico:!"
String k2 = "Otworzono plik: " + Plik_wynikowy
Select Case Wsk1
Case Is <= 0
Message k1
Case Else
Message k2
EndSelect
//Wskazanie pliku do dopisania
String Plik_do_dodania = FileDlg (1)
//Dopisanie pliku
Int Wsk2 = Append Plik_do_dodania To Numer_pliku
//Wyświetlenie komunikatu o skutku dopisywania pliku
String k3 = "Dopisano plik: " + Plik_do_dodania
String k4 = "Nie udało się dopisać pliku: " + Plik_do_dodania + "Ico:!"
Select Case Wsk2
Case Is != 0
Message k3
Case Else
Message k4
EndSelect
//Zamknięcie pliku
Close Numer_pliku