找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › [已解决]关键字搜索后的字符赋值到iniread函数中无效， ...
返回列表 发新帖
查看: 5669|回复: 14

[AU3基础] [已解决]关键字搜索后的字符赋值到iniread函数中无效，谢谢指教！！

 火 [复制链接]
laomeng
发表于 2014-12-13 23:02:05 | 显示全部楼层 |阅读模式
本帖最后由 laomeng 于 2014-12-14 00:10 编辑

找到论坛上一位大侠的帖子，查找关键字的，觉得很好。但是 在如下代码中查找出来的值赋值到iniread中 不能读值。请兄弟们给看下。直接使用input的值是可以的!

  2. #include <WindowsConstants.au3>
  3. #include <Array.au3>
  4. #include <WinAPI.au3>
  5. #include <GuiListBox.au3>

  7. Global $X = -1
  8. $Text = FileRead(@ScriptDir&"\关键词.txt") ;读取所有关键词
  9. $Form1 = GUICreate("输入框搜索", 466, 343, 192, 124)
  10. $Button1 = GUICtrlCreateButton("读取", 272, 256, 75, 25, 0)
  11. $Input1 = GUICtrlCreateInput("", 8, 16, 185, 21)
  12. $list = GUICtrlCreateList("", 8, 16 + 21, 185, 140, 0x1000)
  13. GUICtrlSetState(-1, $GUI_HIDE)
  14. $wProcNew = DllCallbackRegister("_MyInputProc", "ptr", "hwnd;uint;long;ptr")
  15. $wProcOld = _WinAPI_SetWindowLong(GUICtrlGetHandle($Input1), -4, DllCallbackGetPtr($wProcNew))
  16. GUISetState(@SW_SHOW)
  17. Local $ini=".\set.ini"

  19. While 1
  20.         $nMsg = GUIGetMsg()
  21.         Switch $nMsg
  22.                 Case $GUI_EVENT_CLOSE
  23.                         GUIDelete($Form1)
  24.                         Exit
  25.                 Case $list ;得到$list点击消息
  26.                         $sel = _GUICtrlListBox_GetCurSel($list)
  27.                         GUICtrlSetData($Input1,_GUICtrlListBox_GetText($list,$sel))
  28.                 Case $Button1
  29.                         $info = GUICtrlRead($Input1)
  30.                         MsgBox(0,"搜索结果",$info)
  31.                         $res = IniRead($ini,$info,"工资","")
  32.                         MsgBox(0,"工资",$res)
  33.         EndSwitch

  35. WEnd

  37. Func _MyInputProc($hWnd, $uiMsg, $wParam, $lParam)
  38.         Switch $uiMsg
  39.                 Case $WM_KEYUP
  40.                         Switch $wParam
  41.                                 Case 0x28 ;$VK_DOWN
  42.                                         $X += 1
  43.                                         _GUICtrlListBox_ClickItem($list, $X)
  44.                                         If $X = 9 Then $X = -1
  45.                                 Case 0x26 ;$VK_UP
  46.                                         $X -= 1
  47.                                         _GUICtrlListBox_ClickItem($list, $X)
  48.                                         If $X = 0 Then $X = 10
  49.                                 Case Else
  50.                                         _GUICtrlListBox_ResetContent($list)
  51.                                         $iText = GUICtrlRead($Input1)
  52.                                         If $iText = "" Then
  53.                                                 GUICtrlSetState($list, $GUI_HIDE)
  54.                                                 Return 1
  55.                                         EndIf
  56.                                         $sre = StringRegExp($Text, $iText & '.*', 3)
  57.                                         If @error Then
  58.                                                 GUICtrlSetState($list, $GUI_HIDE)
  59.                                                 Return 1
  60.                                         EndIf
  61.                                         If UBound($sre) > 10 Then ReDim $sre[10] ;最大显示10个
  62.                                          _GUICtrlListBox_BeginUpdate($list)
  63.                                         GUICtrlSetData($list, _ArrayToString($sre))
  64.                                         _GUICtrlListBox_EndUpdate($list)
  65.                                         GUICtrlSetState($list, $GUI_SHOW)
  66.                         EndSwitch
  67.         EndSwitch
  68.         ;向默认窗口进程传递未处理过的消息
  69.         Return _WinAPI_CallWindowProc($wProcOld, $hWnd, $uiMsg, $wParam, $lParam)
  70. EndFunc   ;==>_MyInputProc
复制代码
txt中的数据:

  2. 张三
  3. 张关
  4. 李四
  5. 王无
  6. 李逵
