 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
qasnet
註冊時間: 2006-03-29
文章: 20
第 1 樓
|
 發表於: 星期三 三月 29, 2006 10:13 am 文章主題: 讀取一個binary資料 |
 |
|
請教各位先進
有一個.dat檔,組成是hex binary....我不知道這樣說這資料對不對
若用ultraedit看的話....就是 00 01 02 33 44 55 ...........
事實上...0001 是一個欄位資料 0233 是一個欄位資料 4 是一個欄位資料
.....
如APPEND FROM xxx.....可以讀一個文字檔..並把他塞進TABLE
我要如何把這個.dat檔讀進來?
並且可以自行定義我第一個欄位要切多長.....
不是很會表達,表達的不是很清楚....先行致歉 |
|
| 回頂端 |
|
 |
kib48660
註冊時間: 2003-02-24
文章: 121
第 2 樓
|
| 發表於: 星期三 三月 29, 2006 10:23 am 文章主題: |
|
|
以下是我常對 .dat 處理的方法
一般.dat格式,都是 rm-cobol 的資料檔, 您可以用 rmcobol 工具,把它轉換為
txt 文字檔,再處理
_________________
=========================
人生如霧亦如夢,緣生緣滅還自在,一切隨緣 |
|
| 回頂端 |
|
|
qasnet
註冊時間: 2006-03-29
文章: 20
第 3 樓
|
| 發表於: 星期三 三月 29, 2006 12:08 pm 文章主題: |
|
|
| kib48660 寫到: | 以下是我常對 .dat 處理的方法
一般.dat格式,都是 rm-cobol 的資料檔, 您可以用 rmcobol 工具,把它轉換為
txt 文字檔,再處理 |
多謝指教....您說的方式可能不太適合我用
因為每天都要處理上百個這樣的檔案
如果有人有興趣.....我可以丟一個小小的範例檔案上來給各位看看
反正那些資料也沒人懂 |
|
| 回頂端 |
|
|
xiaoye
註冊時間: 2006-03-25
文章: 2
第 4 樓
|
| 發表於: 星期三 三月 29, 2006 12:33 pm 文章主題: |
|
|
您可以用FileToStr Function先圝.DAT存入String，然后再圝String存入�V料��(DBF)
Code :
xxx = FileToStr("文件名.DAT")
select table
replace datfile with xxx
É查�崖FP侽助文件以唣取罒于FileToStr的用法 |
|
| 回頂端 |
|
|
qasnet
註冊時間: 2006-03-29
文章: 20
第 5 樓
|
| 發表於: 星期三 三月 29, 2006 1:51 pm 文章主題: |
|
|
多謝xiaoye兄的指教....
剛剛在command mod試著下了?FileToStr("d:\test.dat")
結果是一堆亂碼
這個函數我剛剛看了一下好像並有沒把bin的file解開.....
他只是把我的檔案按照file里的資料丟進string
並沒有如我想要的...把資料拆開
以我丟上去的TEST.dat 為例....
我希望能得到
B5D2D059429EEC6B47542D4330313030.............
這樣的一串字串結果....
(隱約記得字串是有長度限制的,這也是問題....我的檔案無論如何應該都大於這數字)
至於怎麼拆進我要的欄位...那到不是問題....
不好意思...不是科班出身...不能夠很正確的找到詞彙向諸位先進提問
非常抱歉....
xiaoye兄的解法好像也不合用..... |
|
| 回頂端 |
|
|
siger1762
註冊時間: 2005-04-01
文章: 13
來自: 台灣 台中
第 6 樓
|
| 發表於: 星期三 三月 29, 2006 4:18 pm 文章主題: |
|
|
xxx = FileToStr("文件名.DAT")
aaa=""
for I=1 to len(xxx)
aaa=aaa+RIGHT(TRANSFORM(ASC(LEFT(xxx,1)),"@0"),2)
xxx=SUBSTR(xxx,i)
next
不知道aaa是不是你想要的結果？ |
|
| 回頂端 |
|
|
qasnet
註冊時間: 2006-03-29
文章: 20
第 7 樓
|
| 發表於: 星期三 三月 29, 2006 5:25 pm 文章主題: |
|
|
| siger1762 寫到: | xxx = FileToStr("文件名.DAT")
aaa=""
for I=1 to len(xxx)
aaa=aaa+RIGHT(TRANSFORM(ASC(LEFT(xxx,1)),"@0"),2)
xxx=SUBSTR(xxx,i)
next
不知道aaa是不是你想要的結果？ |
多謝多謝...跑了一下,看起來的確是我想要的結果
不過查了一下msdn....好像還是有長度限制
msdn:
@0 Converts numeric or currency values to their hexadecimal equivalents. The numeric or currency value must be positive and less than 4,294,967,296.
恩....我想一下怎樣把資料先切一切塞到table好了
感激不盡
話說回來...我查madn時也查過ASCII,怎麼就忽略了有個函數叫ASC()
而且我也沒看過TRANSFORM這個函數...獲益良多
Orz
再次感激 |
|
| 回頂端 |
|
|
qasnet
註冊時間: 2006-03-29
文章: 20
第 8 樓
|
| 發表於: 星期三 三月 29, 2006 6:01 pm 文章主題: |
|
|
剛剛改了一下程式
Set Talk Off
Create Table bin (dat c(32))
xxx = FileToStr("c:\cps\test\test.DAT")
aaa=""
for I=1 to len(xxx)
aaa=aaa+RIGHT(TRANSFORM(ASC(LEFT(xxx,1)),"@0"),2)
if len(aaa)=32
select bin
append blank
replace dat with aaa
aaa=""
Endif
xxx=SUBSTR(xxx,i)
next
結果跟我要的不太一樣
同一個測試檔
B5B5D259EC2D3092034235F8D2100000==>這是上面程式轉的
0000004D00FFFFFFFFFFFFFFFFFFFFFF
B5D2D059429EEC6B47542D4330313030==>這是用UltraEdit看的
38373600B29238 F70016E36003010000
正在翻查MSDN,看哪裡有問題
諸位前輩大德若有空,還請再指點一下,看是哪裡有問題 |
|
| 回頂端 |
|
|
九月飞花
註冊時間: 2006-03-28
文章: 4
第 9 樓
|
| 發表於: 星期三 三月 29, 2006 7:13 pm 文章主題: |
|
|
CLEAR
xxx = FileToStr("TEST.DAT")
aaa=""
for I=1 to len(xxx)
IF I>30
EXIT
ENDIF
aaa=aaa+RIGHT(TRANSFORM(ASC(SUBSTR(xxx,I,1)),"@0"),2)
NEXT
?AAA
这样就可以满足你的要求了。 |
|
| 回頂端 |
|
|
siger1762
註冊時間: 2005-04-01
文章: 13
來自: 台灣 台中
第 10 樓
|
| 發表於: 星期三 三月 29, 2006 9:17 pm 文章主題: |
|
|
修為修改一下
FOR i=1 TO LEN(xxx)
aaa=aaa+RIGHT(TRANSFORM(ASC(SUBSTR(xxx,i,1)),"@0"),2)+" "
NEXT
應該就是你要的 |
|
| 回頂端 |
|
|
qasnet
註冊時間: 2006-03-29
文章: 20
第 11 樓
|
| 發表於: 星期四 三月 30, 2006 7:21 am 文章主題: |
|
|
多蒙指教...不勝感激
Set Talk Off
Create Table bin (dat c(32))
xxx = FileToStr("c:\cps\test\test.DAT")
aaa=""
For I=1 To Len(xxx)
aaa=aaa+Right(TransForm(Asc(SubStr(xxx,i,1)),"@0"),2)
If len(aaa)=32
Select bin
Append blank
Replace dat with aaa
aaa=""
Endif
Next
問題已經解決^_^ |
|
| 回頂端 |
|
|
qasnet
註冊時間: 2006-03-29
文章: 20
第 12 樓
|
| 發表於: 星期二 四月 04, 2006 4:28 pm 文章主題: |
|
|
回復：如何讀取一個binary的.dat檔?
不好意思....又是鄙人....
前次問題已經解決...但新的問題隨之產生
苦思一夜....無法得解.....只好求助各位先進
上面這段程式並沒有錯.....也能很正確的得到我要的資料
上列所提及的測試檔只有7k....這個檔案...
跑起來等於將近7000次的迴圈
(每個BYTE跑一次)
在不到一秒的時間就跑完了
( 開始結束各丟一個TIME() )
我正式測試的時候....丟了一個3M的檔案進去....
結果每次都等不下去....強制結束....實在太久了...久的不像話
為何7000次迴圈跑起來不到一秒
3500000卻跑了不只500秒?
我也有去TRACE他...但是流程跑起來是對的
(至少在我看的那500個BYTE里沒錯)
再深入treace....發現其實一開時還是很快....但迴圈跑到30000之後開始慢下來
(檔案大小30k)
想請教一下,上面這段程式應該怎麼跑才更有效率
或者..我的環境需要如何設定
因為這些資料最大可能是5M
剛剛嘗試過append from XXXXXX sdf
結果是'行太長'
(資料沒有斷行符號)
使用fopen
卻遇到FREAD好像會讀出不規則的資料
而且對BIN檔來說.FREAD 好像也是一次一個BYTE讀
不知道有沒有人能教一下FREAD的詳細用法
再把程式簡化成未轉化的資料串塞進table
也是遇到相同問題
把單純字串拆進table也不行
應該是FILE TO STR 對那麼大的檔案來說...負擔太重
所以路好像只剩下FREAD一途
英文不好....FREAD 看的好像不是很懂
好像fread不能從中間讀出來,像substr一樣
這樣一來....就會遇到跟filetostr的問題一樣...長度太長
不知道有沒有先進可以指點一下
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
問題已經解決.....
Set talk off
BBB=aLLtRIM(TTOC(DATETIME()))+"star"
?BBB
Create Table bin (dat c(32))
Local gnFileHandle,nSize,cString
Local cString
cString = Space(512)
cString = FRead(gnFileHandle, 512)
gnFileHandle = FOpen("c:\cps\datin\test3.dat")
nSize = FSeek(gnFileHandle, 0, 2) && Move pointer to EOF
If nSize <= 0
Wait Windows "This file is empty!" NoWait
Else
P=Int(nSize/512)
Q=Mod(nSize,512)
For J= 1 To P+1
If J<=P
= FSeek(gnFileHandle, (J-1)*512))
cString = FRead(gnFileHandle, 512)
aaa=""
For I=1 To 512
aaa=aaa+Right(TransForm(Asc(SubStr(cString,I,1)),"@0"),2)
If len(aaa)=32
Select bin
Append Blank
Replace dat With aaa
aaa=""
Endif
Next
Else
aaa=""
For I=1 To Q
aaa=aaa+Right(TransForm(Asc(SubStr(cString,I,1)),"@0"),2)
If len(aaa)=32
Select bin
Append Blank
Replace dat With aaa
aaa=""
Endif
Next
Endif
Endfor
Endif
= FCLOSE(gnFileHandle) && Close the file
BBB=aLLtRIM(TTOC(DATETIME()))+ "OVER"
?BBB |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
