片尋記憶

Amy Macdonald - This Is The Life

此影片未在您的國家/地區或網域提供
明明有在賣CD ，為什麼不給看MV.......怪了

解決方法：設 proxy(代理是福氣伺服器)
請使用軟體，例如無界瀏覽、或自行手動設定

無界瀏覽下載後直接執行
IE免設定
opera ：opera:config#Proxy|HTTPserver → 設 127.0.0.1:9666
Mozilla Firefox ： 請善用google、或使用opera

-----------------------------------------------
Amy Macdonald 很Dolores O'Riordan

窗邊飛來 了三隻小雀
它們似乎告訴我要好好放輕鬆
夏天的味道像肉桂香般如此甜美
看著大街上女孩們開心的玩著跳繩
也許 有時候
做自己其實也沒什麼不好ㄚ
物換星移
但舊愛還是最美
好啦,別再胡思亂想了

將txt檔案中所有中文字，隨機取字設任意大小(html 格式)
執行結果如下：

Dim p,s,re
If Wscript.Arguments.Count=0 Then
Msgbox "將文件拖到圖示上！"
Wscript.Quit
End If
For i= 0 to Wscript.Arguments.Count - 1
p=Wscript.Arguments(i)
With CreateObject("Adodb.Stream")
.Type=2
.Charset="BIG5"'"GB2312"
.Open
.LoadFromFile=p
s=.ReadText
Set re =New RegExp
re.Pattern= "[^\x00-\xff]"
re.Global = True
If Not re.Test(s) Then
Msgbox "檔案無內容"
Wscript.Quit
End If
Set Matches = re.Execute(s)
s=""
For Each Match In Matches
Randomize
size = abs(Int((6 - 13) * Rnd))
if size > abs(Int((6 - 13) * Rnd)) then
s=s & "" & Match.Value & ""
else
s=s & Match.Value
end if
Next
.Position=0
.setEOS
.WriteText s
.SaveToFile p & "'s resize.html",2
.Close
End With
Next
Msgbox "DONE！"

---------------------------------
Script 首發!!

上班途中聽到的好歌......

我心託明月，無奈明月照溝渠......

好久沒跟老姐吵架了，恭賀新喜
今年終於開張了!!
總結去年度老姐惹我不高興兩次
今年大年初一，一睡醒又來招惹我
把好脾氣，當作沒脾氣
所以初一開始我就當自己是獨子，
什麼老姐!! 門都沒有
拿東西給我吃、約我出去......來不及了!!

無薪假也無聊，好好擺擺臭臉
反正好幾年沒吵架了

-------------------------------------------------------
原來擺臭臉給人看心情也會不好，看來給趁這次好好練習!!