作者frank38 (:~)
看板EZsoft
标题Re: [请问] 批次处理网页 在档案头尾各加入一段字串
时间Wed Mar 23 15:29:42 2011
无聊试写一个
下面是 AutoIt v3 的版本，请注意有两个地方没断行
或直接下载
http://www.mediafire.com/?ph2jqhu7wlvmjl2
随便写的，没有做很严密的测试，也没做什麽防呆、检查机制 XD
==============
#include <File.au3>
#include <GuiConstants.au3>
GUICreate("Demo", 320, 370)
GUICtrlCreateLabel("First line", 10, 10, 300, 20)
$insFirst = GUICtrlCreateEdit("", 10, 30, 300, 100)
GUICtrlCreateLabel("Last line", 10, 140, 300, 20)
$insLast = GUICtrlCreateEdit("", 10, 160, 300, 100)
$sFolder = GUICtrlCreateLabel("", 10, 270, 300, 20)
$btnSetFolder = GUICtrlCreateButton("&Choose a Folder", 220, 290, 90, 20)
$btnRun = GUICtrlCreateButton("&Go", 10, 320, 300, 40)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $btnRun
start()
Case $msg = $btnSetFolder
GuiCtrlSetData($sFolder, FileSelectFolder("Choose a folder.", ""))
EndSelect
WEnd
Func start()
$aFileList = _FileListToArray(GUICtrlRead($sFolder), "*")
;all type
; "*" 代表全部的档案
If @error=1 Then
MsgBox (0, "", "No Files\Folders Found.")
Exit
EndIf
Global $aFileStrings[$aFileList[0] + 1][2] = [[$aFileList[0]]]
For $i = 1 To $aFileList[0]
_FileWriteToLine(GUICtrlRead($sFolder) & "\" & $aFileList[$i], 1,
GUICtrlRead($insFirst)) ;insert first (与上面是同一行)
FileWrite(GUICtrlRead($sFolder) & "\" & $aFileList[$i],
GUICtrlRead($insLast)) ;insert last (与上面是同一行)
Next
MsgBox(0, "", "Finished")
EndFunc
===============
--
承诺就像 干伶XX
常说，但通常做不到
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 163.29.150.125
1F：推 junorn:连介面都画了吗XD 03/23 16:43
2F：→ chang0206:厉害 autoitv3的gui我一直搞不定..0rz 03/23 18:24