[Ngôn ngữ Avenue #8] File và lưu trữ, phân phối ứng dụng

2. THAO TÁC TRÊN FILE

Lớp File

LineFile

f=FileDialog.Show(“*.txt”,”Text file”,”Doc text field”)
if (f=nil) then
return nil
end
str=””
afile=TextFile.Make(f,#FILE_PERM_READ)
if (afile=nil) then
return nil
end
while (afile.IsAtEnd.Not)
str=str + afile.ReadElt
end
msgbox.info(str,”Noi dung File”)

Str=str + afile.ReadElt 
End

• #FILE_PERM_READ Mở một file có sẵn để đọc
• #FILE_PERM_WRITE Tạo mới một file và ghi vào file này
• #FILE_PERM_MODIFY Mở một file có sẵn và đọc hay ghi trên file này, ghi chỉ cho phép ghi đè lên một ký tự có sẵn, hay ghi tiếp vào cuối file, không cho phép chèn ký tự vào giữa file.
• #FILE_PERM_APPEND Cho phép ghi tiếp vào file có sẵn hay tạo mới

TextFile

Bài tập

1. LƯU TRỮ ỨNG DỰNG TUỲ BIẾN TRONG EXTENSION

Tạo mới một extension

theProject=av.getProject
‘ tìm script cài đặt và bỏ cài đặt extension
theInstallScript=theProject.FindDoc(“SampleInstallScript”).GetScript
theUninstallScript=theProject.FindDoc(“SampleUninstallScript”).GetScript
‘ kiểm tra xem có script cài đặt và bỏ cài đặt chưa
if ((theInstallScript=nil) or (theUninstall=nil)) then
Msgbox.info(“chưa có script cài đặt và bỏ cài đặt”,”Thông báo”)
Return nil
End
‘ tạo file extension, file extension thường có đuôi .avx
myExtension=Extension.Make(“$HOME/myext.avx”.asFileName”, “Sample extension”, theInstallscript, theUninstallscript,{})
‘ lấy menu mới tạo và bỏ vào extension
theViewMenubar=theProject.FindGui(“View”).GetMenuBar
theMenuItem=theViewMenuBar.FindByLabel(“New Menu”)
myExtension.Add(theMenuItem)
‘ lấy view có tên là ban do tinh Dong Thap và bỏ vào extension
myExtension.Add(theProject.FindDoc(“Ban do tinh Dong Thap”))
‘ bỏ các script cần thiết vào extension này, giả sử tất cả các Script trong project này đều cần thiết để bỏ vào extension
for each d in av.GetProject.GetDocs
if (d.Is(SEd)) then
myExtension.add(d.GetScript)
end
end
‘ thêm vào một câu mô tả về extension này, câu này xuất hiện trong dialog xuất hiện extension
myExtension.SetAbout(“Đây là một extension”)
‘ chắc rằng ghi tất cả các đối tượng xuống file extension
myExtension.Commit

Viết các Script để cài đặt và bỏ cài đặt extension

if (av.GetProject=nil) then
return nil
end
‘ thêm menu vào menu file trong project
theMenuBar=av.GetProject.FindGui(“View”).GêtMnuBar
theMenu=theMenuBar.FindByLabel(“File”)
if (theMenu<>nil) then
theMenubar.add(self.Get(0), theMenuBar.GetControls.Find(theMenu))
else
theMenuBar.Add(self.Get(0),999)
end
‘ thêm menu vào project
av.GetProject.AddDoc(self.get(1))

if (av.GetProject=nil) then
return nil
end
if (av.GetProject.IsClosing) then
return nil
end
‘ bỏ menu
theMenuBar =av.GetProject.FindGui(“View”).GetMenuBar
theMenuBar.Remove(self.Get(0))
‘ bỏ view
av.GetProject.RemoveDoc(self.Get(1))

Chạy thử extension

Tích hợp một extension với các extension khác

theProject =av.GetProject
‘ lấy script cài đặt và bỏ cài đặt
theInstallScript=theProject.FindDoc(“SampleInstallScript”).GetScript
theUninstallScript=theProject.FindDoc(“SampleUninstallScript”).GetScript
‘ chỉ ra vị trí của các extension mà extension của mình phụ thuộc vào
aExt=”$HOME/ext32/network.avx”.AsFileName
bExt=”$HOME/ext32/spatial.avx”.AsFileName
‘ tao danh sách các extension phụ thuộc
theDepend={aExt,bExt}
‘ Tạo file extension
myExtension=Extension.Make(“$HOME/myext.avx”.AsFileName, “Sample extension”, theInstallScript,theUninstallScrip,theDepend}

2. MÃ HOÁ SCRIPT

theDocs=av.GetProject.GetDocs
theSEds = {}
‘ lấy danh sách các Script
for each theDoc in theDocs
if (theDOC.GetGUI = "Script") then
theSEds.Add(theDoc)
end
end
‘ thực hiện lặp để mã hoá các Script
for each i in theSEds
‘ xác nhận mã hoá Script
sure = MsgBox.YesNo(" có muốn mã hoá Script "++i.GetName+"?","Mã hoá", False)
if ( Not sure) then
Continue
end
‘ Tạo Script được mã hoá
theScript = EncryptedScript.MakeFromScript(i.GetScript)
‘ gán tên cho Script mã hoá trùng với tên Script chưa mã hoá
theScript.SetName(i.GetName)
‘ thêm Script mã hoá vào đề án
av.GetProject.AddScript(theScript)
‘ xoá Script chưa mã hoá
av.GetProject.RemoveDoc(i)
end

• EncryptedScript.Make (someAvenueSourceCode) EncryptedScript Tạo một Script mới được mã hoá với đoạn mã Avenue.
• EncryptedScript.MakeFromScript (aScript) EncryptedScript Tạo một Script được mã hoá từ một Script có sẵn.