GOOGLE+1語法

<script> 
          (function(d, t)
             {
                 var g = d.createElement(t), s = d.getElementsByTagName(t)[0]; g.async = true; g.src =   
                 'https://apis.google.com/js/plusone.js'; s.parentNode.insertBefore(g, s); 
              }
          )
          (document, 'script');
</script>


 -- 按鈕---
 <g:plusone></g:plusone>    

讀取文字檔

            以下範例是將文字檔讀出然後變更斷行符號
            1.使用LineInput 每一行每一行讀取
            FileNum = FreeFile()
            FileOpen(FileNum, strRFile, OpenMode.Input)


            Do Until EOF(FileNum)
                strTemp &= LineInput(FileNum) & vbNewLine
            Loop
            FileClose(FileNum)
            FileNum = FreeFile()
            FileOpen(FileNum, NewValue, OpenMode.Output)
            PrintLine(FileNum, strTemp)
            FileClose(FileNum)


            2.使用ReadToEnd 
             Dim value As String = ""
             Dim MySF As StreamReader = New StreamReader(strRFile, System.Text.Encoding.Default)
             value = MySF.ReadToEnd().Replace(vbLf, vbCrLf)