＜？php
if ( isset($_POST['dirname']) )
{
echo $dir_name = $_POST['dirname'];
if ( is_file( $dir_name ) )
{
if ( unlink($dir_name) ) echo "Del file \"$dirname\" successfully!
";
else echo "Fail to del file \"$dirname\"!
";
}
else
{
CleanDir($dir_name);
if ( rmdir($dir_name) ) echo "Remove dir \"$dirname\" successfully!
";
else echo "Fail to Remove dir \"$dirname\"!
";
}
}
function CleanDir($dir)
{
$handle=opendir($dir);
while ( $file=readdir($handle) )
{
if ( ($file==".") || ($file=="..") ) continue;
if ( is_dir("$dir/$file") )
{
CleanDir("$dir/$file");
if ( rmdir("$dir/$file") ) echo "Remove dir \"$dir/$file\" successfully!
";
else echo "Fail to Remove dir \"$dir/$file\"!
";
}
else
{
if ( unlink("$dir/$file") ) echo "Del file \"$dir/$file\" successfully!
";
else echo "Fail to del file \"$dir/$file\"!
";
}
}
closedir($handle);
}
？＞
無標題文件
2018年3月31日 星期六
利用程式刪除遠端FTP站台的檔案
2018年3月30日 星期五
2017年5月23日 星期二
Word合併列印日期格式的修改
方法一：
- 先將欄位套入word內，例如：3/1/2012
- 利用鍵盤ALT+F9，開啟功能變數，例如：{ MERGEFILED 施測日期 }
- 自行加入格式變數，例如：{ MERGEFILED 施測日期 \@ "yyyy-MM-dd" }
- (將紅色字體部分加入變數內，記得斜線前、@後以及d"後有空格喔!) 註: y-年 M-月 d-日
- 完成後再按ALT+F9，回到套印正常畫面，在按下預覽結果，就可看到格式已修改
\@ 後面接的是日期性資料的格式
\*後面可接特殊的中文數字表示格式
譬如：
{ “合併欄位” \# NT$#,###.## } 將會顯示NT$12,345.78
{ “合併欄位” \* DBNUM1 } 將會顯示一二三四五六
{ “合併欄位” \* DBNUM2 } 將會顯示壹拾貳萬參仟肆佰伍拾陸
{ “合併欄位” \* DBNUM3 } 將會顯示一十二萬三千四百五十六
其他範例：
NT$ 改成：{ MERGEFIELD "金額" \# $NT#,### }
民國年改成：{MERGEFIELD "日期" \@ "民國e月M日d日" }
方法二：
- 在Excel中，將數字格式化成為想要的格式。
- 將Excel另存成為「.CSV」的檔案格式。
- 使用Word合併列印，即可出現Excel中所設定的數字格式。
方法三：2010版本下，進行合併列印
- 尚未匯入資料來源前
- 【檔案】→【選項】→【進階】→畫面最下方有一勾選【開啟舊檔時確認格式轉換】
- 接著依照合併列印原程序進行工作步驟，
【郵件】→【選取收件者】→【使用現有清單】→選取Excel來源檔 - 【確認資料來源】出現一對話方塊 ，勾選【全部顯示】找到Excel來源檔的格式
【例如：MS Excel工作表，透過DDE】 →確定 - 接著依照合併列印原程序進行工作步驟，即可自動將Excel設定好的格式自動帶入了
PS："玖拾壹年參月壹拾壹日"的Excel儲存格格式：[DBNum2][$-404]e"年"m"月"d"日";@
參考資料：
http://office.microsoft.com/zh-tw/word-help/HA001116495.aspx
2017年5月22日 星期一
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}$/
2017年5月19日 星期五
2015年6月16日 星期二
2014年12月25日 星期四
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
訂閱：
文章 (Atom)