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

jiangllllp · 发表于 2011-5-31 15:21:39

看看啥内容

星云散落 · 发表于 2011-5-31 19:52:39

回复看看~~~~

jixiren001 · 发表于 2011-6-4 04:29:03

那我就回复看看嘛

f313685162 · 发表于 2011-6-5 17:59:06

回复学习，谢谢分享

学习一下 · 发表于 2011-6-14 14:48:11

值得收藏下

门外汉一 · 发表于 2011-6-16 09:47:46

最讨厌回复后才能查看的帖子

门外汉一 · 发表于 2011-6-16 09:50:23

#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

、===========================
以上代码有缺陷..............还是感谢你

给你一个我的代码你瞧瞧
==================

$OpenFilename = FileOpenDialog("选择您要转换的文件", -1, "所有文件(*.*)")

;FileDelete($OpenFilename)
FileWriteLine($OpenFilename,ControlGetText("精科电脑算命 V2.7","","Edit4"))

$BianLiang2 = FileRead($OpenFilename)
$BianLiang3 = StringReplace($BianLiang2, "aaaaaaaaaaaaaaaasssssssssssssssssssssss", "INSERT INTO  emlog_blog VALUES('")
;FileDelete($OpenFilename)
FileWriteLine($OpenFilename, $BianLiang3 )

$BianLiang = FileRead($OpenFilename)
$BianLiang1 = StringReplace($BianLiang ,"cccccccccccccccccccccccccddddddddddddddddaaaaaaaaaaaaa---------------------------sssssssssssssssssssssggggggghhhhhhhhhhh", "','")
;FileDelete($OpenFilename)
FileWriteLine($OpenFilename, $BianLiang1 )

$BianLiang = FileRead($OpenFilename)
$BianLiang1 = StringReplace($BianLiang ,"aaaaaaaaaaaaa---------------------------sssssssssssssssssssssllllllllmmmmmmmmmmmm", "','1308056742','<iframe height=\"&'"'&"900\"&'"'&"  src=\"&'"')
;FileDelete($OpenFilename)
FileWriteLine($OpenFilename, $BianLiang1 )

$BianLiang = FileRead($OpenFilename)
$BianLiang1 = StringReplace($BianLiang ,"aaaaaaaaaaaaaa---------------------------sssssssssssssssssssss", "\"&'"'&"  width=\"&'"'&"1440\"&'"'&"></iframe>','','','1','- 1','blog','1','0','0','0','n','n','y','y','');")
;FileDelete($OpenFilename)
FileWriteLine($OpenFilename, $BianLiang1 )

Run ("NOTEPAD.EXE" &" "& $OpenFilename)

uhunters · 发表于 2011-6-16 13:51:57

看看再说,学习一下了...

拉风晓晓 · 发表于 2011-7-9 21:18:45

看看是否需要

淡定开源 · 发表于 2011-7-9 22:27:53

回复看看。

yayihu · 发表于 2011-7-12 05:58:13

看看啥内容。。

kuse2001 · 发表于 2011-7-21 14:08:39

haishiyincangde

asdasdasd · 发表于 2011-7-21 14:14:30

正好前天我也写了一个，因为网上的那些工具都替换不了，所以自己写了

asdasdasd · 发表于 2011-7-21 14:17:36

你这还是单文件的了，我写的是批量的

abcd1258 · 发表于 2011-7-21 21:43:37

回复看看了.

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

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