?

???????????????????? 編號：（2009交）價確字第?　?號

? 鄧征兵 ?? ：

根據(jù)您的委托，我單位派遣專業(yè)評估人員對位于 ?? 大祥區(qū)翠園? ??? 的房地產(chǎn)（《房屋所有權證》）號為 0013210 ，房屋所有權人 ?? 鄧文兵 ?? 房屋所在層次/總層數(shù) ?6 / ?8 ，進行了現(xiàn)場勘估。

評定估價對象房屋的結構等級為 ???? 磚混 ????? ，建成年代為 ? 90年代末 ?? ，成新度為 ?? 9成 ??? 。

確認房屋價值如下表：

這里有個EXCEL表格

監(jiān)證目的：交易課稅

?

備注： ?????????? ?????????????????????????????????? ??????

???????????????????? ??????????????????????????????????

邵陽市房產(chǎn)產(chǎn)權監(jiān)理處價格管理科

現(xiàn)場評估： 黃生忠

審??? 批：

?? ???????????????????????????? 　2009 年 2 月 10 日

就是把這個文件中相關內容存入數(shù)據(jù)庫，同時要能夠實現(xiàn)查詢，比如根據(jù)委托人查詢，同時要把查詢的結果能轉EXCEL。

功能就是這樣的，先把其中用到的技術點挑出來，

一讀WORD里的內容，這個并不難；

?

Code
Microsoft.Office.Interop.Word.ApplicationClass?wordApp? = ? new ?Microsoft.Office.Interop.Word.ApplicationClass();
???????????? object ?file? = ?nam;
???????????? object ?nullobj? = ?System.Reflection.Missing.Value;
???????????? try
????????????{
????????????????Microsoft.Office.Interop.Word.Document?doc? = ?wordApp.Documents.Open(
???????????????? ref ?file,? ref ?nullobj,? ref ?nullobj,
???????????????? ref ?nullobj,? ref ?nullobj,? ref ?nullobj,
???????????????? ref ?nullobj,? ref ?nullobj,? ref ?nullobj,
???????????????? ref ?nullobj,? ref ?nullobj,? ref ?nullobj,? ref ?nullobj,? ref ?nullobj,? ref ?nullobj,? ref ?nullobj);

???????????????? // doc.ActiveWindow.Selection.WholeStory();
????????????????
???????????????? // doc.ActiveWindow.Selection.Copy();

???????????????? // IDataObject?data?=?Clipboard.GetDataObject();
????????????????
????????????????fileContent? = ?doc.Content.Text;??? // 這里讀取所有的WORD里的文本?????????????
}

?

二讀WORD文件里EXCEL里的數(shù)據(jù)，這個是比較困難的，我試了很多方式，也沒有查到相關的資料，最后在國外論壇上看見了VB的代碼，然后修改了一下，可以用；

?

