 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 1 樓
|
 發表於: 星期三 四月 19, 2006 1:30 am 文章主題: 轉換 clipper 資料到 foxpro |
 |
|
最近須要將客戶的 clipper 資料轉入 vfp 裡使用.
一般欄位是沒什麼問題,
但 memo 欄就讀不出來,
本來想找可以讀clipper檔的odbc程式,
但並不容易找得到免費的.
發現用 dbf viewer 2000 有30天試用版,
可以將clipper的dbf轉成 vfp3.0格式的dbf,
雖然還要將3.0格式轉成6.0的格式,
但已經覺得比自已寫程式方便多了.
但use時卻出現錯誤, 訊息如下:
此檔案與目前版本的 Visual FoxPro 不相容。請執行30UPDATE.PRG以便將檔案更新為目前的版本。（錯誤 1748）
30update.prg 在那裡呢?
請問有誰知道呢?
dbf viewer 2000 30天試用版下載點: http://www.dbf2002.com/DBFVIEW.EXE
_________________
利用>>搜尋<<的功能會比問的還要快得到答案.
garfield 在 星期三 四月 19, 2006 10:11 am 作了第 1 次修改 |
|
| 回頂端 |
|
 |
randy
註冊時間: 2004-08-13
文章: 2
第 2 樓
|
| 發表於: 星期三 四月 19, 2006 9:30 am 文章主題: Re: 轉換 clipper 資料到 foxpro |
|
|
| garfield 寫到: | 最近須要將客戶的 clipper 資料轉入 vfp 裡使用.
一般欄位是沒什麼問題,
但 memo 欄就讀不出來 |
memo欄讀不出來是因為字碼的問題。
我自己寫一個C程式用來轉IBM555 to Big5 字碼，
再用VFP程式呼叫C程式的執行檔轉DBF檔，這樣就可以了。
試看看附件檔案的執行檔吧！ |
|
| 回頂端 |
|
|
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 3 樓
|
| 發表於: 星期三 四月 19, 2006 10:10 am 文章主題: |
|
|
謝謝分享,
有試轉看看,
運作原理應該是先將dbf轉成text檔,
再將text檔轉到 vfp的dbf檔裡,
但......
memo欄位還是沒有轉.
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
randy
註冊時間: 2004-08-13
文章: 2
第 4 樓
|
| 發表於: 星期三 四月 19, 2006 1:08 pm 文章主題: |
|
|
| 檔案可以傳上來試試嗎？ |
|
| 回頂端 |
|
|
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 5 樓
|
| 發表於: 星期三 四月 19, 2006 2:46 pm 文章主題: |
|
|
傳上一個有memo欄位的檔案,
它只有3筆資料.
試看看吧!
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 6 樓
|
| 發表於: 星期三 四月 19, 2006 6:08 pm 文章主題: |
|
|
先寫一個將memo轉文字檔的程式,
不然工作做不下去了,
目前只能一次轉一筆record的某一個欄位,
使用方法是須在 vfp裡open table後
逐筆執行 getmemo ,
傳 clipper dbf檔名 , recno() ,, memo欄位名
產生dbf檔名.txt 後,
再用 filetostr(dbf檔名.txt )取出文字內容放入foxpro table的 memo欄位裡,
過程有點複雜, 如果能結合 randy 的程式,
那就可以一次轉出多個table了.
getmemo.prg 須用 clipper 編繹,
也可直接使用我所附的執行檔
| 代碼: |
para mdbf , mntx , mvalue , memofield
* �{式功能: 將 clipper 的memo欄位轉到文字檔, 方便其它�{式將資料轉入
* programer: garfield
if empty( mdbf )
text
* 參數說明:
* 1.mdbf : clipper的table
* 2.mntx : 索引檔名須含.ntx , �]可傳欄位名稱表示直接用欄位名稱來做搜尋, 另外�]可以傳第幾個 recno , 就不用seek
* 3.mvalue : 搜尋值
* 4.memofield : 將這個memo欄位的資料轉成 &mdbf..txt
endtext
return .f.
endif
if !file( mdbf)
if !file(mdbf+'.dbf')
wait 'file not found :('+ mdbf+')'
return .f.
endif
endif
set excl off
use &mdbf alias mdbf
mtextfile = iif(right(lower(mdbf),4)='.dbf', left( mdbf , len(mdbf)-4) , mdbf )+'.txt'
if type( 'mntx' )='N'
go mtx
else
if val( mntx)>0
go val(mntx)
else
if !file( mntx )
musefield=.t.
? 'locate for '+mntx , '=', mvalue
locate for &mntx = mvalue
else
musefield = .f.
set index to &mntx
seek mvalue
endif
endif
endif
dele file &mtextfile
if eof()
mh = fcreate( mtextfile)
fclose( mh )
use
return .t.
endif
return memowrit( mtextfile , trim( &memofield))
|
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
朱育興
註冊時間: 2003-08-25
文章: 661
來自: 台中市大里區
第 7 樓
|
| 發表於: 星期三 四月 19, 2006 11:39 pm 文章主題: |
|
|
>> 目前只能一次轉一筆record的某一個欄位 <<
應該可以用 LIST FIELDS <想要倒出資料的附註欄位名稱> ... TO FILE <檔案名稱>
一次就把該附註欄位的內容存入文字檔中...
_________________
希望有更多人來參與
VFP wiki - 需要大家一起完成的VFP電子書與FAQ |
|
| 回頂端 |
|
|
小賴
註冊時間: 2004-12-27
文章: 477
第 8 樓
|
| 發表於: 星期四 四月 20, 2006 9:15 am 文章主題: |
|
|
clipper 不是有MemoLine(), MLCount()二函數可用嗎?
將PUR.DBF REM_MEMO欄位一行一行讀出, 讀出的每一行
再另存於另一DBF之欄位
1. 先作一PurTest.DBF
RENO : 對應到PUR之RECNO()
CONTENT : REM_MEMO 部分內容
2. CLIPPER 程式片斷如下
3. 結果存於PurTest.DBF 請驗收
4.相信您看了PurTest.DBF之內容, 接下來於VFP應沒問題吧!
PS Content欄位大小應75-80才不會發生中文字被截斷
同樣MemoLine, MLCount 截取字數也要對等設定
Clipper LINK 時 Extend.LIB可能需含入
| 代碼: |
select 0
use purtest
ZAP
select 0
use pur
go top
do while (! eof())
nRENO = RECNO()
lines = MLCount(PUR->REM_MEMO, 80)
SELECT PurTest
FOR i = 1 TO Lines
APPEND BLANK
REPLACE RENO WITH nRENO
REPLACE CONTENT WITH MemoLine(PUR->REM_MEMO, 80, i)
NEXT
SELECT PUR
SKIP
ENDDO
|
|
|
| 回頂端 |
|
|
小賴
註冊時間: 2004-12-27
文章: 477
第 9 樓
|
| 發表於: 星期四 四月 20, 2006 9:26 am 文章主題: |
|
|
| 轉檔結果purtest.dbf傳不上, 怎麼辦 ? |
|
| 回頂端 |
|
|
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 10 樓
|
| 發表於: 星期四 四月 20, 2006 9:53 am 文章主題: |
|
|
朱兄所提的list ... 語法,
在編寫clipper程式時會出現錯誤,
須再查一下書, 看看是不有類似的指令.
小賴(看起來應該是老賴才對, 會clipper的人不都是年長者... ^^ )
所提的方法也是可行,
將clipper的memo欄位的資料變成另外一個檔案中的多筆文字欄位
須要去vfp 將這個多筆文字欄位合併成memo欄.
所有的重點都是:
vfp 無法讀取 clipper的 memo欄位
clipper 也無法讀取vfp 的 memo欄位
想把clipper的memo欄位轉到vfp的memo欄位
除了小賴所說的方式之外, 目前我能想得到做得到可行的方式只有:
用vfp程式建立一個仿製clipper欄位結構的table,
用vfp程式將clipper檔案一筆一筆讀出,
寫入VFP的table 時, 也利用我寫的那個getmemo.exe將clipper的memo欄位轉到文字檔,
再用vfp讀出文字檔內容寫到vfp的memo欄位中.
要是能直接讀取那該有多方便啊.
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
小賴
註冊時間: 2004-12-27
文章: 477
第 11 樓
|
| 發表於: 星期四 四月 20, 2006 10:59 am 文章主題: |
|
|
應是"同年級" ; 相煎何太急 !
馬英九說 :
四十歲前, 人稱"老馬"
四十歲後, 不知為何人稱"小馬哥" |
|
| 回頂端 |
|
|
小桑•無痕
註冊時間: 2003-07-08
文章: 304
來自: Tainan, Taiwan
第 12 樓
|
| 發表於: 星期三 四月 26, 2006 8:12 am 文章主題: |
|
|
| 小賴 寫到: | 應是"同年級" ; 相煎何太急 !
馬英九說 :
四十歲前, 人稱"老馬"
四十歲後, 不知為何人稱"小馬哥" |
小賴請問你是幾年級的?
_________________
用力 Try 一下...可以發現很多好玩的事.... |
|
| 回頂端 |
|
|
小賴
註冊時間: 2004-12-27
文章: 477
第 13 樓
|
| 發表於: 星期三 四月 26, 2006 8:36 am 文章主題: |
|
|
小賴 52年次, 以這一行來講, 算是老了一點, 還好我是業餘的,
不會跟各位先進搶飯碗啦 ! |
|
| 回頂端 |
|
|
impotence
註冊時間: 2005-02-21
文章: 135
來自: Hong Kong
第 14 樓
|
| 發表於: 星期四 四月 27, 2006 10:38 am 文章主題: |
|
|
暈 ~~~ 我是56年次的 ....
_________________
一個常常忘記 Command 的人 ! |
|
| 回頂端 |
|
|
小桑•無痕
註冊時間: 2003-07-08
文章: 304
來自: Tainan, Taiwan
第 15 樓
|
| 發表於: 星期四 四月 27, 2006 9:31 pm 文章主題: |
|
|
| 小賴 寫到: | 小賴 52年次, 以這一行來講, 算是老了一點, 還好我是業餘的,
不會跟各位先進搶飯碗啦 ! |
口圭！大我10多歲... 
_________________
用力 Try 一下...可以發現很多好玩的事.... |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
