電波幻想

Powerbuilder 10 (含)以後的版本，檔案的讀取分為 Read 與 ReadEx 兩個指令，按照說明文件的用法 ReadEx 支援 StreamMode! 讀取每次可以超過 32767 個位元組，並且支援 TextMode! 的讀取模式，算是很好用的；但是這次的問題卻出在使用 LineMode! 開啟檔案 時 PB10 的 Read 這個指令上： 先看看這段程式碼哪裡出了問題，我有純文字一份文件 A.txt (ANSI編碼)內容為： 數據窗口揭秘：未公開的數據窗口事件 （作者：Mark Brown) 到目前為止，PB的數據窗口控件仍是PB眾多控件中功能最強大，最複雜的控件。 數據窗口固有的行為 然後利用下面這段程式碼讀取內容並顯示在 mle_1(MultiLine Editor)上面 integer li_fn string ls_str mle_1.text = "" li_fn = FileOpen("A.txt",LineMode!,Read!) if li_fn > 0 then //逐行讀取並顯示在mle_1上面 do while FileRead (li_fn , ls_str) >= 0 mle_1.text += ls_str +"~r~n" loop FileClose(li_fn) end if mle_1物件上的顯示內容： 數據窗口揭秘：未公開的數據窗口事件 的數據窗口事件 事件 （作者：Mark Brown) ) 到目前為止，PB的數據窗口控件仍是PB眾多控件中功能最強大，最複雜的控件。 件中功能最強大，最複雜的控件。 複雜的控件。 鞳C 數據窗口固有的行為 的行為 發現了嗎？讀取出的內容怪怪的，幾乎每一行後段文字都重複被讀出，導致整個內容大亂。 但是，這段程式碼如果放在 PB6、PB7、PB8、PB9 執行，卻一點問題就沒有。 整個詭異到不行。 但是如果是英數文內容的檔案，不管哪個版本 PB6 or PB10 就完全不會有問題，測試檔案內容如下： calculate the height of the element and divid...

powerbuilder 的位元運算能力幾乎同等『沒有』。 但是使用 windows API 又常常遇到許多變數需要邏輯運算過，但是看看目前的 PFC 的邏輯運算效能也不好。 因此突發奇想，把原本 PFC 的邏輯運算改一改，發現也蠻好用的，效能上也有改善。 Function名稱： f_bitoperator 回傳值： unsignedlong 傳遞參數： aul_s1 [unsignedlong][value]、aul_s2 [unsignedlong][value]、as_operator [string][value] /* PFC簡易版兩組數字做邏輯運算 輸入來源：aul_s1 [uLong],aul_s2 [uLong],as_operator [String] as_operator為邏輯運算描述如："and" , "or" , "xor" , "not"只需要第一組(aul_s1)輸入, aul_s2放0就可以了 返回：運算結果[Long],當參數錯誤返回NULL */ uLong ll_ret boolean lb_s1[32] , lb_s2[32] , lb_u integer li_bit as_operator = lower(trim(as_operator)) //參數檢查 if isnull(aul_s1) or isnull(aul_s2) or isnull(as_operator) then setnull(ll_ret) Return ll_ret end if if as_operator = "" then setnull(ll_ret) Return ll_ret end if //位元轉換 for li_bit = 32 to 1 step -1 if mod(aul_s1 , 2) = 1 then lb_s1[li_bit] = true else lb_s1[li_bit] = false end if aul_s1 = truncate(aul_s1 / ...

在台灣寫程式常常會需要使用到其他公司的資料交換，而大部份的合作夥伴都很多都會使用EDI檔案傳遞，因此處理EDI檔案就成了家常便飯，但有時候又不想要遇到一個專案就要再寫一次，所以幾乎都將它轉成PFC來使用。 上一次提到了 EDI 轉出 Function ，所以這次來看看轉入EDI檔案的 Function怎麼做吧。 Function 名稱： f_edi2ds 回傳值： Long 傳遞參數： ads_dest[datastore][refrence]、as_file[string][readonly]、as_error[string][refrence] /* 將ED文字檔(as_file)I匯入到 DataStore(ads_dest) EDI切割模式依照 dataObject 的 column.limit 訂定的長度 */ Integer li_ColCount,li_Pos,li_Col,li_file Long ll_collimit[],ll_rc,ll_totl,ll_cc,ll_new String ls_colname[],ls_coltype[],ls_data,ls_val,ls_date,ls_time Datetime ldt_1 boolean lb_fin //檔案存在否？ IF not FileExists(as_file) THEN Return -1 //DataStore存在否？ IF isnull(ads_dest) OR not isValid(ads_dest) THEN Return -1 END IF //欄位存在否？ li_ColCount = integer(ads_dest.Describe("datawindow.column.count")) IF li_ColCount <= 0 THEN Return -1 ll_totl = 0 //取得欄位屬性 FOR li_Col=1 TO li_ColCount ls_colname[li_Col] = ads_dest.Describe("#" + string(li_Col) + ".Name") ll_collimit[li_Col] ...