今天要在工程中用到這個，順便寫了下，方便使用，源**如下：
option explicit
private declare function getusername lib "advapi32.dll" alias "getusernamea" (byval lpbuffer as string, nsize as long) as
long
private declare function lstrlenw lib "kernel32" (byval lpstring as long) as long
public function getsysloggedusername() as string
dim buf as string * 20
if getusername(buf, 20)=1 then
getsysloggedusername=left$(buf,lstrlenw(strptr(buf)))
exit function
end if
getsysloggedusername=""
end function
簡單的寫了一個列印Lua Table的函式
簡單的寫了一個將lua table 列印成json的格式，當然這個函式還是有點bug的，就是不能區分 同時存在陣列和key vlaue，如 local test 會被當做陣列處理，由於專案中沒有匯入json庫，不能使用json.encode 所以自己隨便了一個，基本上滿足需求，後面也就沒有管了，如果...
自己寫了一個php檢測檔案編碼的函式
關於文程式設計客棧件編碼的檢測，一下一大把都是，但是確實沒有能用的 很多人建議 mb detect enco程式設計客棧ding 檢測，可是不知為何我這不成功，什麼都沒輸出 看到有人寫了個增強版，用 bom 判斷的，我果斷就無視了，這東西完全不靠譜 最終根據php手冊裡 mb detect enco...
寫了一個通用的查詢Sql的函式 VC新手
查詢資料庫的操作是vc最基本的，通過研究，自己寫了一個通用的vc查詢的函式，不足之處，請各位指正。如下 int excelsqlone char one,cstring fieldname,char szsql one返回查詢表裡面的欄位的資料，fieldname是表的欄位，szsql是查詢語句，如...
新寫了一個轉中文大寫金額的ASP函式
格式化中文金額的方法 prmttype 為 a 時表示返回帶零的全字串，否則返回中文習慣的金額 呼叫方法 formatchinesemoney 30503.34,function formatchinesemoney prmtmoney,prmttype dim strmoney,strmoneyl...
一個獲取陣列key的函式
獲取索引 id 的集合，並且儲存為一個一位陣列，即得到 array 1,2,5 不知道各位朋友會怎麼寫呢？如果是以前我的寫法就是直接 foreach，然後 array push 一個個的往一個陣列變數裡塞。這樣也能實現。但這樣的寫法很影響效能，因為使用 php 原生的函式肯定比迴圈效率高。清單 ph...