langjs 发表于 2011-1-15 11:08:33

[原创]带对话框的文本查找和替换

本帖最后由 langjs 于 2011-12-31 11:36 编辑

程序有BUG，删除了。新版在这里
http://bbs.mjtd.com/thread-91554-1-1.html

新鲜8 发表于 2017-10-14 16:24:31

正找呢先谢谢楼主了

langjs 发表于 2011-1-15 11:11:50

下面这个是对话框源程序，拷贝到记事本中并将记事本更名为TTF.dcl后，拷贝到CAD可搜索到的文件夹内


TTF1 :dialog {
label="查找和替换";
spacer_1;
:row{

:column
{


:edit_box{label=" 查找字符串:";key="e01";edit_width=30;}
:edit_box{label=" 替换为:";key="e02";edit_width=30;}

}
:column
{
:text {label="   搜索范围:";}
:row{
:edit_box{label="   ";key="e03";edit_width=12;}
:button {label="选择" ;key="e04";}
spacer_1;
}
}
}
spacer_1;
:row{
spacer_1;
spacer_1;
spacer_1;
spacer_1;
spacer_1;
spacer_1;
:button {label="      查找   " ;key="e05";}
spacer_1;
spacer_1;
spacer_1;
spacer_1;
spacer_1;
spacer_1;
:button {label="全部替换" ;key="e07";}
cancel_button;
spacer_1;
spacer_1;
spacer_1;
}

}


TTF2 : dialog {
label="查找和替换";
spacer_1;
:row{

:column
{


:edit_box{label=" 查找字符串:";key="e01";edit_width=30;}
:edit_box{label=" 替换为:";key="e02";edit_width=30;}

}
:column
{
:text {label="   搜索范围:";}
:row{
:edit_box{label="   ";key="e03";edit_width=12;}
spacer_1;
spacer_1;
spacer_1;
spacer_1;
spacer_1;
spacer_1;
spacer_1;
spacer_1;
spacer_1;
spacer_1;
spacer_1;

}
}
}
spacer_1;
:row{
spacer_1;
spacer_1;
spacer_1;
spacer_1;
spacer_1;
spacer_1;
:button {label="查找下一个" ;key="e05";}
:button {label=" 替换 " ;key="e06";}
:button {label="全部替换" ;key="e07";}
cancel_button;
spacer_1;
spacer_1;
spacer_1;
}

}




langjs 发表于 2011-1-15 11:13:32

本帖最后由 langjs 于 2011-1-15 11:14 编辑

这个是预览

xhq1954425 发表于 2011-1-15 13:20:32

谢谢分享源码！收下后研究！

lrd1861 发表于 2011-1-15 19:47:43

很好收藏了   谢谢楼主

xzqk132 发表于 2011-1-15 22:22:17

非常不错啊，谢谢楼主了

tjuzkj 发表于 2011-1-31 10:55:09

不错,辛苦了

xiaotao 发表于 2011-1-31 17:29:10

辛苦了!顶一下

xiaxiang 发表于 2011-1-31 21:03:31

langjs 发表于 2011-1-15 11:08 static/image/common/back.gif
[原创]带对话框的文本查找和替换
里边的修改替换文本程序参考了论坛某老大的程序。
本人增加了对话框，找 ...

感谢分享好的源码

czb203 发表于 2011-2-20 13:03:31

超级好用谢谢楼主这么好的资源
页: [1] 2 3 4
查看完整版本: [原创]带对话框的文本查找和替换