[已解决]如何读取INI内容到控件，双击则运行对应网站

leibin0121 · 发表于 2014-12-16 14:23:22

本帖最后由 leibin0121 于 2014-12-17 12:24 编辑

#include <ListViewConstants.au3>
Global Const $qIni = @ScriptDir&"\config.ini"
$Form1 = GUICreate("Form1", 623, 449, 192, 124)
$ListView1 = GUICtrlCreateListView("网站|地址", 8, 8, 537, 377)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 300)
$sec = IniReadSection($qIni,"data")
Global $ListView1_[$sec[0][0]]
For $i = 1 To $sec[0][0]
        $ListView1_[$i-1] = GUICtrlCreateListViewItem($sec[$i][0]&"|"&$sec[$i][1],$ListView1)
Next
GUISetState()
 
Do
Until GUIGetMsg()=-3

config.ini内容如下：

[data]
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com
网址=www.baidu.com

如何达到读取INI内容到控件，双击则运行对应网站？求高手解答，谢谢！

非常感谢user3000的热心帮助:

#include <ListViewConstants.au3>
Global Const $qIni = @ScriptDir&"\config.ini"
$Form1 = GUICreate("Form1", 623, 449, 192, 124)
$ListView1 = GUICtrlCreateListView("网站|地址", 8, 8, 537, 377)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 300)
$sec = IniReadSection($qIni,"data")
If @error Then Local $sec[3][2] = [[2], ['web1', 'www.baidu.com'], ['web2', 'www.qq.com']]
Global $lv_item[$sec[0][0]]
For $i = 1 To $sec[0][0]
        $lv_item[$i-1] = GUICtrlCreateListViewItem($sec[$i][0]&"|"&$sec[$i][1],$ListView1)
Next
GUISetState()


Local $nMsg = 0
Do


        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $lv_item[0] To $lv_item[UBound($lv_item)-1]
                        Local $web = $sec[$nMsg-$lv_item[0]+1][1]
                        ;Local $web = StringRegExpReplace(GUICtrlRead($nMsg), '^[^\|]+.+\|([^\|]+)\|?$', '\1')
                        ;If Not @extended Then ContinueLoop
                        ShellExecute(@ProgramFilesDir & '\Internet Explorer\iexplore.exe', $web)
        EndSwitch
Until GUIGetMsg()=-3

netegg · 发表于 2014-12-16 15:20:30

这名字貌似多了个n

leibin0121 · 发表于 2014-12-16 16:29:37

回复 2# netegg

蛋蛋，求解答啊

mshuking · 发表于 2014-12-16 17:07:16

网站ini那么多都一样啊起码要不一样吧
[data]
1=www.baidu.com
2=www.baidu.com
3=www.baidu.com
.
.
.
.
.
.
31=www.baidu.com
.
.
.
.
.
.

austere · 发表于 2014-12-16 17:19:42

你都中级会员了，还问这个问题啊~~~

leibin0121 · 发表于 2014-12-16 17:56:05

回复 5# austere

惭愧

user3000 · 发表于 2014-12-16 19:04:27

网址已经存在数组里了,是现成的.直接打开就是了.

#include <ListViewConstants.au3>
Global Const $qIni = @ScriptDir&"\config.ini"
$Form1 = GUICreate("Form1", 623, 449, 192, 124)
$ListView1 = GUICtrlCreateListView("网站|地址", 8, 8, 537, 377)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 300)
$sec = IniReadSection($qIni,"data")
If @error Then Local $sec[3][2] = [[2], ['web1', 'www.baidu.com'], ['web2', 'www.qq.com']]
Global $lv_item[$sec[0][0]]
For $i = 1 To $sec[0][0]
        $lv_item[$i-1] = GUICtrlCreateListViewItem($sec[$i][0]&"|"&$sec[$i][1],$ListView1)
Next
GUISetState()
Local $nMsg = 0
Do
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $lv_item[0] To $lv_item[UBound($lv_item)-1]
                        Local $web = $sec[$nMsg-$lv_item[0]+1][1]
                        ;Local $web = StringRegExpReplace(GUICtrlRead($nMsg), '^[^\|]+.+\|([^\|]+)\|?$', '\1')
                        ;If Not @extended Then ContinueLoop
                        ShellExecute(@ProgramFilesDir & '\Internet Explorer\iexplore.exe', $web)
        EndSwitch
Until $nMs

austere · 发表于 2014-12-17 08:05:38

回复 7# user3000

学习了~~ case还可以这样用啊~ 我以为只能for呢~~

leibin0121 · 发表于 2014-12-17 12:25:44

回复 7# user3000

非常感谢你的帮助，问题解决，谢谢！

deaph · 发表于 2014-12-17 14:33:40

感谢分享，学习了！

		自动登录	找回密码
密码			加入

[GUI管理] [已解决]如何读取INI内容到控件，双击则运行对应网站

相关帖子