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

看看。。。。。。。。。
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 求[批量文本替换]源码[已解决]