Perton 網誌

20090219 宜蘭青橄欖春季旅遊

走入烘焙天地(01)

2009/03/31 晚間，老婆利用吃完晚餐後的休息時間，突然興起要作饅頭的念頭。(在這之前，她已經獨立做過多次的饅頭，並且是各種不同的樣式。)

我也一時興起，想到老婆大人自從買的攪拌機後，一直都是她再表現；當老公的除的讚嘆不已的份外，實在也想學學這玩意兒。

先看看我們的工具配備，首先是攪拌機

再來，就是台灣竹製的蒸籠

2009/04/04 在下我，個人就獨自一人，依樣畫葫蘆般的做起饅頭來了。
來看看男人的成果

怎會這樣，全是扁平的饅頭 !! 還是老婆的有形。

UTF-8 、 BIG5 互轉程式


Function Convert_ASCII_Unicode(str)
   Dim old, new_w, j
   old = str
   new_w = ""
   For j = 1 To Len(str)
      If AscW(Mid(old, j, 1)) < 0 Then
         new_w = new_w & "&#" & AscW(Mid(old, j, 1)) + 65536 & ";"
      ElseIf AscW(Mid(old, j, 1)) > 0 And AscW(Mid(old, j, 1)) < 127 Then
         new_w = new_w & Mid(old, j, 1)
      Else
         new_w = new_w & "&#" & AscW(Mid(old, j, 1)) & ";"
      End If
   Next
   Convert_ASCII_Unicode = new_w
End Function

Function Convert_Unicode_ASCII(str)
   Dim x, y, z, temp_word, flag
   flag = 0
   x = InStr(flag + 1, str, "&#")
   Do Until x = 0 Or x < flag
      x = InStr(flag + 1, str, "&#")
      If x <> 0 Then
      y = Mid(str, x, 8)
      Select Case InStr(y, ";")
         Case 8
            z = ChrW(Mid(y, 3, 5))
         Case 7
            z = ChrW(Mid(y, 3, 4))
         Case 6
            z = ChrW(Mid(y, 3, 3))
         Case 5
            z = ChrW(Mid(y, 3, 2))
      End Select
      If InStr(y, ";") > 4 And Asc(z) <> 63 Then
         str = Replace(str, Left(y, InStr(y, ";")), z)
      End If
         flag = x
      End If
   Loop
   Convert_Unicode_ASCII = str
End Function

VB 如何轉存文字檔案為 UTF-8 編碼格式

如果你在寫 ASP 或 VB 且一定要將文字儲存成 UTF-8 編碼，這個 Function 應該可以幫你的忙：


Function SaveTextAsUTF8(filePath, Text)
   Const adTypeText = 2
   Const adSaveCreateOverWrite = 2

   'Create Stream object
   Dim TextStream
   Set TextStream = CreateObject("ADODB.Stream")
   With TextStream
      .Open
      .CharSet = "UTF-8"
      .Position = TextStream.Size
      .WriteText Text
      .SaveToFile filePath, adSaveCreateOverWrite
      .Close
   End With
   Set TextStream = Nothing
End Function

遠端桌面連線

遠端桌面連線，就是一般流傳的 Remote Control (遠端連線 )。
它是應用的 RDP (Remote Desktop Protocol) 技術，所形成的實務技巧。

以下，主要是說明該如何建立 *.rdp 檔案，將連線之所有設定存在其中，日後就可以直接雙擊，直接連線在遠端的電腦中。

步驟一：開啟 遠端桌面連線 程式 (mstsc.exe)