Re: [請問] 批次處理網頁在檔案頭尾各加入一段字串

看板EZsoft (小軟體)作者frank38 (:~)時間15年前 (2011/03/23 15:29)推噓1(1推 0噓 1→)

留言2則, 2人參與討論串4/5 (看更多)

無聊試寫一個下面是 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

Re: [請問] 批次處理網頁 在檔案頭尾各加入一段字串

Re: [請問] 批次處理網頁在檔案頭尾各加入一段字串