[已解决]求助 數據 存檔 讀檔的問題 (能自定路徑 檔名).........

tcpuuu

按1下存檔 寫入.INI檔
可以跳出 選擇 存放路徑 自訂檔名
讀檔 可以選擇 讀取那個檔
這該如何做?

GUICreate('EDIE',400,100)       
$A1 = GUICtrlCreateInput("12345",5,5,160,23)
$A2 = GUICtrlCreateInput("123",5,30,50,23)
For $i = $A1 to $A2
GUICtrlSetFont($i,12)
Next

Global $1But= GUICtrlCreateButton("存 檔",200,4,38,26)
Global $2But= GUICtrlCreateButton("讀 檔",200,30,38,26)

GUISetState()
While 1

        $msg = GUIGetMsg()
        Switch $msg
                Case -3
                        Exit
Case $1But
IniWrite("C:\FITX.ini","AAA1","$A1",GUICtrlRead($A1))
IniWrite("C:\FITX.ini","AAA2","$A2",GUICtrlRead($A2))

Case $2But
GUICtrlSetData($A1,IniRead("C:\FITX.ini","AAA1","$A1",""))
GUICtrlSetData($A1,IniRead("C:\FITX.ini","AAA2","$A2",""))

EndSwitch
WEnd

user3000

又是你啊, 兄弟??
FileOpenDialog, FileSaveDialog, FileSelectFolder
请你用心研究下? 总有个会你满意吧?

tcpuuu

又是你啊, 兄弟??
FileOpenDialog, FileSaveDialog, FileSelectFolder
请你用心研究下? 总有个会你满意吧 ...
user3000 发表于 2012-1-24 22:46

   拜託你幫我 編1個好嗎? 簡單例子就好

lpxx

又是你啊, 兄弟??
FileOpenDialog, FileSaveDialog, FileSelectFolder
请你用心研究下? 总有个会你满意吧 ...
user3000 发表于 2012-1-24 22:46

是啊，这样才是学习。

tcpuuu

我試了 好久 都不行
拜託各位 高手 幫幫忙

xxsshh

学习下！！

tcpuuu

;標題;            ;起使目錄;             ;文件類型;                               ;選項    ;預設檔名 ; 窗口句柄  窗口句柄         [可选参数] 指定这个对话框的父窗口的窗口句柄.
FileSaveDialog("儲存INI檔為",@MyDocumentsDir & "\FITX" & "\","ini檔案 (*.ini)",2,$tm & ".ini",0x00420294)
-----------------------------------------------------------------------------
显示一个文件打开对话框.  FileSaveDialog

這個对话框打開 都 顯示在 螢幕的最左上角

我想讓它顯示在 窗口的最左上角 該如何設置  ?    父窗口的窗口句柄 是什麼?

半芯竹

$mygui=GUICreate('EDIE',400,100,0,0)       
$A1 = GUICtrlCreateInput("12345",5,5,160,23)
$A2 = GUICtrlCreateInput("123",5,30,50,23)
For $i = $A1 to $A2
GUICtrlSetFont($i,12)
Next

Global $1But= GUICtrlCreateButton("存 檔",200,4,38,26)
Global $2But= GUICtrlCreateButton("讀 檔",200,30,38,26)

GUISetState()
While 1

        $msg = GUIGetMsg()
        Switch $msg
                Case -3
                        Exit
                                        Case $1But
$data1=GUICtrlRead ($A1)
$var1 = FileSaveDialog( "输入一个文件名", @DesktopDir, "配置文件 (*.ini)", 2+16,'config.ini',$mygui)
If Not @error Then 
IniWrite ( $var1, "", "",$data1)
EndIf
Case $2But
$var2 = FileOpenDialog('请选择一个INI文件' , @DesktopDir, "配置文件 (*.ini)", 1,'config.ini',$mygui )
If not @error Then 
$data2=IniRead($var2,'','','')
GUICtrlSetData($a2,$data2)
EndIf
EndSwitch
WEnd

tcpuuu

FileSaveDialog( "输入一个文件名", @DesktopDir, "配置文件 (*.ini)", 2+16,'file.ini')
FileOpenDialog('请选择一个INI文件' , @DesktopDir, "配置文件 (*.ini)", 1 )
---------------------------------------------------------------------------------------------
以上這兩個 開啟 選擇檔案 對話框  都開在 螢幕左上角
如果要開在窗口  開在父窗口的左上角 是加什麼參數?

showshow

回复 9# tcpuuu

FileOpenDialog ( "标题", "起始目录", "文件类型" [, 选项 [, "默认文件名" [, 窗口句柄]]] )

最后一个参数就是GUICreate的句柄！

kvisof

露个面，学习，学习！

xms77

回复 3# tcpuuu
不会可以学，简单的功能看帮助就行了，况且帮助里面还有示例代码，只有自己尝试的才是学到的，不要做伸手党！

kk_lee69

我是比較建議......樓主 說 弄很久都弄不好.....那沒關係.....你總有寫一半的程式吧.....

把程式 PO 出來.....要回答的人 也才比較清楚.....您努力的過程....還有到底是哪個點的問題.....這樣你學到的東西 會更多....