片尋記憶

最近在新聞片尾聽到 "耳朵為之一亮"的聲音
拜Shazam 所賜 終於讓我知道歌手是誰了!!

Artist: Duffy
Album: Rockferry
Year: 2008
Title: Mercy

Kirkland Signature™ Vodka 第5支 vodka

開瓶後聞香，比LEvel VoDka 還淡.....還沒開始喝應該沒聞錯吧!!
加冰塊純飲順口，沒有工業酒精的味道

前兩年生日不是錯過就是忘記!!
當天也忘記在幹麻!!

今年的祝福收到了!! 感謝

希望......明天漲停!!
希望......明天鎖死!!

你陪我看小說
你陪我騎自行車
開車時我們一起唱歌
在一起快3年了!!

最近....
電話講一半你就掛我電話
給了你幾次機會你都沒改變!!

小N 對不起!!
我遇到了生命中的英雄!!

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 首發!!