Dosya Olusturma Hakkinda

monika · August 31, 2010

Arkadaslar ben bi calisma yaptim ancak bi sorunum var Olusturdugum programda bi xml dosyasi olusturacak ve icerisine yazi yazacak bazi yerlerinide input a yazdigim yaziyi yazacak benim olusturdugum script de bazi hatalar var ama fazla bilgim yok eksik yerlerde yardim ede bilirmuisiniz

script

#include &lt;ButtonConstants.au3&gt;
#include &lt;EditConstants.au3&gt;
#include &lt;GUIConstantsEx.au3&gt;
#include &lt;StaticConstants.au3&gt;
#include &lt;WindowsConstants.au3&gt;
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 180, 72, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "_close")
$Input1 = GUICtrlCreateInput("", 40, 8, 121, 21)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$start = GUICtrlCreateButton("Olustur", 64, 32, 75, 25)
GUICtrlSetOnEvent($start, "start")
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label1 = GUICtrlCreateLabel("IP", 16, 8, 14, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $start
			$ARCHIV = GUICtrlRead($Input1)
			If $ARCHIV = "" Then
				MsgBox(-1, "File Extractor", "Hic Bisey Yapilamadi!")
			EndIf
			FileWrite("C:/extract/extract.xml", "&lt;Buildfile version='1.1'&gt;")
			FileWriteLine("C:/extract/extract.xml", "	&lt;Action type='extract' archivePath='C:/extract/" &amp; $ARCHIV &amp; "' outputPath='Source' extractAll='YES' createXML='YES' xmlPath='Pack.xml' /&gt;")
			FileWriteLine("C:/extract/extract.xml", "&lt;/Buildfile&gt;")
	EndSwitch
WEnd

***sk8er_boi*** · August 31, 2010

DİKKAT: Konu Başlığını forum Kurallarına gore yeniden düzenleyiniz. Aksi halde cope tasınacaktır.

Forum Kuralları - [ Madde 10-16 ]

Konu düzenlenene kadar yazılan tüm iletiler silinecektir.

blue_life · August 31, 2010

#include &lt;ButtonConstants.au3&gt;
#include &lt;EditConstants.au3&gt;
#include &lt;GUIConstantsEx.au3&gt;
#include &lt;StaticConstants.au3&gt;
#include &lt;WindowsConstants.au3&gt;

$Form1 = GUICreate("Form1", 180, 72, 192, 124)
$Input1 = GUICtrlCreateInput("", 40, 8, 121, 21)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$start = GUICtrlCreateButton("Olustur", 64, 32, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label1 = GUICtrlCreateLabel("IP", 16, 8, 14, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $start
			$ARCHIV = GUICtrlRead($Input1)
			If $ARCHIV = "" Then
				MsgBox(-1, "File Extractor", "Hic Bisey Yapilamadi!")
				ContinueCase
			EndIf
			FileWrite("C:/extract/extract.xml", "&lt;Buildfile version='1.1'&gt;" &amp; @crlf &amp; _
			"	&lt;Action type='extract' archivePath='C:/extract/" &amp; $ARCHIV &amp; "' outputPath='Source' extractAll='YES' createXML='YES' xmlPath='Pack.xml' /&gt;" &amp; @crlf &amp; _
			"&lt;/Buildfile&gt;")
	EndSwitch
WEnd

Inputa girdiğin bilgi xml dosyasında hep aynı yeremi yazılacak? Biraz daha detay vermelisin...

monika · August 31, 2010

oncelikle yanit verdigin icin tesekurler kardesim

inputa girdigim bilgi hep ayni yere yazilmicak farkli yerlerede yazacak ben inputa yazdigim bilgiyi okumasi icin inputu $ARCHIV = GUICtrlRead($Input1) bu sekilde adlandirdim yani $ARCHIV yazdigim her yerde inputa yazdigim bilgiyi girmesi lazim

blue_life · August 31, 2010

@monika

Ne yapmak istedini malesef anlamadım. Sana yardımcı olmam için biraz detaylı (xml örneği ile birlikte) anlatmalısın.

Tamam xml dosyasına bir veri yazdırmak istiyorsun lakin, inputa girilen bilgi nere yazılacak? Neye göre yazılacak?

Istersen www.autoitscript.com forumunda xml udflerine bak...

Neyse fazla yardımcı olamadık, kolay gelsin...

monika · August 31, 2010

tmm kardesim hallettik ancak 2 tane sorunum var 1.si inputtan 2 tane olusturdum ama 2 sine ayni yazi satirinda islem yapacak bunu yapamadim

2.si ise yazdirmak istedigim yaziyi dogru bi sekilde girmeme ragmen hata veriyor.

yeni kodlari vereyim

#include &lt;ButtonConstants.au3&gt;
#include &lt;EditConstants.au3&gt;
#include &lt;GUIConstantsEx.au3&gt;
#include &lt;StaticConstants.au3&gt;
#include &lt;WindowsConstants.au3&gt;
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 358, 238, 276, 192)
$Input1 = GUICtrlCreateInput("", 100, 80, 129, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Input2 = GUICtrlCreateInput("",  100, 160, 129, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$start = GUICtrlCreateButton("Olustur", 125, 200, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label1 = GUICtrlCreateLabel("Server Ismi", 20, 80, 80, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Label2 = GUICtrlCreateLabel("IP", 20, 160, 78, 18)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $start
			$ISIM = GUICtrlRead($Input1)
			If $ISIM = "" Then
				MsgBox(-1, "Serverinfo Olusturucu", "Server Ismini Yazmadiniz!")

			$IPNO = GUICtrlRead($Input2)
			If $IPNO = "" Then
				MsgBox(-1, "Serverinfo Olusturucu", "IP Numaranazini yazmadiniz!")
				ContinueCase
			EndIf
			FileWrite("C:/extract/serverinfo.py", "import app" &amp; @crlf &amp; _
			"import locale" &amp; @crlf &amp; _
			"import debugInfo" &amp; @crlf &amp; _
			"" &amp; @crlf &amp; _
			"CHINA_PORT = 50000" &amp; @crlf &amp; _
			"" &amp; @crlf &amp; _
			"app.ServerName = None" &amp; @crlf &amp; _
			"" &amp; @crlf &amp; _
			"if locale.IsGERMANY() or (locale.IsEUROPE() and app.GetLocalePath() == "locale/tr"):" &amp; @crlf &amp; _
			"	STATE_NONE = "Kapali"" &amp; @crlf &amp; _
			"" &amp; @crlf &amp; _
			"	STATE_DICT = {" &amp; @crlf &amp; _
			"		0 : "...."," &amp; @crlf &amp; _
			"		1 : "NORMAL"," &amp; @crlf &amp; _
			"		2 : "BUSY"," &amp; @crlf &amp; _
			"		3 : "FULL"" &amp; @crlf &amp; _
			"	}" &amp; @crlf &amp; _
			"" &amp; @crlf &amp; _
			"	NurhakMt2_serverinfo_Generator = {" &amp; @crlf &amp; _
			"		1:{"key":11,"name":"CH 1","ip":" &amp; $IP &amp; ","tcp_port":13000,"udp_port":13000,"state":STATE_NONE,},	" &amp; @crlf &amp; _
			"	}" &amp; @crlf &amp; _
			"" &amp; @crlf &amp; _
			"	REGION_NAME_DICT = {" &amp; @crlf &amp; _
			"		0 : "GERMANY"," &amp; @crlf &amp; _
			"	}" &amp; @crlf &amp; _
			"" &amp; @crlf &amp; _
			"	REGION_AUTH_SERVER_DICT = {" &amp; @crlf &amp; _
			"		0 : {" &amp; @crlf &amp; _
			"			1 : { "ip":" &amp; $IP &amp; ", "port":11002, }," &amp; @crlf &amp; _
			"		}," &amp; @crlf &amp; _
			"	}" &amp; @crlf &amp; _
			"" &amp; @crlf &amp; _
			"	REGION_DICT = {" &amp; @crlf &amp; _
			"		0 : {" &amp; @crlf &amp; _
			"			1 : { "name" : " &amp; $ISIM &amp; ", "channel" : NurhakMt2_serverinfo_Generator, }," &amp; @crlf &amp; _
			"		}," &amp; @crlf &amp; _
			"	}" &amp; @crlf &amp; _
			"" &amp; @crlf &amp; _
			"	MARKADDR_DICT = {" &amp; @crlf &amp; _
			"		10 : { "ip" : " &amp; $IP &amp; ", "tcp_port" : 13000, "mark" : "10.tga", "symbol_path" : "10", }," &amp; @crlf &amp; _
			"" &amp; @crlf &amp; _
			"" &amp; @crlf &amp; _
			"	}" &amp; @crlf &amp; _
			"" &amp; @crlf &amp; _
			"	TESTADDR = { "ip" : " &amp; $ISIM &amp; ", "tcp_port" : 50000, "udp_port" : 50000, }" &amp; @crlf &amp; _
			"")
	EndSwitch
WEnd

bu koddaki sorun sadece input1 islem yapmiyor yapiyoda input2 ye yazilan i yaziyo bide nedense hata veriyo ama hic bi sorun yok

blue_life · September 1, 2010

Gördüğüm hataları düzelttim... Kolay gelsin...

#include &lt;ButtonConstants.au3&gt;
#include &lt;EditConstants.au3&gt;
#include &lt;GUIConstantsEx.au3&gt;
#include &lt;StaticConstants.au3&gt;
#include &lt;WindowsConstants.au3&gt;

$Form1 = GUICreate("Form1", 358, 238, 276, 192)
$Input1 = GUICtrlCreateInput("", 100, 80, 129, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Input2 = GUICtrlCreateInput("", 100, 160, 129, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$start = GUICtrlCreateButton("Olustur", 125, 200, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label1 = GUICtrlCreateLabel("Server Ismi", 20, 80, 80, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Label2 = GUICtrlCreateLabel("IP", 20, 160, 78, 18)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case -3
			Exit
		Case $start
			$ISIM = GUICtrlRead($Input1)
			If $ISIM = "" Then
				MsgBox(16, "Serverinfo Olusturucu", "Server Ismini Yazmadiniz!")
				GUICtrlSetState($Input1, 256)
				ContinueCase
			EndIf
			$IPNO = GUICtrlRead($Input2)
			If $IPNO = "" Then
				MsgBox(16, "Serverinfo Olusturucu", "IP Numaranazini yazmadiniz!")
				GUICtrlSetState($Input2, 256)
				ContinueCase
			EndIf
			FileWrite("C:/extract/serverinfo.py", "import app" &amp; @CRLF &amp; _
					"import locale" &amp; @CRLF &amp; _
					"import debugInfo" &amp; @CRLF &amp; _
					"" &amp; @CRLF &amp; _
					"CHINA_PORT = 50000" &amp; @CRLF &amp; _
					"" &amp; @CRLF &amp; _
					"app.ServerName = None" &amp; @CRLF &amp; _
					"" &amp; @CRLF &amp; _
					'if locale.IsGERMANY() or (locale.IsEUROPE() and app.GetLocalePath() == "locale/tr"):' &amp; @CRLF &amp; _
					'	STATE_NONE = "Kapali"' &amp; @CRLF &amp; _
					'' &amp; @CRLF &amp; _
					'	STATE_DICT = {' &amp; @CRLF &amp; _
					'		0 : "....",' &amp; @CRLF &amp; _
					'		1 : "NORMAL",' &amp; @CRLF &amp; _
					'		2 : "BUSY",' &amp; @CRLF &amp; _
					'		3 : "FULL"' &amp; @CRLF &amp; _
					'	}' &amp; @CRLF &amp; _
					'' &amp; @CRLF &amp; _
					'	NurhakMt2_serverinfo_Generator = {' &amp; @CRLF &amp; _
					'		1:{"key":11,"name":"CH 1","ip":" &amp; $IP &amp; ","tcp_port":13000,"udp_port":13000,"state":STATE_NONE,},	' &amp; @CRLF &amp; _
					'	}' &amp; @CRLF &amp; _
					'' &amp; @CRLF &amp; _
					'	REGION_NAME_DICT = {' &amp; @CRLF &amp; _
					'		0 : "GERMANY",' &amp; @CRLF &amp; _
					'	}' &amp; @CRLF &amp; _
					'' &amp; @CRLF &amp; _
					'	REGION_AUTH_SERVER_DICT = {' &amp; @CRLF &amp; _
					'		0 : {' &amp; @CRLF &amp; _
					'			1 : { "ip":" &amp; $IP &amp; ", "port":11002, },' &amp; @CRLF &amp; _
					'		},' &amp; @CRLF &amp; _
					'	}' &amp; @CRLF &amp; _
					'' &amp; @CRLF &amp; _
					'	REGION_DICT = {' &amp; @CRLF &amp; _
					'		0 : {' &amp; @CRLF &amp; _
					'			1 : { "name" : ' &amp; $ISIM &amp; ', "channel" : NurhakMt2_serverinfo_Generator, },' &amp; @CRLF &amp; _
					'		},' &amp; @CRLF &amp; _
					"	}" &amp; @CRLF &amp; _
					"" &amp; @CRLF &amp; _
					"	MARKADDR_DICT = {" &amp; @CRLF &amp; _
					'		10 : { "ip" : " &amp; $IP &amp; ", "tcp_port" : 13000, "mark" : "10.tga", "symbol_path" : "10", },' &amp; @CRLF &amp; _
					"" &amp; @CRLF &amp; _
					"" &amp; @CRLF &amp; _
					"	}" &amp; @CRLF &amp; _
					"" &amp; @CRLF &amp; _
					'	TESTADDR = { "ip" : ' &amp; $IPNO &amp; ', "tcp_port" : 50000, "udp_port" : 50000, }' &amp; @CRLF &amp; _
					"")
			MsgBox(64, "Serverinfo Olusturucu", "İşlem tamamlandı!")
	EndSwitch
WEnd

monika · September 1, 2010

yardimin icin cok saol kardesim program sorunsuz calisiyo

son bi soru autoit te bir xml dosyasi veya baska bi dosyadaki yazilardan istedigimiz satirdaki yazilari degistire biliyormuz vede istedigimiz satirin altina bi satir daha olustura biliyomuyuz ??

blue_life · September 1, 2010

Xml dosyasını fazla tanımıyorum. Lakin büyük ihtimal her zaman text dosyası.

Kısaca bu işler için StringReplace kullanabilirsin.

Bir kaç örnek verim. Misal text dosyasındaki bir satırı değiştirmek istiyorsun. Hızlı bir function yazdım.

_BL_File_Replace_Line("dosya konumu","Aranacak yazı","Bulunursa değiştirilecek yazı")

MsgBox(0, "", _BL_File_Replace_Line("extract.xml","&lt;Buildfile version='1.5'&gt;" &amp; @CRLF,"&lt;Buildfile version='1.1'&gt;" &amp; @CRLF))
Func _BL_File_Replace_Line($Text_File,$Text_Searc,$Text_Replace)
	Local $File_Read = FileRead($Text_File,FileGetSize($Text_File))
	If @error Then Return SetError(1,0,0)
	$File_Read = StringReplace($File_Read,$Text_Searc,$Text_Replace)
	If @extended = 0 Then Return SetError(1,0,0)
	If StringInStr(FileGetAttrib($Text_File),"R") Then FileSetAttrib($Text_File,"-R")
	Local $FileOpen = FileOpen($Text_File, 2)
	If $FileOpen = -1 Then SetError(1,0,0)
	Local $File_Write = FileWrite($FileOpen, $File_Read)
	FileClose($FileOpen)
	If $File_Write = 0 Then SetError(1,0,0)
	Return 1
EndFunc

Bir satırı silmek için ise kısaca;

 _BL_File_Replace_Line("extract.xml","&lt;Buildfile version='1.5'&gt;" &amp; @CRLF,"" &amp; @CRLF)

Bir satırın altına yeni satır oluşturmak için ise;

 _BL_File_Replace_Line("extract.xml","&lt;Buildfile version='1.5'&gt;" &amp; @CRLF,"&lt;Buildfile version='1.5'&gt;" &amp; @CRLF &amp; "Yeni satır" &amp; @CRLF)

Tabi StringReplace arayıp buluduğu tüm yazıyı değiştirir. Eğer aynı yazıdan birden fazla var ise hepsini değiştirir...

Neyse umarım anlamıştırsın...

monika · September 1, 2010

anladim cok saol kardesim sayende guzel bi program yapacam

Sign In

Dosya Olusturma Hakkinda

Recommended Posts

monika

Link to comment

Share on other sites

sk8er_boi

Link to comment

Share on other sites

blue_life

Link to comment

Share on other sites

monika

Link to comment

Share on other sites

blue_life

Link to comment

Share on other sites

monika

Link to comment

Share on other sites

blue_life

Link to comment

Share on other sites

monika

Link to comment

Share on other sites

blue_life

Link to comment

Share on other sites

monika

Link to comment

Share on other sites

Archived

Recently Browsing 0 members

Browse

Activity