|
|
本帖最后由 anythinging 于 2020-12-13 14:42 编辑
终于参照版主大人的几个教程实现了ini文件内容的读取，但遇到了问题，就是左键点击1，2列的时候，位置和内容保存都存在问题，请各位大神指点！谢谢！感谢chzj589的指点
终于可以进入下一个阶段，保存表格内容至ini文件了。求例子经版主指点，已经改进ini格式，代码随同更新2020-11-28 21:43
感谢版主和chzj589的指点，总算实现了大部份功能。
完成如下：
1、实现了对指定指定字段跳过读取、保存内容。
2、解决了序号跳过字段后左侧序号缺失的问题
3、增加了新增条目
遇到的问题：
1、原本是保存的时候调用刷新，但发现有点小问题，没解决就单独做了个刷新，请问这样刷新对吗？（遇到的问题是如果下拉列表没确认修改完成，保存和刷新的时候那个下拉列表还一直存在）
2、借用了A版大人的回车功能，直接闪退，解决不了
3、可能用户名的修改处，使用_GUICtrlEdit_Create 可能更适合，版主能否给个_GUICtrlEdit_Create 和input的例子。
- #include <GUIListView.au3>
- #include <GuiMenu.au3>
- #include <MsgBoxConstants.au3>
- #include <WindowsConstants.au3>
- #include <GuiListView.au3>
- #include <GuiImageList.au3>
- #include <GUIConstantsEx.au3>
- #include <StaticConstants.au3>
- #include <ButtonConstants.au3>
- #include <ListViewConstants.au3>
- Opt('GUIOnEventMode', 1)
- Global $hGui, $hListView, $hMenu, $aItem, $iCombo
- Global $iListView
- Global $sDefCombo1 = '111|222', $sDefCombo2 = 'AAA|ZZZ' ,$sDefCombo3 = '12345|00000'
- $dir = @ScriptDir&"\test1.ini"
- Global $num
- Dim $hGui = GUICreate('')
- GUISetOnEvent(-3, '_Exit')
- $Save=GUICtrlCreateButton('保 存',200,300,80,30)
- GUICtrlSetOnEvent($Save, "_save")
- $Add=GUICtrlCreateButton('添 加',100,300,80,30)
- GUICtrlSetOnEvent($Add, "_Add")
- $Ref=GUICtrlCreateButton('刷 新',10,300,80,30)
- GUICtrlSetOnEvent($Ref, "_Ref")
- _Read()
- Func _Read() ;读取ini内容，创建List
- Dim $iCombo = GUICtrlCreateCombo('', -100, -100)
- Global $iListView = GUICtrlCreateListView('序号|用户名称|密码|性别|修改密码|状态', 2, 2, 386, 258)
- Dim $hListView = GUICtrlGetHandle(-1)
- _GUICtrlListView_SetExtendedListViewStyle($iListView, $LVS_EX_GRIDLINES + $LVS_EX_FULLROWSELECT)
- Global $zd = IniReadSectionNames($dir) ;获取字段数量——读取ini文件中的字段，并返回1维数组变量，$zd[0]是字段总数
- If Not @error Then
- $skipnum = 0 ;跳过的字段数
- For $i = 1 to $zd[0] ;从1开始一直到$zd[0]（总数），读取出每个字段名
- If $zd[$i] <> 'set' and $zd[$i] <> 'admin' Then ;此处为不创建字段信息为set的内容
- $num=$i-$skipnum
- ;MsgBox(262144,'正常，序号为',$num)
- Else
- $skipnum = $skipnum +1
- ;MsgBox(262144,'跳过的数量为',$skipnum)
- EndIf
- If $zd[$i] <> 'set' and $zd[$i] <> 'admin' Then ;此处为不创建字段信息为set的内容
- ;读取用户名
- ;$Lable=IniRead($dir,$zd[$i],'UserName','Error')
- $Lable=$zd[$i]
- ;读取创建密码
- $Password=IniRead($dir,$zd[$i],'PassWord','Error')
- ;读取性别
- $UserMode=IniRead($dir,$zd[$i],'UserMode','Error')
- If $UserMode = '1' Then
- $Mode='男'
- Else
- $Mode='女'
- EndIf
- $PwMode=IniRead($dir,$zd[$i],'PwMode','Error')
- If $PwMode = '1' Then;
- $PW='允许'
- Else
- $PW='禁止'
- EndIf
- ;自动创建
- GUICtrlCreateListViewItem($num&'|'&$Lable&'|'&$Password&'|'&$Mode&'|'&$PW&'|保留', $iListView)
- EndIf
- Next
- GUISetState()
- Local $id1 = GUICtrlCreateDummy()
- GUICtrlSetOnEvent(-1, '__UdpData')
- Local $aAccelKeys[1][2] = [['{Enter}', $id1]]
- GUISetAccelerators($aAccelKeys)
- GUIRegisterMsg(0x004E, '_WM_NOTIFY') ;$WM_NOTIFY = 0x004E
- Else
- MsgBox(262144,'','配置文件读取错误',1)
- Exit
- EndIf
- EndFunc
- Func _Add() ;添加新用户
- $num=$num+1
- GUICtrlCreateListViewItem('|新用户|123456|男|允许|保留', $iListView)
- EndFunc
- Func _save() ;保存至INI文件
- ;删除 除admin set 的所有字段
- $zd = IniReadSectionNames($dir) ;获取字段数量——读取ini文件中的字段，并返回1维数组变量，$zd[0]是字段总数
- For $i = 1 to $zd[0] ;从1开始一直到$zd[0]，读取出每个字段 的关键字和值
- If $zd[$i] <> 'set' and $zd[$i] <> 'admin' Then ;此处为不创建字段信息为set的内容
- IniDelete($dir,$zd[$i])
- EndIf
- Next
- ;MsgBox(262144,'','检查是否清理完成非admin和set')
- ;获取表格总行数
- Local $lineAll = _GUICtrlListView_GetItemCount($iListView);取得数组的行数
- For $ID = 0 To $lineAll - 1
- $row = _GUICtrlListView_GetItemTextArray($iListview, $ID) ;获取全部文本和列数，从第一列开始
- $UserName=$row[2]
- $Password=$row[3]
- $UserMode=$row[4]
- $PwMode =$row[5]
- $DEL =$row[6]
- If $DEL = '保留' Then
- ;如果为保留，则写入ini
- If $UserName <> '' Then IniWrite($dir, $UserName,'PassWord',$Password)
- If $UserMode = '男' Then
- IniWrite($dir, $UserName,'UserMode',1)
- Else
- IniWrite($dir, $UserName,'UserMode',0)
- EndIf
- If $PwMode = '允许' Then
- IniWrite($dir, $UserName,'PwMode',1)
- Else
- IniWrite($dir, $UserName,'PwMode',0)
- EndIf
- EndIf
- Next
- ;~ _Ref() ;刷新
- EndFunc
- Func _Ref() ;刷新
- GUICtrlDelete($iListView)
- _Read()
- EndFunc
- Func __UdpData()
- ;~
- If Not IsArray($aItem) Then Return
- Local $sRd = GUICtrlRead($aItem[2]), $sData = ''
- _GUICtrlListView_SetItemText($hListView, $aItem[0], $sRd, $aItem[1])
- GUICtrlSetPos($aItem[2], -1000, -100)
- Dim $aItem = 0
- EndFunc ;==>__UdpData
- While 1
- Sleep(1000)
- WEnd
- Func _WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
- #forceref $hWnd, $iMsg, $iwParam
- Local $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
- Switch DllStructGetData($tNMHDR, 'hWndFrom')
- Case $hListView
- Switch DllStructGetData($tNMHDR, 'Code')
- Case -2 ;$NM_CLICK
- Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
- Local $index = DllStructGetData($tInfo, 'Index')
- Local $SubItem = DllStructGetData($tInfo, 'SubItem')
- If IsArray($aItem) Then
- _GUICtrlListView_SetItemText($hListView, $aItem[0], GUICtrlRead($iCombo), $aItem[1])
- GUICtrlSetPos($iCombo, -1000, -100)
- Dim $aItem = 0
- EndIf
- ;弹出菜单
- If $index < 0 Then Return 'GUI_RUNDEFMSG'
- If $SubItem = 3 Then
- Local $context = GUICtrlCreateContextMenu(GUICtrlCreateDummy())
- Dim $hMenu = GUICtrlGetHandle($context)
- GUICtrlCreateMenuItem('男',$context)
- GUICtrlCreateMenuItem('女',$context)
- Local $iid = _GUICtrlMenu_TrackPopupMenu($hMenu, $hGui, -1, -1, 1, 1, 2)
- If $iid Then _GUICtrlListView_SetItemText($hListView, $index, _GUICtrlMenu_GetItemText($hMenu, $iid, False), 3)
- EndIf
- If $SubItem = 4 Then
- Local $context = GUICtrlCreateContextMenu(GUICtrlCreateDummy())
- Dim $hMenu = GUICtrlGetHandle($context)
- GUICtrlCreateMenuItem('允许',$context)
- GUICtrlCreateMenuItem('禁止',$context)
- Local $iid = _GUICtrlMenu_TrackPopupMenu($hMenu, $hGui, -1, -1, 1, 1, 2)
- If $iid Then _GUICtrlListView_SetItemText($hListView, $index, _GUICtrlMenu_GetItemText($hMenu, $iid, False), 4)
- EndIf
- If $SubItem = 5 Then
- Local $sName = _GUICtrlListView_GetItemText($hListView, $Index)
- If MsgBox(48 + 4, '确认删除', '是否删除用户 "' & $sName & '" ?', 0, $hGUI) = 6 Then
- _GUICtrlListView_DeleteItem($hListView, $Index)
- IniDelete($dir, $sName)
- EndIf
- EndIf
- ;修改框
- If Not StringRegExp($SubItem, "^(1|2)[ DISCUZ_CODE_0 ]quot;) Then Return 'GUI_RUNDEFMSG'
- Local $aRect = _GUICtrlListView_GetSubItemRect($hListView, $index, $SubItem)
- Dim $aItem[2] = [$index, $SubItem]
- Local $sDef = $sDefCombo1
- If $SubItem = 1 Then $sDef = $sDefCombo2
- Local $sData = _GUICtrlListView_GetItemText($hListView, $index, $SubItem)
- ;GUICtrlSetPos($iCombo, $aRect[0] + 4, $aRect[1] + 32, $aRect[2] - $aRect[0])
- GUICtrlSetPos($iCombo, $aRect[0] + 4, $aRect[1] + 4, $aRect[2] - $aRect[0])
- GUICtrlSetData($iCombo, '|' & $sData & '|' & $sDef, $sData)
- GUICtrlSetState($iCombo, 256)
- If $SubItem = 2 Then $sDef = $sDefCombo3
- Local $sData = _GUICtrlListView_GetItemText($hListView, $index, $SubItem)
- ;GUICtrlSetPos($iCombo, $aRect[0] + 4, $aRect[1] + 32, $aRect[2] - $aRect[0])
- GUICtrlSetPos($iCombo, $aRect[0] + 4, $aRect[1] + 4, $aRect[2] - $aRect[0])
- GUICtrlSetData($iCombo, '|' & $sData & '|' & $sDef, $sData)
- GUICtrlSetState($iCombo, 256)
- Case -5 ;$NM_CLICK
- Case $NM_DBLCLK ; 双击
- EndSwitch
- EndSwitch
- EndFunc ;==>_WM_NOTIFY
- Func _Exit()
- Exit
- EndFunc ;==>_Exit
|
|
|小黑屋|手机版|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
IP卡
狗仔卡
发表于 2020-11-27 21:08:29
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
发表于 2020-12-7 22:14:13
楼主