作者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