十月 2010 – 葛麗絲的分享世界

燻臍

發表於2010/10/31 由Grace撰寫

已經近3年沒燻臍，
今天晚上趁著弟弟在睡覺就再來試試，
雖然第一次弟弟忽然醒來只好再重弄一次，
第二次忘了中醫老師之前說的安全流程而不小心將衣服燒出一個小洞(鳴，我還滿喜歡這件衣服的，所以還會繼續穿)，
最後還是燻臍了20分鐘(玉石上有點溼溼的，應該是有點脾溼吧~~)，
也將之前的筆記拿出來複習一下~~

炙(艾草—補，治寒，深層)
骨頭酸痛==>寒病熱治==>以艾草(艾條)炙之(曬7*7=49天，再磨成粉狀)

◆ 艾草功用(可燻臍)
艾草本身為暖子宮要藥，可聞、可吃
點過的灰：蟑螂、螞蟻不會來
可聞：防蚊、香港腳

1. 避邪：端午節，五月天溼氣重，會有傳染病(疫)；點艾草，或將艾草放在紅包袋放在身上(掃墓、去醫院看病)
2. 行氣
3. 通經絡
4. 消炎：針對急性腸炎、腹痛、腹瀉等症狀
5. 止痛：腸炎
6. 止崩漏(或止流產)：月經來超過4-7天，則可炙隱白穴(脾經)，則MC會收縮。
7. 轉胎：胎位不正，也是炙隱白穴

◆ 燻臍療效(藥粉)
1. 防治疾病：防治子宮肌瘤、子宮內膜異位。
2. 改善體質：胖變瘦，瘦抵抗力變強，增加腸胃臑動，對氣血異常，腸胃不好的人最好。
3. 增強免疫
4. 增加體力
5. 養顏美容
6. 美白瘦身
7. 加強受孕
8. 延年益壽

◆ 隔鹽炙：治急性腸炎
將鹽填入臍中，上置姜片，姜上點燃艾絨炙之。
1星期3次，每次20分鐘。

◆ 可吃，加温開水坐著吃(去溼)

◆ 若要身體安，膏肓三里不要乾
炙足三里可防癌，但炙後不要碰到水。
孕婦、失去知覺、皮膚病、血壓正升高、糖尿病(不可燙傷)等不可炙之。

程式分享

[Excel VBA]將一個xls檔案內的100多個sheet轉換成1個sheet

發表於2010/10/29 由Grace撰寫

為了將一個xls檔案內的100多個sheet轉換成1個sheet，
以方便列印節省紙張，
試出來的方法~~

Sub 按鈕1_Click()
    On Error Resume Next
    Dim xlBook As Workbook
    Set xlBook = Workbooks.Open("欲轉換的來源檔.xls")

    Dim DestSh As Worksheet
    Set DestSh = ActiveWorkbook.Sheets(1)
    DestSh.Name = "匯總"

    Dim sheet As Worksheet
    Dim Last As Long
    Dim shLast As Long
    shLast = 1

    For Each sheet In xlBook.Worksheets
        Last = LastRow(sheet)
        Dim CopyRng As Range

        Set CopyRng = sheet.UsedRange

        If Last + shLast > DestSh.Rows.Count Then
            MsgBox "內容太多放不下啦!"
            Exit Sub
        End If

        CopyRng.Copy

        With DestSh.Cells(shLast + 1, 1)
            .PasteSpecial Paste:=xlPasteFormats
            '.PasteSpecial Paste:=xlPasteValues
            .PasteSpecial Paste:=xlPasteAll
            Application.CutCopyMode = xlCopy
        End With

        shLast = shLast + Last
    Next
    MsgBox "已合併完成"
End Sub

Function LastRow(sh As Worksheet)
    LastRow = sh.Cells.Find(what:="*", _
                            After:=sh.Range("A1"), _
                            Lookat:=xlPart, _
                            LookIn:=xlFormulas, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False).Row
End Function

雜記

在2004年.Net剛出來時就花了6萬元去上MCSD .Net,
最後沒有去考而工作上也一直沒用到,
故當初上課的課本及自已買的書一直都放在書櫃沒有使用到,
因最近換工作開始使用C#、ASP.Net,
所以那些書又都可以拿出來看了,
只是這幾年程式開發的工具又做的更人性化了,
有些說明都有點對不起來了~~
這就是程式設計人員最辛苦的地方-要不斷的學習新技術,
即使已經在做系統規劃的人也要不斷學習新技術-否則開出來的規格會跟實際的技術偏離,
這樣就只能設計出不實用、落伍的系統了.
還有對所開發的domain know how也要很了解,
否則會在細微的地方出錯,
到時就會有抓不完的bug了~~
這也是我對於某些非資訊人員覺得從事IT的工作是很low end沒有價值很不能理解,
不過有人就說IT賺的是辛苦$,
從談規格、開發、上線、維運都有參與~~

養生

之前上中醫養生課程的筆記

發表於2010/10/202010/10/21 由Grace撰寫

之前為了生小孩除了看西醫做人工、試管外，
也有學了一些養生氣功、上了一些中醫的課，
將中醫課程的筆記整理如下，
因為中醫老師說能幫人是很幸福~~

程式分享

我的第1支C#程式-將多個word檔合併成一個

發表於2010/10/20 由Grace撰寫

一、畫面如下：

二、程式碼

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
//以下為新加入
using System.Reflection;
using System.IO;
using Word = Microsoft.Office.Interop.Word; //VS2005沒有此行，VS2008要用此行
//加入參考==>COM==>Microsoft Office 12.0 Object Library，自動產生參考Word

namespace WordMerge
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void MergeWord_Click(object sender, EventArgs e)
        {
            if (targetPath.Text.Trim().Length <= 0 || sourcePath.Text.Trim().Length <= 0 ||
                targetFileName.Text.Trim().Length <= 0)
            {
                MessageBox.Show(“資料不完整!");
                return;
            }

Object missing = Missing.Value;
object oOutputDoc = targetPath.Text.Trim() + @"\" + targetFileName.Text.Trim();

            Word.Application wordApp = new Word.Application();
            Word._Document word = wordApp.Documents.Add(ref missing, ref missing, ref missing, ref missing);

            object oPageBreak = Word.WdBreakType.wdPageBreak;

            string[] files = Directory.GetFiles(sourcePath.Text.Trim());
            for (int iIdx = 0; iIdx < files.Length; iIdx++)
            {
                wordApp.Selection.InsertFile(files[iIdx], ref missing, ref missing, ref missing, ref missing);
                wordApp.Selection.InsertBreak(ref oPageBreak);
                wordApp.ActiveDocument.SaveAs(ref oOutputDoc,
                                                ref missing, ref missing, ref missing,
                                                ref missing, ref missing, ref missing,
                                                ref missing, ref missing, ref missing,
                                                ref missing, ref missing, ref missing,
                                                ref missing, ref missing, ref missing);
            }
            wordApp.Quit(ref missing, ref missing, ref missing);

MessageBox.Show(“合併完成!");
}

        private void targetPathButton_Click(object sender, EventArgs e)
        {
            FolderBrowserDialog path = new FolderBrowserDialog();
            path.ShowDialog();
            this.targetPath.Text = path.SelectedPath;
        }

        private void sourcePathButton_Click(object sender, EventArgs e)
        {
            FolderBrowserDialog path = new FolderBrowserDialog();
            path.ShowDialog();
            this.sourcePath.Text = path.SelectedPath;
        }
    }
}