伊のspace～芳香精油＊美容保養＊程式設計

程式開發手冊 : 

http://4js.com/online_documentation/fjs-fgl-2.50.01-manual-html/

(直接看重點) http://4js.com/online_documentation/fjs-fgl-2.50.01-manual-html/#c_fgl_section_language_basics.html

程式錯誤訊息 : 

#string split function
#ignore empty value
#p_arg1: input value1 STRING
#p_arg2: input value2 STRING
#r_arr: return value1 DYNAMIC ARRAY OF STRING
#Example: CALL split(str1, str2, arr1)
#   str1 = 'abc-def--1-2'
#   str2 = '-'
#   arr1.getLength() = 4
#   arr1[1] = abc , arr1[2] = def , arr1[3] = 1 , arr1[4] = 2
FUNCTION split(p_arg1,p_arg2,r_arr)
    DEFINE p_arg1   STRING
    DEFINE p_arg2   STRING
    DEFINE r_arr    DYNAMIC ARRAY OF STRING
    DEFINE l_cnt    INTEGER
    DEFINE l_str    STRING
    DEFINE tok      base.StringTokenizer

    CALL r_arr.clear()
    
    LET tok = base.StringTokenizer.create(p_arg1,p_arg2)
    LET l_cnt = tok.countTokens()
    
    IF cl_null(p_arg2) OR l_cnt <= 0 THEN
        RETURN
    ELSE
        WHILE tok.hasMoreTokens()
            LET l_str = tok.nextToken()
            LET l_str = l_str.trim()
            IF NOT cl_null(l_str) THEN
                CALL r_arr.appendElement()
                LET r_arr[r_arr.getLength()] = l_str
            END IF
        END WHILE
    END IF
END FUNCTION

using System.Runtime.InteropServices;

[DllImport("kernel32", CharSet = CharSet.Auto, SetLastError = true)]
private static extern int LCMapString(int locale, int dwMapFlags, string lpSrcStr, int cchSrc,
                                                                          [Out] string lpDestStr, int cchDest);

public static string ToSimplified(string argSource)
{
        var t = new String(' ', argSource.Length);
        LCMapString(LocaleSystemDefault, LcmapSimplifiedChinese, argSource, argSource.Length, t, argSource.Length);
        return t;
}

public static string ToTraditional(string argSource)
{
        var t = new String(' ', argSource.Length);
        LCMapString(LocaleSystemDefault, LcmapTraditionalChinese, argSource, argSource.Length, t, argSource.Length);
        return t;
}

Excel.Application xlApp = new Excel.Application();
Excel.Workbook xlWorkBook = xlApp.Workbooks.Add(misValue); //Create new Excel
Excel.Worksheet xlWorkSheet= (Excel.Worksheet)xlWorkBook.Worksheets.get_Item(1); //取第一個Sheet

//指定列高, Object的高度約55像素, 這裡用第3列為範例
((Excel.Range)xlWorkSheet.Rows["3:3", System.Type.Missing]).RowHeight = 55;

//取得位置, 這裡用H3為範例
Excel.Range ColH = xlWorkSheet.get_Range("H3");

//Add OLE Object
xlWorkSheet.Shapes.AddOLEObject(ClassType: Type.Missing
        , Filename: Directory.GetCurrentDirectory() + "\\PDF檔案名稱.pdf"
        , Link: false
        , DisplayAsIcon: true
        , IconFileName: Directory.GetCurrentDirectory() + "\\PDF的Icon檔案名稱.ico"
        , IconIndex: "0"
        , IconLabel: "這裡可以寫字"
        , Left: ColH.Left //放 OLE Object 的位置
        , Top: ColH.Top //放 OLE Object 的位置
        //, Width: 15 //有設定Icon時, Width/Height的設定貌似無效
        //, Height: 15 //有設定Icon時, Width/Height的設定貌似無效
);

//xlWorkSheet.Cells.EntireRow.AutoFit(); //自動列高, 因為有指定列高, 這邊不設定自動
xlWorkSheet.Cells.EntireColumn.AutoFit(); //自動欄寬

//另存新檔
xlWorkBook.SaveAs(@"存檔路徑 \\172.16.0.11\Report\", Excel.XlFileFormat.xlWorkbookNormal, misValue, misValue, misValue, misValue, Excel.XlSaveAsAccessMode.xlExclusive, misValue, misValue, misValue, misValue, misValue);

//關閉
xlWorkBook.Close(true, misValue, misValue);
xlApp.DisplayAlerts = false;
xlApp.Quit();

//釋放
releaseObject(xlWorkSheet);
releaseObject(xlWorkBook);
releaseObject(xlApp);


private void releaseObject(object obj)
{
        try
        {
                System.Runtime.InteropServices.Marshal.ReleaseComObject(obj);
                obj = null;
        }
        catch (Exception ex)
        {
                obj = null;
                Console.WriteLine("Unable to release the Object " + ex.ToString());
        }
        finally
        {
                GC.Collect();
        }
}

Xml File 內容 :

<?xml version="1.0" standalone="yes"?>
<table1>
    <Name>Alice</Name>
    <Mail>alice@mail.com</Mail>

一直很猶豫要不要寫這篇文章來記錄使用心得 (因為是大雷)

但為了自己回憶方便, 還是稍微寫一篇簡短的心得吧~

會購買這支產品, 是因為本身肌膚非常的不吃妝, 有色的 防曬 / 粉底 / BB霜 / CC霜...等, 擦上去都會浮粉浮的很恐怖.

很認真的上網爬文, 發現到處都大推這支產品, 而且網路上也很少有人表示 使用過敏 / 爆痘 / 爆粉刺.

功能說明 : 避免程式被不小心關閉(按右上角的[X]會縮小, 不會關閉), 不要佔用下方工具列, 縮小到系統匣, 縮小時右下角出現提示訊息.

其他功能說明 : 複製指定檔案, 指定來源及目的路徑, 會遞迴往下尋找資料夾, 目的路徑自動複製來源資料夾的結構.

config : 指定檔案, 指定來源及目的路徑.

我的防曬產品是在非常的多啊...

看到新鮮貨 或 被小姐推銷, 很容易就買了, 但是又都懶得擦, 存貨一堆呢! (請看存貨圖XD)