求[批量文本替换]源码[已解决]

yingf20 · 发表于 2010-9-27 22:28:09

本帖最后由 afan 于 2015-6-8 18:26 编辑

在此谢谢水木子的帮助，问题已经解决。

在这里也不多说什么，发已经解决的源码和大家分享。

觉得值得收藏的就顶一下。

#include <WindowsConstants.au3>

GUICreate("Form1", 280, 250)
GUICtrlCreateLabel("文本路径", 20, 24, 73, 17)
$Input1 = GUICtrlCreateInput("", 85, 20, 121, 21)
GUICtrlCreateLabel("要修改的内容", 4, 48, 76, 17)
$Input2 = GUICtrlCreateInput("", 85, 45, 121, 21)
GUICtrlCreateLabel("修改为：", 24, 72, 52, 17)
$Input3 = GUICtrlCreateInput("", 85, 70, 121, 21)
$But1 = GUICtrlCreateButton("浏览", 210, 18, 50, 25, $WS_GROUP)
$Button1 = GUICtrlCreateButton("替换", 60, 120, 50, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("关闭", 120, 120, 50, 25, $WS_GROUP)
GUISetState()

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case - 3, $Button2
                        Exit
                Case $Button1
                        FileWrite(StringTrimRight(StringRegExpReplace(GUICtrlRead($Input1), '.+\\', ''), 4) & '~.TXT', StringRegExpReplace(FileRead(GUICtrlRead($Input1)), GUICtrlRead($Input2), GUICtrlRead($Input3)))
                        MsgBox(0, '', '完成')
                Case $But1
                        $folder = FileOpenDialog("查找", '', "可执行文件(*.txt)")
                        If Not @error Then GUICtrlSetData($Input1, $folder)                        
        EndSwitch
WEnd

geekey · 发表于 2010-9-28 08:44:57

沙发一下，看看是不是想要的

menfan1 · 发表于 2010-9-28 11:03:10

看看啥内容。。

006001 · 发表于 2010-9-28 13:46:39

在此也感谢楼主.

xlcwxl · 发表于 2010-9-28 20:53:21

那我就回复看看嘛

liangtie07 · 发表于 2010-9-28 22:02:09

看看能不能看得懂

linmi · 发表于 2010-9-28 22:37:28

学习学习，俺对正则非常的头疼。

linmi · 发表于 2010-9-28 22:44:23

嗯，对于路径类的字符无法替换。

yuxw · 发表于 2010-9-29 11:05:20

谢谢分享。。。。

xkowen · 发表于 2010-9-30 17:11:05

那我就回复看看嘛

sxltme · 发表于 2010-9-30 23:34:49

那我就回复看看嘛

lpxx · 发表于 2010-9-30 23:40:05

水木子人品非常不错的。

caodongchun · 发表于 2010-10-1 00:25:37

本帖最后由 caodongchun 于 2010-10-1 00:28 编辑

所有文本文档，应该支持txt,php,htm,html,c,h,au3,rb等等
应该支持文件夹
应该支持文件拖拽
呵呵

you74222 · 发表于 2010-10-2 21:59:34

那我就回复看看嘛

131738 · 发表于 2010-10-3 03:03:42

看看。。。。。。。。。

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

[AU3基础] 求[批量文本替换]源码[已解决]

评分

相关帖子