魔导 发表于 2012-4-7 16:23:29

如何 获取多个 Input 输入中的 信息 （Input由FOR创建）[已解决]

本帖最后由 魔导 于 2012-4-7 16:43 编辑

小弟想要把 FOR 创建的Input 中的数字写进*.ini文件里去，
请各位前辈指点指点......感激不尽{:1_576:}
试过多次之后要么出错要么就之读得最后一个Input 的数字， 写 *.in i的时候都写成一样了
代码是这样的
Local $wuping = ['01','sad','qw11','00','15tr8','1155','fgh545','125tt','1225y','yu45','125tty','125yy5','1258yyu','236ty','1255yty','125rt','fg125']
Local $var = IniReadSection("F:\测试\价目.ini", "2012-04-07")
GUICreate("调控器",300,600)
$input = GUICtrlCreateInput("",0,2,80,15)
$mi = GUICtrlRead($input)
$button = GUICtrlCreateButton("查询",120,0,30,20)
$button1 = GUICtrlCreateButton("写入",80,0,30,20)
For $i = 0 to 16
GUICtrlCreateLabel($wuping[$i],0,30+30*$i)
GUICtrlCreateInput("",80,30+30*$i,30,15)
Next
GUISetState()
While 1
        $msg = GUIGetMsg()
        Switch $msg
                Case -3
                        Exit
                Case $button
                        For $i = 0 To 16
                        GUICtrlCreateLabel($var[$i],130,30*$i)
                Next
        Case $button1
;~ 这段该怎么写？？
        EndSwitch

WEnd

魔导 发表于 2012-4-7 16:45:57

不好意思给各位添麻烦啦。{:face (460):}
在论坛找到P版的码了
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 261, 800, 192, 124)
Local $Input, $aInputs, $str
For $i = 0 To UBound($Input) - 1
      $Input[$i] = GUICtrlCreateInput("", 8, 8 + $i * 32, 121, 21)
                $aInputs[$i] = GUICtrlRead($Input[$i])
Next
$Button1 = GUICtrlCreateButton("保存", 152, 16, 75, 25)
$Button2 = GUICtrlCreateButton("显示", 152, 56, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
      $nMsg = GUIGetMsg()
      Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        For $i = 0 To UBound($Input) - 1
                                      $aInputs[$i] = GUICtrlRead($Input[$i])
                        Next
                        MsgBox(0, 0, "保存完成")
                Case $Button2
                        $str = ""
                        For $i = 0 To UBound($Input) - 1
                              $str &= "Input" & $i + 1 & "的内容为:" & $aInputs[$i] & @CRLF
                        Next
                        MsgBox(0, 0, $str)
      EndSwitch
WEnd

user3000 发表于 2012-4-7 16:49:21

哈哈, 我早几月时跟你一样, 对批量处理控件时的数组运用是迷迷糊糊的.
多自己动手, 多思考, 多参考, 就会越来越熟练了!

魔导 发表于 2012-4-7 16:54:13

哈哈, 我早几月时跟你一样, 对批量处理控件时的数组运用是迷迷糊糊的.
多自己动手, 多思考, 多参考, 就会越 ...
user3000 发表于 2012-4-7 16:49 http://www.autoitx.com/images/common/back.gif


    谢谢前辈指点，小弟确实很模糊。有时弄得头都晕啦还想不出来，结果睡一觉起来有想出来了。
呵呵，对自己的思路都有些怀疑，它是不是在玩我{:1_296:}

xms77 发表于 2012-4-7 21:06:10

恭喜楼主自己解决问题！

afan 发表于 2012-4-7 23:40:52

肥猫还需多加练习~ 尤其 Gui 的布局（控件大小及坐标）需加强~

pp648852 发表于 2012-4-8 06:39:34

GUI画得不是很好看，改良改良吧

魔导 发表于 2012-4-8 14:06:21

回复 5# xms77


    谢谢前辈支持，其实是论坛里面有大大们的码{:face (303):}

魔导 发表于 2012-4-8 14:07:53

肥猫还需多加练习~ 尤其 Gui 的布局（控件大小及坐标）需加强~
afan 发表于 2012-4-7 23:40 http://www.autoitx.com/images/common/back.gif


    谢谢A大指教，小弟也觉得确实是太衰了。GUI开起来后很对不起观众....{:face (394):}

魔导 发表于 2012-4-8 14:08:38

回复 7# pp648852


    谢谢前辈，正在正在努力中{:face (270):}

bnuzjm 发表于 2013-7-29 11:32:42

哈哈刚好要用到这段代码，谢谢啦
页: [1]
查看完整版本: 如何 获取多个 Input 输入中的 信息 （Input由FOR创建）[已解决]