專案日期：10/05

坐下來後，我們四個人沉默了半天，說真的，這感覺像是要談判，但不知道要談什麼。但希望別桌的人，不要認為我們是來談感情，這樣就好了。我還是先開口好了，『我說...我跟各位並沒有什麼深仇大恨，如果我有什麼不是，請各位直接說，我有不對的地方，我就道歉。』

「你這樣很不給我面子。」Blade先回了我話。

『其實...我很尊敬你啊，只是我在等那個適當的機會，而且我是等到你親告訴對方，你是工程師，我才表明身份的。』好吧，我又說錯話了。不過Blade到沒什麼反應，Blaster偷偷笑了一下，「有人出來幫你擋事情，還不好哦?」 Block說了一句很實際的話，說真的關我什麼事? 又不是我答應別人要幹嘛幹嘛，只是這些都是不能說的秘密。

氣氛稍微緩和後，Block又說「現在什麼時間了，我們再這樣吵下去，這案子真的不用結了，那我還不如先去找工作。」

這句話，是在團隊中，很有感染力和殺傷力的一句話，就像之前玩魔獸世界時，每次打到副本卡很久時，就有很多人會先離開，嚴重一點就散團了。但現在我不確定的，他們到底擔心什麼。

『既然沒事了，各位大哥能讓我知道，各位在擔心什麼嗎?』

Blaster 大吸了一口氣「我們的備份軟體，叫做TSM，這個東西的設定，多如牛毛啊，我們這邊的環境，總共80台主機，每台主機最少會有3個相關的設定檔案。」

240個檔案? 還好啊! 『那請問一下，設定一個檔案，要多少時間?』

「最快也要3分鐘吧。」最快3分鐘，那大概就要5分鐘了，240 X 5，這答案很可怕耶，那可能還有別的設定吧，難怪他們會擔心。但他們並不是擔心會做不完，而是擔心沒有時間喝下午茶，真的是夠了。但如果結案後，喝杯下午茶到是應該的。但這該怎麼辦呢? 我拿出了筆電，隨手打開了一個Excel 檔案。

Block好奇我要做什麼，整個人擠了過來「Blue 你的這個Excel檔，是幹嘛的?怎麼...這是Excel檔?」

我笑了一下，『我想聽一下音樂啦!』

「你要聽就聽啊，開Excel幹嘛?」Blaster不耐煩的說。

Block提高了他的音量，「不是吧! 你用Excel 聽音樂哦? 會不會太扯...」

這樣說，我也不知怎麼回答。我們到了客戶那，不是待在機房就是在某個角落，每天面對螢幕的時間，最少十小時，在角落做事還好，在機房待超過10個小時，那才可怕。當然是要聽點音樂，緩和一下心情啊。如果用播放程式，被客戶看到了，感觀會不好，所以如果開個Excel檔，聽聽音樂，也很好啊，不然每天聽機房裡的噪音，誰都會受不了。

『你們說的那些檔案，有規則嗎? 就是有相同和不相同的地方嗎?』

他們點了點頭，我繼續問『那有樣本檔案嗎?』

「你想幹嘛?」Blade不屑的問了我。

『看我有沒有能幫上忙的地方，如果有規則，那就讓那些檔案自動生成，然後再套一個規則，自動複製到所有主機就好了。』

他們三位楞了一下，「這你做的到?」

『如有規則的話，應該是可以，我要先看一下檔案的內容。如果可以，我就做啊。』

「為什麼你會想要這樣做?」Block繼續問我。

『有些事情，如果在開始之前，多做一些準備，那真的在做那些事情時，就能用多出來的時間，去做別的事。如果等到事情來等我們，那我們會很慘，而且壞事都常不會只有一件，要來一定是全來。』

他們三位稍微認同了我的說法。好吧，今天晚上就先別睡了，我也應該要趕工了。

(待)

附件五：Excel Music Player

這一套是前幾年唸淡江時，某一門課的期末報告，老師希望我們用Excel做些開發，像是計帳、股票、期貨跟數字有關的專題。但我數字概念不好，同組同學又說可以做些不一樣的，所以在和同學的討論下，做了一個Excel的影音播放檔案。

這可以用一張工作表就完成，不過VBA部份則有比較多段。

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrRetumString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) _
As Long

Public mp3file As String
Public t As Long
Public ret As String * 128

Sub playclick()
On Error Resume Next
mp3file = ActiveCell.Value  <--將Excel欄位資料，塞到mp3file

'下面是對mp3檔案的控制
t = mciSendString("stop " & mp3file, 0&, 0, 0)
t = mciSendString("close " & mp3file, 0&, 0, 0)
t = mciSendString("open " & mp3file, 0&, 0, 0)
t = mciSendString("play " & mp3file, 0&, 0, 0)

End Sub

Sub pauseclick()
mp3file = ActiveCell.Value
t = mciSendString("pause " & mp3file, 0&, 0, 0)
t = mciSendString("seek" & mp3file, 0&, 0, 0)
End Sub
Sub stopclick()
mp3file = ActiveCell.Value
t = mciSendString("stop " & mp3file, 0&, 0, 0)
t = mciSendString("close " & mp3file, 0&, 0, 0)

End Sub
Sub status()
t = mciSendString("status " + mp3file + " length", ret, 128, 0)
ret = Left(ret, 8)

End Sub

Sub searchfavormp3(searchstring)
'搜尋欄位用的程式碼
Dim FilePackage() As String
Dim DirPackage() As String
'Dim SearchString As String
Dim DirString As String
Dim I As Long, J As Long, K As Long
Dim mystring As String
Dim AA As Long
    
   Worksheets(8).Cells().ClearContents
   Sheets(8).Activate '自動切到編號8的工作表
    Erase FilePackage
    ReDim DirPackage(0)
    '要搜尋的路徑
    DirPackage(0) = ActiveWorkbook.Path & "\favor\"
    '要搜尋的字串
    'SearchString = "*" & searchtextbar.Value & "*" & ".mp3"
     'searchstring = mp3string
     '控制顯示位置的參數
    AA = 10
    Do While I <= J
       DirString = Dir(DirPackage(I), vbDirectory)
             Do While DirString <> ""         
            If DirString <> "." And DirString <> ".." Then             
                If (GetAttr(DirPackage(I) & DirString) And vbDirectory) = vbDirectory Then                
                J = J + 1
                ReDim Preserve DirPackage(J)
                DirPackage(J) = DirPackage(I) + DirString + "\"             
                Else         
                    If DirString Like searchstring Then                     
                        ReDim Preserve FilePackage(K)                       
                    FilePackage(K) = DirPackage(I) + DirString                        
                        K = K + 1
                    End If
                End If
            End If
       
           DirString = Dir
            DoEvents
        Loop
        I = I + 1
    Loop
    If K = 0 Then
        MsgBox "沒有 " & searchstring & " 的檔案"
    Else
       For I = 0 To UBound(FilePackage)
            Worksheets(8).Cells(AA, 3).Value = FilePackage(I)  '將搜尋出的檔案，放在excel 欄位裡，顯示出來
            AA = AA + 1
            DoEvents
        Next  
    End If
End Sub

2011/10/08 太陽哲齡

文章導覽
上一篇
下一篇
全系列連結

更多文章都在行雲流水IT人