Code
foreach ?(Microsoft.Office.Interop.Word.InlineShape?ish? in ?doc.InlineShapes)
????????????????{
???????????????????? if ?(ish.Type? == ?Microsoft.Office.Interop.Word.WdInlineShapeType.wdInlineShapeEmbeddedOLEObject)
????????????????????{
???????????????????????? if ?(ish.OLEFormat.ProgID? == ? " Excel.Sheet.8 " )
????????????????????????{
???????????????????????????? // ish.OLEFormat.DoVerb(ref?nullobj);

????????????????????????????ish.OLEFormat.Activate();
????????????????????????????Microsoft.Office.Interop.Excel.Workbook?objEXl? = ?(Microsoft.Office.Interop.Excel.Workbook)ish.OLEFormat.Object;
????????????????????????????buildArea? = ?((objEXl.Worksheets[ 1 ]? as ?Microsoft.Office.Interop.Excel.Worksheet).Cells[ 2 ,? 2 ]? as ?Microsoft.Office.Interop.Excel.Range).Text.ToString();
???????????????????????????? if ?(buildArea? != ? "" )
????????????????????????????{
????????????????????????????????buildUnitPrice? = ?((objEXl.Worksheets[ 1 ]? as ?Microsoft.Office.Interop.Excel.Worksheet).Cells[ 2 ,? 3 ]? as ?Microsoft.Office.Interop.Excel.Range).Text.ToString();
????????????????????????????????buildCountPrice? = ?((objEXl.Worksheets[ 1 ]? as ?Microsoft.Office.Interop.Excel.Worksheet).Cells[ 2 ,? 4 ]? as ?Microsoft.Office.Interop.Excel.Range).Text.ToString();
????????????????????????????????userKind? = ? " 住宅 " ;
????????????????????????????}
???????????????????????????? else
????????????????????????????{
????????????????????????????????buildArea? = ?((objEXl.Worksheets[ 1 ]? as ?Microsoft.Office.Interop.Excel.Worksheet).Cells[ 3 ,? 2 ]? as ?Microsoft.Office.Interop.Excel.Range).Text.ToString();
????????????????????????????????buildUnitPrice? = ?((objEXl.Worksheets[ 1 ]? as ?Microsoft.Office.Interop.Excel.Worksheet).Cells[ 3 ,? 3 ]? as ?Microsoft.Office.Interop.Excel.Range).Text.ToString();
????????????????????????????????buildCountPrice? = ?((objEXl.Worksheets[ 1 ]? as ?Microsoft.Office.Interop.Excel.Worksheet).Cells[ 3 ,? 4 ]? as ?Microsoft.Office.Interop.Excel.Range).Text.ToString();
????????????????????????????????userKind? = ? " 非住宅 " ;
????????????????????????????}????????????????????????????
????????????????????????????objEXl.Application.Quit();????????????????????????????
????????????????????????}
????????????????????}
????????????????}

?

三正則表達式的應用，我要獲取比如鄧征兵這個委托人，我不可能用SUBSTRING來取數(shù)據(jù)吧，這樣效果太低了；

?

Code
Regex?reg1? = ? new ?Regex( " [\u4E00-\u9FFF]+ " ,?RegexOptions.IgnoreCase);
????????????????userName? = ?reg1.Match(doc.Paragraphs[ 4 ].Range.Text).Value.Trim(); // 委托人
????????????????Regex?reg2? = ? new ?Regex( " 評估人員對位于([\\S|\\s]+)的房地產(chǎn) " ,?RegexOptions.IgnoreCase);
????????????????HouseAddr? = ?reg2.Match(fileContent).Groups[ 1 ].Value.Trim(); // 房子地址doc.Paragraphs[5].Range.Text
????????????????Regex?reg3? = ? new ?Regex( " 號為([\\S|\\s]+)，房屋所有權人 " ,?RegexOptions.IgnoreCase);
????????????????propertyNo? = ?reg3.Match(fileContent).Groups[ 1 ].Value.Trim(); // 房產(chǎn)證號doc.Paragraphs[5].Range.Text
????????????????Regex?reg4? = ? new ?Regex( " 房屋所有權人([\\S|\\s]+)房屋所在層次 " ,?RegexOptions.IgnoreCase);
????????????????propertyUser? = ?reg4.Match(fileContent).Groups[ 1 ].Value.Trim(); // 房屋所有權人doc.Paragraphs[5].Range.Text
????????????????Regex?reg5? = ? new ?Regex( " 層次/總層數(shù)([\\S|\\s]+)，進行了現(xiàn)場勘估 " ,?RegexOptions.IgnoreCase);
????????????????buildCount? = ?reg5.Match(fileContent).Groups[ 1 ].Value.Trim(); // 層次/總層數(shù)doc.Paragraphs[5].Range.Text
????????????????Regex?reg6? = ? new ?Regex( " 建成年代為([\\S|\\s]+)，成新度為 " ,?RegexOptions.IgnoreCase);
????????????????buildYear? = ?reg6.Match(fileContent).Groups[ 1 ].Value.Trim(); // 建成年代doc.Paragraphs[6].Range.Text
????????????????Regex?reg7? = ? new ?Regex( " 現(xiàn)場評估：([\\S|\\s]+)審 " ,?RegexOptions.IgnoreCase);
????????????????evaluateUser? = ?reg7.Match(fileContent).Groups[ 1 ].Value.Trim(); // 現(xiàn)場評估doc.Paragraphs[13].Range.Text
????????????????Regex?reg8? = ? new ?Regex( " [\\d|\\s]+年[\\d|\\s]+月[\\d|\\s]+日 " ,?RegexOptions.IgnoreCase);
????????????????evaluateDate? = ?reg8.Match(fileContent).Value.Trim(); // doc.Paragraphs[15].Range.Text.Trim()時間

