AUTOLISP İÇİNDE BAŞKA BİR DOSYAYA VERİ YAZMAK

Autolisp ile bir dosyaya veri yazabilmek için her şeyden önce yazılacak dosyanın açılması gerekir.

Bu yazıda dosyanın açılması kavramı daha önce varolmayan bir dosya için kullanılmaktadır. Yani dosya ilk kez yaratılacaktır.

Diyelim çeşitli işlemler yaptıktan sonra bulduğumuz sonuçları rapor.txt isimli bir dosyada tutmak istiyoruz.

Diyelim ki bulduğumuz sonuçlar satır1, satır2, satır3, satır4 değişkenlerinde tanımlı olsun.

Aşağıdaki rutin bu işi yapmaktadır.


(defun C:DosyayaYaz()
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2009;;;;;;;;;;;
; APK BİLGİSAYAR - YAZILIM ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(SETQ SATIR1 "DENEME SATIRI BİR")
(SETQ SATIR2 "DENEME SATIRI İKİ")
(SETQ SATIR3 "DENEME SATIRI ÜÇ")
(SETQ SATIR4 "DENEME SATIRI DÖRT")

(setq dosyaadi "C:\\RAPOR.TXT"); DOSYANIN DİSKTEKİ ADRESİ BELİRLENİR
(setq dosya (open dosyaadi "w")); BURADA DOSYA YAZMA AMAÇLI AÇILIR

(SETQ BASLIK "BAŞLIK")

(write-line BASLIK dosya)
(write-line SATIR1 dosya)
(write-line SATIR2 dosya)
(write-line SATIR3 dosya)
(write-line SATIR4 dosya)

)

Programı çalıştırıp C sürücüsünde olan RAPOR.TXT açtığımızda şöyle görürüz.

BAŞLIK
DENEME SATIRI BİR
DENEME SATIRI İKİ
DENEME SATIRI ÜÇ
DENEME SATIRI DÖRT


APK BİLGİSAYAR-YAZILIM (ANKARA)
apkbilgisayar@gmail.com

Yorumlar

Yorum Gönder

Bu blogdaki popüler yayınlar

AUTOLISP DOSYALARININ KALICI KULLANIMI

AUTOLISP DOSYALARININ KALICI KULLANIMI Tools/Load application menüsünden yüklenen bir lisp'in yeni bir autocad dosyası açıldığında ya da Autocad bir nedenle kapatıldığında artık bir hükmü kalmaz. Şayet bir lisp programının AutoCAD'in her açılışında ya da yeni AutoCAD dosyası yaratılmak istendiğinde otomatik olarak kullanıma hazır bulunması isteniyorsa aşağıdaki iki adım yerine getirilmelidir. 1. İstenen lisp, tools/load application menüsü ile gelen arayüzdeki startup suite üzerinde bulunan contents komutu kullanılarak kalıcı şekilde yüklenmelidir. Contents komutuna basıldıktan sonra add butonu ile ilgili lisp seçilmelidir. 2. İstenen lisp'in ait olduğu klasör tools/option/Support File Search Path kullanılarak AutoCAD'e kalıcı olarak tanıtılmalıdır. Sol yandaki "+" işareti açılarak sağ yandaki add komutuna tıklanır ve Browse ile lisp'in ait olduğu klasör seçilir. Bu iki adım yerine getirildiğinde artık AutoCAD'in her türlü açılışında lisp de kullanıma h
Devamı

AUTOLISP PROGRAMLARINI ÇALIŞTIRMAK

.lsp uzantılı olan Autolisp ya da visual lisp dosyaları Autocad içinde Tools/Load Application menusu kullanılarak tanıtılırlar. Bu menünün yönlendirilmesi ile seçilen .lsp uzantılı dosya daha sonra load edilerek kullanıma hazır hale getirilir. Programın kullanılması ise lisp içindeki komutun komut satırına yazılması ile mümkündür. Örnek: (defun c:(deneme) ... ) komut satırına deneme yazılarak çalıştırılır.
Devamı

MS Access Veritabanı Tablosuna Visual Basic ile Veri Eklemek

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim sql As New String("INSERT INTO @tabloadı (@alan1, @alan2, @alan3, @alan4, @alan5, @alan5, @alan6) values ('" + Text1.Text + "','" + DateTimePicker1.Text + "','" + ComboBox1.Text + "','" + Text2.Text + "','" + Text3.Text + Text4.Text + "') ") 'Altı alanı olan bir access veritabanı dosyası için ekranda iki değeri combobox'tan, bir tarih değeri 'datetimepicker'dan, kalan üç öge textbox'lardan alınmıştır bu örnekte. Dim baglanti As New OleDbConnection("Provider=Microsoft.ace.OLEDB.12.0;Data Source= 'E:\@accessveritabanıadı.accdb'") 'E sürücüsünde bir access veri tabanı adresi verilmiştir Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti) Dim sonuc As Integer baglanti.Open()
Devamı