VFP 愛用者社區

gunsu77 · 註冊時間: 2007-03-09 文章: 22 第 1 樓

寫一支程式可以列出資料庫內的欄位序號~欄位名稱~型態~寬度~總欄位長度~總筆數~檔案大小~建檔日期要存成1.TXT
我只知道要用FOR TO 這個函數但是我不會寫= =
可以教我嗎?

rockwithyou · 註冊時間: 2006-03-11 文章: 44 第 2 樓

List structure to file 1.txt

gunsu77 · 註冊時間: 2007-03-09 文章: 22 第 3 樓

我也知道用這個...但是不行= = 老闆要我們寫一個程式

jennher · 註冊時間: 2004-09-16 文章: 5 第 4 樓

string=""
file="filename"
for x=1 to fcount(file)
m1=FIELD(x)
m2=TYPE(M1)+"("+STR(FSIZE(M1))+")"
string=string+m1+" "+m2+chr(13)+chr(10)
next
strtofile(string,檔名)

要不然用低階函數開啟 .dbf 檔, 讀取前 512byte 然後解析

gunsu77 · 註冊時間: 2007-03-09 文章: 22 第 5 樓

不好意思喔...那個string=''後面那個是要放啥?
filename<~~~是瞎咪?
嗚嗚....這2個我搞不懂...還有我要變成文字檔要怎ㄇ用
是這個嗎?strtofile(string,檔名)

marvin · 註冊時間: 2004-06-01 文章: 321 第 6 樓

> 老闆要我們寫一個程式

是老師吧....

impotence · 發表於: 星期六三月 10, 2007 11:03 am 文章主題:

如果你什麼都不知道 ...
你老板卻要你來寫 programe ...
我只覺得 , 你老板真勇敢 ........ - -!

jennher · 註冊時間: 2004-09-16 文章: 5 第 8 樓

string="" && 字串
file="filename.DBF" && 要開啟的 DBF 檔名
for x=1 to fcount(file) && FCOUNT() 讀取 .DBF 的欄位總數量
m1=FIELD(x) && FIELD() 傳回欄位名稱
m2=TYPE(M1)+"("+STR(FSIZE(M1))+")" &&TYPE()傳回欄位型別FSIZE()長度
string=string+m1+" "+m2+chr(13)+chr(10)
next
strtofile(string,"檔名.TXT") && 寫入.TXT檔

至於 .DBF 的資料筆數應該不用教了吧 @@

gunsu77 · 註冊時間: 2007-03-09 文章: 22 第 9 樓

a='register.dat'
use c:\sc\dat\register.dat alias re
for x=1 to fcount('re')
m1=FIELD(x)
m2=TYPE(M1)+"("+STR(FSIZE(M1))+")"+'('+STR(RECSIZE('RE'))+')' a=a+chr(13)+chr(10)+m1+' '+m2+chr(13)+chr(10)
next
strtofile(a,"c:\1.TXT")
是這樣寫嗎?
欄位序號~欄位名稱~型態~寬度~總欄位長度~總筆數~檔案大小~建檔日期我還差哪些呢? 這個是考題......求求你們..幫幫我呀@@

gunsu77 · 註冊時間: 2007-03-09 文章: 22 第 10 樓

還有不是有個函數是陣列的...nfiles=adir(afiles,'c:\sc\dat\register.dat')
如果我要套用裡面的檔案大小~建檔日期
要怎麼加入呢...幫幫我嗚嗚

新人類 · 註冊時間: 2005-11-27 文章: 47 第 11 樓

哪個學校還有再考foxpro的考題阿!!
有點納悶~

gunsu77 · 註冊時間: 2007-03-09 文章: 22 第 12 樓

我們是做醫療軟體的......老闆要考的= =

syntech · 發表於: 星期日三月 11, 2007 3:41 pm 文章主題:

你的老闆應該是希望你"找"出答案,
而不是"問"出答案

gunsu77 · 註冊時間: 2007-03-09 文章: 22 第 14 樓

我也想找出答案....但是就是無解......嗚嗚

syntech · 發表於: 星期一三月 12, 2007 9:33 am 文章主題:

你的老闆要看的是你的努力.

list 就可以解決的問題,
如果是純粹要你作出什麼來,實際上是不需要花這麼大功夫的.
你的老闆是希望訓練你自己學習解決問題的能力.

別人和你說答案了,
你的表現卻是"可不可以連註解一起給我,我看不懂".

現在台灣願意訓練新人的老闆越來越少了,
自己想想吧.