复制代码
set.ini中的数据

  2. [张三]
  3. 工资=1000
  4. [李四]
  5. 工资=2000
  6. [王无]
  7. 工资=4000
  8. [李逵]
  9. 工资=8000
复制代码
include, 关键词, 关键字

相关帖子
回复

举报

user3000
发表于 2014-12-13 23:26:54 | 显示全部楼层
本帖最后由 user3000 于 2014-12-13 23:40 编辑

回复 1# laomeng
不好意思,没仔细看.
解决方法就是去掉那个"隐形"字符.
  1. Case $list ;得到$list点击消息
  2.                         $sel = _GUICtrlListBox_GetCurSel($list)
  3.                         GUICtrlSetData($Input1,StringTrimRight(_GUICtrlListBox_GetText($list,$sel), 1))
复制代码
回复

举报

laomeng
 楼主| 发表于 2014-12-13 23:38:11 | 显示全部楼层
回复 2# user3000


  他这个只支持 首个 汉字
回复

举报

user3000
发表于 2014-12-13 23:58:24 | 显示全部楼层
回复 3# laomeng


    2楼的方法不适用多关键字的情况,有时会误删关键字.所以还是这个适用.
  1. GUICtrlSetData($Input1,StringRegExpReplace($str, '\v', ''))
复制代码
回复

举报

laomeng
 楼主| 发表于 2014-12-14 00:09:59 | 显示全部楼层
回复 4# user3000


    多谢、!!!!
回复

举报

laomeng
 楼主| 发表于 2014-12-14 00:13:52 | 显示全部楼层
回复 4# user3000


    如果 能实现拼音首字母就能搜索 就好了 、、
回复

举报

user3000
发表于 2014-12-14 00:20:14 | 显示全部楼层
回复 6# laomeng

论坛有汉字转拼音的UDF吧. 自己组合一下就有了.
回复

举报

laomeng
 楼主| 发表于 2014-12-14 00:26:11 | 显示全部楼层
回复 7# user3000


    是这个吗 http://www.autoitx.com/forum.php ... hlight=%C6%B4%D2%F4

他说返回为空的问题 需要注释 的那一段 。 在win7下面 注释就返回空。 XP下 不注释就返回空.
回复

举报

user3000
发表于 2014-12-14 00:42:57 | 显示全部楼层
回复 8# laomeng

你只需要首字母就够了.所以下面这帖更合适.]
http://www.autoitx.com/forum.php ... =%CA%D7%D7%D6%C4%B8
回复

举报

laomeng
 楼主| 发表于 2014-12-14 01:07:58 | 显示全部楼层
回复 9# user3000


   这个怎么用啊   是不是 要写个中英对照啊  


能 在我上面例子 添加吗   请指点  谢！！！
回复

举报

