Word合併列印日期格式的修改

方法一：

1. 先將欄位套入word內，例如：3/1/2012
2. 利用鍵盤ALT+F9，開啟功能變數，例如：{ MERGEFILED 施測日期 } 
3. 自行加入格式變數，例如：{ MERGEFILED 施測日期 \@ "yyyy-MM-dd" }
4.  (將紅色字體部分加入變數內，記得斜線前、@後以及d"後有空格喔!) 註: y-年 M-月 d-日
5. 完成後再按ALT+F9，回到套印正常畫面，在按下預覽結果，就可看到格式已修改

\# 後面接的是數值性資料的格式
\@ 後面接的是日期性資料的格式
\*後面可接特殊的中文數字表示格式

譬如：
{ “合併欄位” \# NT$#,###.## }  將會顯示NT$12,345.78
{ “合併欄位” \* DBNUM1 }  將會顯示一二三四五六
{ “合併欄位” \* DBNUM2 }  將會顯示壹拾貳萬參仟肆佰伍拾陸
{ “合併欄位” \* DBNUM3 }  將會顯示一十二萬三千四百五十六

其他範例：
NT$ 改成：{ MERGEFIELD "金額" \# $NT#,### }

民國年改成：{MERGEFIELD "日期" \@ "民國e月M日d日" }

方法二：

1. 在Excel中，將數字格式化成為想要的格式。
2. 將Excel另存成為「.CSV」的檔案格式。
3. 使用Word合併列印，即可出現Excel中所設定的數字格式。

方法三：2010版本下，進行合併列印

1. 尚未匯入資料來源前
2. 【檔案】→【選項】→【進階】→畫面最下方有一勾選【開啟舊檔時確認格式轉換】
3. 接著依照合併列印原程序進行工作步驟，
   【郵件】→【選取收件者】→【使用現有清單】→選取Excel來源檔
4. 【確認資料來源】出現一對話方塊 ，勾選【全部顯示】找到Excel來源檔的格式
   【例如：MS Excel工作表，透過DDE】 →確定
5. 接著依照合併列印原程序進行工作步驟，即可自動將Excel設定好的格式自動帶入了

PS："玖拾壹年參月壹拾壹日"的Excel儲存格格式：[DBNum2][$-404]e"年"m"月"d"日";@

參考資料：
http://office.microsoft.com/zh-tw/word-help/HA001116495.aspx

Google 表單驗證

身分證字號驗證 說明：第一個字元大小寫不分，後面9個數字。

^[a-zA-Z][0-9]{9}$

信用卡驗證 說明：則每四個數字間要加入-符號，共為16個數字。

/^\d{4}-\d{4}-\d{4}-\d{4}$/

手機驗證 說明：起首為09開頭，後面再八位數字。

/^\d{4}-\d{4}-\d{4}-\d{4}$/

滑鼠移入自動停止的跑馬燈語法

滑鼠移入自動停止的跑馬燈語法

這裡放要跑的文字或圖片

這裡放要跑的文字或圖片

javascript confirm

onclick="return(confirm('確認則表示此筆訂單成立？'))"

excel urlencode function

Public Function UrlEncode(ByRef szString As String) As String

Dim szChar As String
Dim szTemp As String
Dim szCode As String
Dim szHex As String
Dim szBin As String
Dim iCount1 As Integer
Dim iCount2 As Integer
Dim iStrLen1 As Integer
Dim iStrLen2 As Integer
Dim lResult As Long
Dim lAscVal As Long
szString = Trim$(szString)
iStrLen1 = Len(szString)
For iCount1 = 1 To iStrLen1
    szChar = Mid$(szString, iCount1, 1)
    lAscVal = AscW(szChar)
    If lAscVal >= &H0 And lAscVal <= &HFF Then
        If (lAscVal >= &H30 And lAscVal <= &H39) Or (lAscVal >= &H41 And lAscVal <= &H5A) Or (lAscVal >= &H61 And lAscVal <= &H7A) Then
            szCode = szCode & szChar
            szCode = szCode & "%" & Hex(AscW(szChar))
        End If
    Else
        szHex = Hex(AscW(szChar))
        iStrLen2 = Len(szHex)
        For iCount2 = 1 To iStrLen2
            szChar = Mid$(szHex, iCount2, 1)
            Select Case szChar
                Case Is = "0"
                    szBin = szBin & "0000"
                Case Is = "1"
                    szBin = szBin & "0001"
                Case Is = "2"
                    szBin = szBin & "0010"
                Case Is = "3"
                    szBin = szBin & "0011"
                Case Is = "4"
                    szBin = szBin & "0100"
                Case Is = "5"
                    szBin = szBin & "0101"
                Case Is = "6"
                    szBin = szBin & "0110"
                Case Is = "7"
                    szBin = szBin & "0111"
                Case Is = "8"
                    szBin = szBin & "1000"
                Case Is = "9"
                    szBin = szBin & "1001"
                Case Is = "A"
                    szBin = szBin & "1010"
                Case Is = "B"
                    szBin = szBin & "1011"
                Case Is = "C"
                    szBin = szBin & "1100"
                Case Is = "D"
                    szBin = szBin & "1101"
                Case Is = "E"
                    szBin = szBin & "1110"
                Case Is = "F"
                    szBin = szBin & "1111"
                Case Else
            End Select
        Next iCount2
        szTemp = "1110" & Left$(szBin, 4) & "10" & Mid$(szBin, 5, 6) & "10" & Right$(szBin, 6)
        For iCount2 = 1 To 24
            If Mid$(szTemp, iCount2, 1) = "1" Then
                lResult = lResult + 1 * 2 ^ (24 - iCount2)
            Else: lResult = lResult + 0 * 2 ^ (24 - iCount2)
            End If
        Next iCount2
        szTemp = Hex(lResult)
        szCode = szCode & "%" & Left$(szTemp, 2) & "%" & Mid$(szTemp, 3, 2) & "%" & Right$(szTemp, 2)
    End If
    szBin = vbNullString
    lResult = 0
Next iCount1
UrlEncode = szCode

End Function

計算陣列個數 count 用法

<？php
$data = array(
    "apples" =>
        array("red", "yellow", "pineapples"),
    "bananas" =>
        array("small", "medium", "big"),
    "vegs" =>
        array("potatoes", "carrots", "onions")
);

$rows = count($data,0);
$cols = (count($data,1)/count($data,0))-1;
print "There are {$rows} rows and {$cols} columns in the table!";
？>

There are 3 rows and 3 columns in the table!

mb_fgetcsv 解決 fgetcsv 中文亂碼

<？php
/**
  * mb_fgetcsv
  *
  * 解結fgetcsv讀取中文亂碼函式
  *
  */

function mb_fgetcsv(&$handle, $length = null, $d = ",", $e = '"') {
 $d = preg_quote($d);
 $e = preg_quote($e);
 $_line = "";
 $eof=false;
 while ($eof != true) {
  $_line .= (empty ($length) ? fgets($handle) : fgets($handle, $length));
  $itemcnt = preg_match_all('/' . $e . '/', $_line, $dummy);
  if ($itemcnt % 2 == 0){
   $eof = true;
  }
 }
 
 $_csv_line = preg_replace('/(?: |[ ])?$/', $d, trim($_line));
 
 $_csv_pattern = '/(' . $e . '[^' . $e . ']*(?:' . $e . $e . '[^' . $e . ']*)*' . $e . '|[^' . $d . ']*)' . $d . '/';
 preg_match_all($_csv_pattern, $_csv_line, $_csv_matches);
 $_csv_data = $_csv_matches[1];
 
 for ($_csv_i = 0; $_csv_i < count($_csv_data); $_csv_i++) {
  $_csv_data[$_csv_i] = preg_replace("/^" . $e . "(.*)" . $e . "$/s", "$1", $_csv_data[$_csv_i]);
  $_csv_data[$_csv_i] = str_replace($e . $e, $e, $_csv_data[$_csv_i]);
 }
 
 return empty ($_line) ? false : $_csv_data;
}

？>