程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> C語言 >> 關於C語言 >> C#實現Word中表格信息讀取

C#實現Word中表格信息讀取

編輯:關於C語言

很多時候,會有很多信息存放在Word文檔中。而我們需要把這些信息提取出來,另做 它用。而Word的格式是ms的機密,不知道有沒有NB人可以對其做字符流的分析,反正我是 沒這能力也沒這打算。所以就只能用ms提供的組件來進行編程。但ms沒有提供托管的類庫 ,而是提供了對com組件的PIA轉換。具體添加,使用和相關知識,可以參見kaneboy's blog中的http://blog.joycode.com/kaneboy/articles/67688.ASPx。高手的講解,很是 清晰。

而我想做的是對Word文檔中的表信息進行提取。網上很難找到相關的代碼(打開一個 已有文檔,對其內容進行分析),但我覺得這種工作是很有意義的。寫了一段小的Demo, 如下:

object oFileName = @"C:\Documents and Settings\liush\My Documents\TestDoc.doc";
object oReadOnly = true;
object oMissing = System.Reflection.Missing.Value;
Word._Application oWord;
Word._Document oDoc;
oWord = new Word.Application();
oWord.Visible = true;//只是為了方便觀察
oDoc = oWord.Documents.Open(ref oFileName, ref oMissing, ref oReadOnly, ref oMissing, ref oMissing,
    ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing);
//MessageBox.Show(oDoc.Tables.Count.ToString());
for (int tablePos = 1; tablePos <= oDoc.Tables.Count; tablePos++)
{
    Word.Table nowTable = oDoc.Tables.Item(tablePos);
    string tableMessage = string.Format("第{0}/{1}個表:\n", tablePos, oDoc.Tables.Count);
    for (int rowPos = 1; rowPos <= nowTable.Rows.Count; rowPos++)
    {
for (int columPos = 1; columPos <= nowTable.Columns.Count; columPos++)
{
tableMessage += nowTable.Cell(rowPos, columPos).Range.Text;
tableMessage = tableMessage.Remove(tableMessage.Length - 2, 2);//remove \r\a
tableMessage += "\t";
}
tableMessage += "\n";
    }
    MessageBox.Show(tableMessage);
}

如果看過了上面kaneboy的文章(這是一個系列的之一),再看這段代碼應該不會很難 理解。打開一個已有文檔,然後遍歷其中的所有的表。這裡只是簡單的將信息顯示出來, 具體實踐上可以對這些信息進行分析。做完這些後,終於找到了一些官方的支持文檔,地 址如下:

http://msdn2.microsoft.com/zh-CN/library/y1xatbkd.ASPx

其中的word任務有對Word各種操作的簡單代碼事例,用vb和c#寫的。看完之後,我想 每個人都會明白vb對com的支持比c#不是簡單明了一點兩點。(可以看下這個 http://blog.joycode.com/kaneboy/archive/2005/08/03/61489.ASPx)同樣的代碼,用 vb實現打開Word文檔的操作,代碼如下:

Dim fileName As String = "C:\Documents and Settings\liush\My Documents\TestDoc.doc"
Dim isReadOnly As Boolean = True
Dim wordApplication As Word.Application = New Word.Application()
Dim wordDocument As Word.Document
WordApplication.Visible = True
wordDocument = WordApplication.Documents.Open(fileName, , isReadOnly)

所以,下次我要做COM操作的時候,我還會回歸我可愛的VB的。但是,用了太久的C#毛 病越來越多了,動不動就習慣性加括號,加分號。。。

PS:這些工作是幫我老媽做的。她們資料室想把資料目錄信息存入數據庫,然後建立 網站方便檢索和管理。這些目錄信息原先是存放在Word文檔中的。這是她們第一次數字化 的結果,那一次她們把一大堆紙質資料變成了word文檔。在她們的當時理解中,數字化就 是按照原來的東西,連格式都不變的變成Word文檔就好。現在他們對這些難於維護,難於 檢索的東西終於失去了耐性,開始考慮數據庫和網絡了。也許數字化也是一個思維逐步轉 變的過程。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved