原来:
【查找】按钮:默认的匹配方式是【完全匹配】、选中【区分大小写】。
【替换】按钮:
默认的替换方式是【全部内容】。
建议:(已经三年多了,还是未被采纳。http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=71806&skin=0)
没有一款软件的查找、替换方式的默认值是像狐表这样不接地气的(不客气地说是不负责任的)。应从用户的实际数据情况和使用习惯出发,改查找的默认匹配方式为【任意位置】、不选中【区分大小写】;改替换的默认替换方式为【匹配内容】。正常情况下,【完全匹配】是【任意位置】的特例,【全部内容】是【匹配内容】的特例。
如果【查找】和【替换】按钮不是狐表自产的,则也应该在帮助文档中添加以下来自论坛的代码供用户参考:
【查找】按钮代码:
Syscmd.Edit.find()
static sfrm = Nothing
Dim frm = Windows.forms.Form.ActiveForm
If frm IsNot Nothing Then
If frm.name = "Class108" AndAlso (sfrm Is Nothing OrElse sfrm.tostring <> frm.tostring) Then
frm.controls("MatchMode").Text = "任意位置"
frm.controls("CaseSensitive").checked = False
sfrm = frm
End If
End If
【替换】按钮代码:
Syscmd.Edit.replace()
static sfrm = Nothing
Dim frm = Windows.forms.Form.ActiveForm
If frm IsNot Nothing Then
If frm.name = "Class108" AndAlso (sfrm Is Nothing OrElse sfrm.tostring <> frm.tostring) Then
frm.controls("MatchMode").Text = "任意位置"
frm.controls("CaseSensitive").checked = False
frm.controls("ReplaceMode").Text = "匹配内容"
sfrm = frm
End If
End If
[此贴子已经被作者于2019/2/15 12:25:56编辑过]