Jump to content

Yazıcıdan Çıktı Alabilirmiyiz ?


beydere

Recommended Posts

benim config.ini dosyamı yazıcıdan çıkartmak mümkünmü ? Tabi benim config.ini dosyam düzensiz.

www.resimupload.com/ds797481990_adsiz.html

config.ini yukarıdaki gibi mesela

www.resimupload.com/ds921198578_asd.html

bunun gibi böyle düzenli bir şekilde çıkarta bilirmiyiz ?? Tabiki bu düzensiz oldu ama olsun :)

Link to comment
Share on other sites

Öncelikle bayram nedeniyle siteye filan giremedim. Bu yüzden geç attım mesajı kusura bakmayın ;)

Config.ini

[Customer_1]

Customer=DENEME

Kayitno=729

Connection=0531 XXX XX XX

Computer=Siyah Kasa AMD işlemcili

Problem=HDD yanmış

Solved=HDD değiştirildi. Sistem yüklendi

Charge=120

First Time=2010/08/21

Finish Time=2010/08/28

Çıktı:

Müşterinin İsmi : DENEME

Kayit Numarasi : 729

İletişim Bilgileri : 0531 XXX XX XX

Bilgisyarın Marka Modeli : Siyah Kasa AMD işlemcili

Arızası : HDD yanmış

Yapılan işlemler : HDD değiştirildi. Sistem yüklendi

Fiyat : 120

Geliş Tarih : 2010/08/21

Teslim Tarihi : 2010/08/28

Seni fazla yormak istemiyorum sadece nasıl düzene filan girdiğini bilmem yeterli. Teşekkürler.

Link to comment
Share on other sites

Bence önce indi dosyasını okuyarak bir html dosyası oluştur ve onu yazdır.

Tabi ben bir kaç satır ekledim. Örneğe bakarak istediğin satırları ekle!

Örnek;

_BL_Write_Html(@ScriptDir & "\Test.ini","Customer_1",@ScriptDir & "\PRINTER.html")
;Denemek için yeni oluşan dosyamızı açalım.
ShellExecute(@ScriptDir & "\PRINTER.html")


Func _BL_Write_Html($INI_FILE,$INI_SECTION,$HTML_FILE)
	If not FileExists($INI_FILE) Then Return SetError(1,0,False)

	Local $HTML_TEXT = "<html><body>" & @crlf
	Local $INI_READ = IniRead($INI_FILE, $INI_SECTION, "Customer", "???")
	If $INI_READ <> "???" Then $HTML_TEXT &= "<p><b>Müşterinin İsmi : </b>" & $INI_READ & "</p>" & @crlf & "<p> </p><p> </p>" & @CRLF

	$INI_READ = IniRead($INI_FILE, $INI_SECTION, "Kayitno", "???")
	If $INI_READ <> "???" Then $HTML_TEXT &= "<p><b>Kayit Numarasi : </b>" & $INI_READ & "</p>" & @crlf & "<p> </p><p> </p>" & @CRLF

	$INI_READ = IniRead($INI_FILE, $INI_SECTION, "Connection", "???")
	If $INI_READ <> "???" Then $HTML_TEXT &= "<p><b>İletişim Bilgileri : </b>" & $INI_READ & "</p>" & @crlf & "<p> </p><p> </p>" & @CRLF

	;Buraya diğer satırlarıda eklersin...


	$HTML_TEXT &= "</body></html>" & @crlf

	;------>
	Local $BL_OPT_File = FileOpen($HTML_FILE, 2)
	If $BL_OPT_File = -1 Then Return SetError(1,0,False)
	FileWrite($BL_OPT_File, $HTML_TEXT)
	FileClose($BL_OPT_File)
	Return True
EndFunc

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...