很簡單

If InvoMode <> 1 Then   ' 因為1=僅發票，沒有明細，所以不需要處理明細資料
    ' 整理明細資料  === { === {===========
    For Each eDT As eInvoiceDetail_ST In .INVD
        DT_str_tmp = DT_mod

        ' 如果品名超過10個字，就把下方多出一行空行
        If eDT.ITEMNAME.Length >= 10 Then DT_str_tmp = DT_str_tmp.Replace("", "" & vbCrLf & "s,9,0,0,0, ")

        DT_str_tmp = DT_str_tmp.Replace("", eDT.ITEMNAME)
        DT_str_tmp = DT_str_tmp.Replace("", eDT.ITEMNAME)
        DT_str_tmp = DT_str_tmp.Replace("", eDT.QTY)
        DT_str_tmp = DT_str_tmp.Replace("", eDT.UPR.ToString("###,###").Replace(",", "{/c}"))
        DT_str_tmp = DT_str_tmp.Replace("", eDT.AMT.ToString("###,###").Replace(",", "{/c}"))
        DT_str_tmp = DT_str_tmp.Replace("", eDT.AMT.ToString("###,###").Replace(",", "{/c}"))

        If DT_str <> "" Then DT_str &= vbCrLf
        DT_str &= DT_str_tmp

        ' 如果是最後一筆明細，就不要再加上短分隔符號了
        If eDT.SEQ = .INVD.Count - 1 Then DT_str_tmp = DT_str_tmp.Replace("p," & vbCrLf, Nothing)
    Next

    ' 把整理好的明細資料塞到PrintDataStr中，取代掉原本裡面的明細內容母版
    PrintDataStr = PrintDataStr.Replace(DT_mod, DT_str)

    ' 移除明細區段標籤
    PrintDataStr = PrintDataStr.Replace("" & vbCrLf, Nothing).Replace("" & vbCrLf, Nothing)
End If

程式碼區塊可以設計三種不同樣式隨意使用。

[ 繼續閱讀... ]

文章預設的文字樣式

Fri 16, 2021

17:06

發布文章不要自由的設定各種字體樣式，不然後續處理工作很繁雜，字串取代和判斷也很麻煩，設定幾種可能會常用的預設的字體樣式，包成CSS來應用就好。

第一種，粗體
文章編輯時輸入[style bold]要處理的字串[/style]，輸出到網頁時被包圍的字串就會變粗體，以下其他文字效果使用方式，沒特別說明的話都是用這種方法套用。

第二種，斜體
輸入[style oblique]要處理的字串[/style]

第三種，底線
輸入[style underline]要處理的字串[/style]

第四種，刪除線
輸入[style lt]要處理的字串[/style]

第五種，文字色
輸入[style font_red]這是紅色[/style]，可設定多種顏色對應。

第六種，底色
輸入[style bc_red]這是紅色[/style]，可設定多種顏色對應。

第七種，文字大小
輸入[style FS_6]稍大字體[/style]，可設定多種顏色對應。

第八種，程式碼區塊

使用[code1][/code]包住的文字內容就會被獨立出一個區塊

這區塊很適合用來記錄程式碼

可以設計code1 ~ code n多種樣式，目前只有一種

第九種，插圖
使用[img url=圖片位址]可插入圖片，圖片寬度最大為文章版面的90%，高度最大為460px，過寬或過高會自動等比縮小。

第十種，連結
使用[a url=連結網址 title=游標靠近時文字][/a]包圍的文字可變成超連結
固定皆為新視窗開啟連結
title可拿掉不設定

[ 繼續閱讀... ]

文字樣式綜合應用

Fri 16, 2021

17:06

橫紋肌溶解症是指骨骼肌（橫紋肌）發生急速的損傷，導致肌肉細胞壞死、細胞膜破裂。肌肉細胞會釋出大量鉀離子，濃度過高將造成高血鉀症，引發心律不整；細胞內肌球蛋白也會造成腎毒性，加上細胞釋放大量尿酸，若無法及時排出，都可能損害腎機能，甚至導致急性腎臟衰竭。

[ 繼續閱讀... ]