731106 发表于 2010-9-20 22:33:11

[已解决]如何从txt文件导入数据

本帖最后由 731106 于 2011-3-31 12:50 编辑

如何把txt文件中的数据导入到GUI的文本框中,是通过浏览导入(看图):

minghui 发表于 2010-9-20 23:02:57

本帖最后由 minghui 于 2010-9-20 23:04 编辑

#include <GUIConstants.au3>
;#include <ButtonConstants.au3>
;#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiEdit.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 288, 433, 427, 173)
$Edit1 = GUICtrlCreateEdit("", 152, 8, 129, 393)
GUICtrlSetData(-1, "")
$Label1 = GUICtrlCreateLabel("请导入代码:", 52, 16, 88, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("浏   览", 56, 48, 65, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

                Case $Button1
                        $message = "浏览文件"
                        $MyDocsFolder = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
                        $sFile = FileOpenDialog($message, $MyDocsFolder, "文本文件 (*.txt)", 1 + 1)
                        _GUICtrlEdit_SetText($Edit1, FileRead($sFile))
        EndSwitch
WEnd

是不是这样呢

liufenglg 发表于 2010-9-21 17:58:47

2楼很强....

单毛线 发表于 2012-12-15 13:54:23

好的代码需要学习,谢谢
页: [1]
查看完整版本: [已解决]如何从txt文件导入数据