Office中国论坛/Access中国论坛

标题: 如何將文字檔轉入 Access 資料庫？(三)[转帖] [打印本页]

作者: duzili 时间: 2003-12-22 03:22
标题: 如何將文字檔轉入 Access 資料庫？(三)[转帖]

主題：如何將文字檔轉入 Access 資料庫？(三)
來源：Spencer Yang
版本：VB6

--------------------------------------------------------------------------------

程度：初級。

參考資料：王國榮編著《Visual Basic 6.0 實戰講座》第八章〈VB的檔案操作系統〉。

1.前言

在【個個擊破】單元中的問題 273、274 分別介紹有「分隔符號的文字檔轉入資料庫」及「有分隔符號的文字檔轉入資料庫」；上述二種方式，若文字檔之有中文字時，往往會發生轉檔錯誤。因此本主題是對「固定長度的文字檔，但文字檔之中的有困擾程式設計師的中文字」提出解決方案。

2.文字檔的整理

在網路公布的文字檔，為了便於閱讀起見，都會適當予以整理成報表型態。但是將報表轉成文字檔時，往往要反向操作，去除多餘部分，加上部份欄位。因此，作者拿一個典型、且與實務有關文字檔，實驗對象為台灣證券交易所股份有限公司每月中旬公告的『新增及刪除部分上市、上櫃證券及未上市、未上櫃公開發行證券國際證券辨識號碼 (ISIN CODE)』。文字檔的整理步驟為：

※至該網站下載資料；(其報表節錄如下)

            本國上市證券、上櫃證券
            國際證券辨識號碼新增一覽表
            89/4/1 -- 89/4/30
國內證券編碼及名稱    國際證券辨識號碼(ISIN Code)    上市(櫃)日    備註
上市股票及權利證書
2308U 達電丁       TW0002308U01                   89/04/07       新上市
2340T 光磊丙       TW0002340T04                   89/04/17       新上市
2310T 旭麗丙       TW0002310T00                   89/04/15       新上市
2343V 精業戊       TW0002343V07                   89/04/08       新上市
2346V 源興戊       TW0002346V04                   89/04/17       新上市
2329U 華泰丁       TW0002329U06                   89/04/15       新上市
2406 國碩科技       TW0002406006                   89/04/29       新上市
※使用【漢書】或者【PE3】等舊文書軟體刪除多餘的表頭、表尾及文字敘述，只留下資料本身；在實務裡 PE3還是有其方便性，尤其針對資料對齊部分，是其他複雜軟體做不到的。

※增加是否新增刪除(="A" OR "D")；是否存在(="Y" OR "N")；類別。刪除備註欄。

※利用游標檢查其各欄位置是否符合轉檔要求。整理後格式如下：

AY102308U 達電丁    TW0002308U0189/04/07
AY102340T 光磊丙    TW0002340T0489/04/17
AY102310T 旭麗丙    TW0002310T0089/04/15
AY102343V 精業戊    TW0002343V0789/04/08
AY102346V 源興戊    TW0002346V0489/04/17
AY102329U 華泰丁    TW0002329U0689/04/15
AY102406 國碩科技 TW000240600689/04/29
3.文字檔轉檔

由於涉及資料有新增資料及刪除舊有資料－比如下市、下櫃、期限己至等因素，為了資料安全性，採用先存檔至暫存表，然後利用程式依據第一欄的新增(="A")或刪除(="D")條件，再新增至正式資料表或更新資料表。有關暫存表轉入正式資料表工作有其複雜性，在此不予深入說明。

下載範例程式碼
http://www.vbguide.com.tw/howto/300/data/impdb3.zip
4.. 重要程式碼說明

4.1 處理中文部分函數，是由網友 Kevin 提供。

'=============================================================
' 目       的: 轉入資料
' 參考資料: Asc在非雙位元組字元集系統下，其傳回範圍為 0 – 255。
'                若在雙位元組字元集系統下，則為 -32768 - 32767。
' 日    期 : 2000/05/10
' 來    源 : kevinltb@hotmail.com
'=============================================================
Public Function GetWord(ByVal strData As String, _
         ByRef intStart As Integer, ByVal intLen As Integer) As String

Dim intLoop As Integer
Dim strTemp As String

intLoop = 0
Do While intLoop <= intLen - 1
      strTemp = Mid(strData, intStart + intLoop, 1)

      If Asc(strTemp) < 0 Then
         intLen = intLen - 1 ' 如果字元是中文
      End If
      GetWord = GetWord + strTemp
      intLoop = intLoop + 1
Loop
intStart = intStart + intLoop
End Function
4.2 轉檔程式碼

與【個個擊破】單元中的問題 273、274 有所不同之處，使用到 TextStream、GetWord 函數及加入轉檔失敗時，回復原狀功能。

Private Sub cmdImport_Click()
Dim blnNeedRollback As Boolean
Dim fso As New FileSystemObject
Dim intPointer As Integer
Dim intLoop As Integer
Dim objConn As ADODB.Connection
Dim objRec As ADODB.Recordset
Dim strField(1 To 7) As String
Dim strInputLine As String
Dim txtf As TextS

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)