user3000
发表于 2014-12-14 01:26:02 | 显示全部楼层
回复 10# laomeng
  1. #include <WindowsConstants.au3>
  2. #include <Array.au3>
  3. #include <WinAPI.au3>
  4. #include <GuiListBox.au3>
  5. Global $ini = ".\set.ini"
  6. Global $X = -1
  7. Global $sText = FileRead(@ScriptDir & "\key.txt") ;读取所有关键词
  8. $Form1 = GUICreate("输入框搜索", 466, 343, 192, 124)
  9. $Button1 = GUICtrlCreateButton("读取", 272, 256, 75, 25, 0)
  10. $Input1 = GUICtrlCreateInput("", 8, 16, 185, 21)
  11. $list = GUICtrlCreateList("", 8, 16 + 21, 185, 140, 0x1000)
  12. GUICtrlSetState(-1, $GUI_HIDE)
  13. $wProcNew = DllCallbackRegister("_MyInputProc", "ptr", "hwnd;uint;long;ptr")
  14. $wProcOld = _WinAPI_SetWindowLong(GUICtrlGetHandle($Input1), -4, DllCallbackGetPtr($wProcNew))
  15. GUISetState(@SW_SHOW)
  16. While 1
  17.         $nMsg = GUIGetMsg()
  18.         Switch $nMsg
  19.                 Case $GUI_EVENT_CLOSE
  20.                         GUIDelete($Form1)
  21.                         Exit
  22.                 Case $list ;得到$list点击消息
  23.                         $sel = _GUICtrlListBox_GetCurSel($list)
  24.                         Local $str = _GUICtrlListBox_GetText($list, $sel)
  25.                         ConsoleWrite($str)
  26.                         GUICtrlSetData($Input1, StringRegExpReplace($str, '\v', ''))
  27.                 Case $Button1
  28.                         $info = GUICtrlRead($Input1)
  29.                         ;MsgBox(0, "搜索结果", $info)
  30.                         $res = IniRead($ini, $info, "工资", "")
  31.                         MsgBox(0, $info, $res)
  32.         EndSwitch

  34. WEnd

  36. Func _MyInputProc($hWnd, $uiMsg, $wParam, $lParam)
  37.         Switch $uiMsg
  38.                 Case $WM_KEYUP
  39.                         Switch $wParam
  40.                                 Case 0x28 ;$VK_DOWN
  41.                                         $X += 1
  42.                                         _GUICtrlListBox_ClickItem($list, $X)
  43.                                         If $X = 9 Then $X = -1
  44.                                 Case 0x26 ;$VK_UP
  45.                                         $X -= 1
  46.                                         _GUICtrlListBox_ClickItem($list, $X)
  47.                                         If $X = 0 Then $X = 10
  48.                                 Case Else
  49.                                         _GUICtrlListBox_ResetContent($list)
  50.                                         $sInput= GUICtrlRead($Input1)
  51.                                         If $sInput= "" Then
  52.                                                 GUICtrlSetState($list, $GUI_HIDE)
  53.                                                 Return 1
  54.                                         EndIf
  55.                                         _set_data($sInput)
  56.                                        
  57.                         EndSwitch
  58.         EndSwitch
  59.         ;向默认窗口进程传递未处理过的消息
  60.         Return _WinAPI_CallWindowProc($wProcOld, $hWnd, $uiMsg, $wParam, $lParam)
  61. EndFunc   ;==>_MyInputProc

  63. Func _set_data($sKey)
  64.         $sre = StringRegExp($sText, '.+', 3)
  65.         If @error Then Return GUICtrlSetState($list, $GUI_HIDE)
  66.         Local $str = '', $C
  67.         For $i = 0 To UBound($sre) - 1
  68.                 $C = StringLeft(StringStripWS($sre[$i], 1 + 2), 1)
  69.                 If _C($C) = $sKey Then $str &= $sre[$i] & '|'
  70.         Next
  71.         $str = StringRegExpReplace($str, '\|, '')
  72.         _GUICtrlListBox_BeginUpdate($list)
  73.         GUICtrlSetData($list, $str)
  74.         _GUICtrlListBox_EndUpdate($list)
  75.         GUICtrlSetState($list, $GUI_SHOW)
  76. EndFunc   ;==>_set_data

  78. Func _C($s, $f = 0, $e = 26) ;改进的中值法 (by 蜘蛛抱蛋)
  79.         If StringRegExp($s, '^[A-Za-Z]) Then Return $s
  80.         Local Const $key[27] = ['吖', '八', '擦', '耷', '俄', '发', '噶', '哈', '丌', '丌', '卡', '拉', '马', '拿', '哦', '趴', '七', '然', '撒', '他', '挖', '挖', '挖', '西', '丫', '匝', '匝']
  81.         Local $mid = Int(($e - $f) / 2) + $f
  82.         If $mid = $f Then Return Chr(97 + $f)
  83.         If StringCompare($s, $key[$mid]) = 0 Then
  84.                 Return Chr(97 + $mid)
  85.         ElseIf StringCompare($s, $key[$mid]) > 0 Then
  86.                 Return _C($s, $mid, $e)
  87.         ElseIf StringCompare($s, $key[$mid]) < 0 Then
  88.                 Return _C($s, $f, $mid)
  89.         EndIf
  90. EndFunc   ;==>_C
复制代码
回复

举报

laomeng
 楼主| 发表于 2014-12-14 11:22:47 | 显示全部楼层
回复 11# user3000


          $str = StringRegExpReplace($str, '\|,' ')  这句有错误。正则符号我 一点也不懂啊
回复

举报

laomeng
 楼主| 发表于 2014-12-14 11:33:19 | 显示全部楼层
回复 11# user3000


    谢谢  已经可以搜索了 但是还有两问题 如附件

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×
回复

举报

user3000
发表于 2014-12-14 12:29:27 | 显示全部楼层
回复12楼: 本来应该是这样: $str = StringRegExpReplace($str, '\|$',' '),输到代码框里就出错了.

回复 13# laomeng 关键字不是一行一行的吗?我复制到文本后显示是全成一行的.加"回车"换成一行行,测试没问题.
试试这样匹配?
$sre = StringRegExp($sText, '\V+', 3)

        ;If @error Then Return GUICtrlSetState($list, $GUI_HIDE)
回复

举报

laomeng
 楼主| 发表于 2014-12-14 14:50:58 | 显示全部楼层
回复 14# user3000


    非常感谢你的指点！！已经OK啦！！
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2026-9-20 23:51 , Processed in 0.092427 second(s), 22 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表