VFP 愛用者社區

[catjoke]

很基本的要求啊!

RECCOUNT() - 總筆數
FSIZE() - 檔案大小
FDATE() - 檔案日期

其實不是 考你很深的技巧!

AFIELD() 就能列出每一個欄的 資料到 array, 要抄出來亦是 基本功..

難聽D 果句, 未考你之前, 他已掌握一定的知識, 清楚要 找出來不難..
當一個 初學生的功課 給你已而~

所以你要顯出你的專業, 要在 一天內必定完成! 因為你已是 出來工作了!!

[impotence]

syntech 兄 ,
你不會就是他的老板吧 .....

[syntech]

應該就不是.

是的話,早就叫他回家吃自己. XD

[syntech]

我第一想到也是AFIELD() 的說.

[JEFFWANG]

HELP 多看一看，這是非常基本的東西，其實看HELP就可以了，
如果沒心自己找資料，只希望網路上得到答案，就算過的了一時
，日後還是一樣，如果有興趣應該先去打一打基本功，就算有人
告訴你答案你還是看不懂的。

[gunsu77]

我自己有寫一段了 但是我要怎麼變成文字檔....底下是我寫出來的...我要變成DO後會存文字檔 要怎麼用?
close all
set defa to c:\sc\dat
n=adir(a,'c:\sc\dat\cc.dat')
cstr1='檔案名稱'+a(1)+chr(13)+chr(10)+'檔案大小'+str(a(2))+chr(13)+chr(10)+'建檔日期'+dtoc(a(3))+chr(13)+chr(10)+;
padl('欄位序號',8,' ')+padl('欄位名稱',15,' ')+padl('型態',5,' ')+padl('寬度',6,' ')
? cstr1
use &a(1)
n=fcount()
for x=1 to n
cstr=padl(x,8,' ')+padl(FIELD(x),15,' ')+;
padl(TYPE(field(x)),5,' ')+padl(FSIZE(field(x)),6,' ')
? cstr
next
?'總筆數'+str(recsize())

[小賴]

ListStru("F:\JK\ORD\KYSNORD.DBF", "C:\TEMP\Test1.Txt")
*參數一：要查詢的DBF檔
*參數二：輸出的文字檔


*不是為樓主寫的 ; 剛好我要試試SET TEXTMERGE指令
*以下已測試過

FUNCTION ListStru
LPARAMETERS InFile, OutFile
IF ! FILE(InFile)
MESSAGEBOX("檔案不存在 ! ", 16, "讀檔錯誤")
RETURN .F.
ENDIF

nCount1 = ADIR(aFile, InFile)
SELECT 0
USE (InFile)
cAlias = ALIAS()
nCount2 = AFIELDS(aFd,cAlias)
USE
SET TEXTMERGE TO (OutFile)
SET TEXTMERGE ON

\檔案資訊：
\檔案名稱 檔案大小 建檔日期 建檔日期
\<<PADR(aFile[1], 14, ' ')>> <<STR(aFile[2], 10)>> <<aFile[3]>> <<aFile[4]>>
\
\檔案結構：
\欄位名稱 型態 位數 小數
FOR i = 1 TO nCount2
\<<PADR(aFd[i,1],12,' ')>><<PADR(aFd[i,2],4,' ')>><<STR(aFd[i,3],3)>><<STR(aFd[i, 4],5)>>
NEXT

SET TEXTMERGE OFF
SET TEXTMERGE TO
RETURN .T.

[syntech]

記得寄給每一個給你一段程式的網友你的一日所得. ^_^