求[批量文本替换]源码[已解决]-已解决问题区-AUTOIT CN

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 INTOemlog_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

回复看看了.

页: 1 2 3 4 5 [6] 7 8 9 10 11 12 13 14 15

AUTOIT CN's Archiver