四轉EXCEL，網(wǎng)上很多人都是用datagrid直接轉EXCEL，這樣只能倒出第一頁的數(shù)據(jù)，不適合我的程序；

?

Code
DataTable?dt? = ?GetAllData();
????????StringWriter?sw? = ? new ?StringWriter();
????????sw.WriteLine( " 序號\t委托方\t產(chǎn)權人\t產(chǎn)權證號\t房屋座落\t建筑面積(平方米)\t建成年代\t層次/層數(shù)\t使用性質\t評估單價(元/平方米)\t評估總價值(元)\t現(xiàn)場評估人員\t評估日期\t備注 " );

???????? if ?(dt? != ? null )
????????{
???????????? foreach ?(DataRow?dr? in ?dt.Rows)
????????????{
????????????????sw.WriteLine(dr[ " id " ]? + ? " \t " ? + ?dr[ " userName " ]? + ? " \t " ? + ?dr[ " propertyUser " ]? + ? " \t " ? + ?dr[ " propertyNo " ]? + ? " \t " ? +
????????????????????dr[ " HouseAddr " ]? + ? " \t " ? + ?dr[ " buildArea " ]? + ? " \t " ? + ?dr[ " buildYear " ]? + ? " \t " ? + ?dr[ " buildCount " ]? + ? " \t " ? +
????????????????????dr[ " userKind " ]? + ? " \t " ? + ?dr[ " buildUnitPrice " ]? + ? " \t " ? + ?dr[ " buildCountPrice " ]? + ? " \t " ? + ?dr[ " evaluateUser " ]
???????????????????? + ? " \t " ? + ?dr[ " evaluateDate " ]? + ? " \t " ? + ? "" );
????????????}
????????}
????????sw.Close();
????????Response.AddHeader( " content-disposition " ,? " attachment;?filename=MyExcelFile.xls " );
????????Response.ContentType? = ? " application/excel " ;
????????Response.ContentEncoding? = ?System.Text.Encoding.GetEncoding( " GB2312 " );
????????Response.Write(sw);
????????Response.End();

五，KILL進程，我在查看WORD里EXCEL里的數(shù)據(jù)的時候，無法關閉EXCEL，需要用程序來關閉；

?

Code
public ? void ?KillProcess( string ?processName)
????{
????????System.Diagnostics.Process?myproc? = ? new ?System.Diagnostics.Process();
???????? // 得到所有打開的進程??
???????? try
????????{
???????????? foreach ?(Process?thisproc? in ?Process.GetProcessesByName(processName))
????????????{
???????????????? if ?( ! thisproc.CloseMainWindow())
????????????????{
???????????????????? if ?(thisproc? != ? null )
????????????????????????thisproc.Kill();
????????????????}
????????????}
????????}
???????? catch ?(Exception?Exc)
????????{
???????????? throw ?Exc;
???????????? // ?msg.Text+=??"殺死"??+??processName??+??"失敗！";??
????????}
????}??

C#調用WORD處理的小項目 轉