上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
gunsu77
註冊時間: 2007-03-09 文章: 22
第 1 樓
|
發表於: 星期五 三月 09, 2007 11:39 pm 文章主題: 可以教我怎麼寫這個小程式嗎? |
|
|
寫一支程式可以列出資料庫內的欄位序號~欄位名稱~型態~寬度~總欄位長度~總筆數~檔案大小~建檔日期 要存成1.TXT
我只知道要用FOR TO 這個函數 但是我不會寫= =
可以教我嗎? |
|
回頂端 |
|
|
rockwithyou
註冊時間: 2006-03-11 文章: 44
第 2 樓
|
發表於: 星期五 三月 09, 2007 11:47 pm 文章主題: |
|
|
List structure to file 1.txt |
|
回頂端 |
|
|
gunsu77
註冊時間: 2007-03-09 文章: 22
第 3 樓
|
發表於: 星期五 三月 09, 2007 11:59 pm 文章主題: |
|
|
我也知道用這個...但是不行= = 老闆要我們寫一個程式 |
|
回頂端 |
|
|
jennher
註冊時間: 2004-09-16 文章: 5
第 4 樓
|
發表於: 星期六 三月 10, 2007 1:47 am 文章主題: 程式大概可以這麼寫 |
|
|
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 樓
|
發表於: 星期六 三月 10, 2007 8:31 am 文章主題: |
|
|
不好意思喔...那個string=''後面那個是要放啥?
filename<~~~是瞎咪?
嗚嗚....這2個我搞不懂...還有我要變成文字檔 要怎ㄇ用
是這個嗎?strtofile(string,檔名) |
|
回頂端 |
|
|
marvin
註冊時間: 2004-06-01 文章: 321
第 6 樓
|
發表於: 星期六 三月 10, 2007 9:43 am 文章主題: |
|
|
> 老闆要我們寫一個程式
是老師吧.... |
|
回頂端 |
|
|
impotence
註冊時間: 2005-02-21 文章: 135 來自: Hong Kong
第 7 樓
|
發表於: 星期六 三月 10, 2007 11:03 am 文章主題: |
|
|
如果 你什麼都不知道 ...
你老板卻要你來寫 programe ...
我只覺得 , 你老板真勇敢 ........ - -! _________________ 一個常常忘記 Command 的人 ! |
|
回頂端 |
|
|
jennher
註冊時間: 2004-09-16 文章: 5
第 8 樓
|
發表於: 星期六 三月 10, 2007 1:55 pm 文章主題: |
|
|
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 樓
|
發表於: 星期六 三月 10, 2007 11:50 pm 文章主題: |
|
|
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 樓
|
發表於: 星期六 三月 10, 2007 11:52 pm 文章主題: |
|
|
還有 不是有個函數是陣列的...nfiles=adir(afiles,'c:\sc\dat\register.dat')
如果我要套用裡面的檔案大小~建檔日期
要怎麼加入呢...幫幫我 嗚嗚 |
|
回頂端 |
|
|
新人類
註冊時間: 2005-11-27 文章: 47
第 11 樓
|
發表於: 星期六 三月 10, 2007 11:54 pm 文章主題: |
|
|
哪個學校還有再考foxpro的考題阿!!
有點納悶~ |
|
回頂端 |
|
|
gunsu77
註冊時間: 2007-03-09 文章: 22
第 12 樓
|
發表於: 星期日 三月 11, 2007 12:03 am 文章主題: |
|
|
我們是做醫療軟體的......老闆要考的= = |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4214 來自: Taipei,Taiwan
第 13 樓
|
發表於: 星期日 三月 11, 2007 3:41 pm 文章主題: |
|
|
你的老闆應該是希望你"找"出答案,
而不是"問"出答案 _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
gunsu77
註冊時間: 2007-03-09 文章: 22
第 14 樓
|
發表於: 星期日 三月 11, 2007 3:42 pm 文章主題: |
|
|
我也想找出答案....但是就是無解......嗚嗚 |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4214 來自: Taipei,Taiwan
第 15 樓
|
發表於: 星期一 三月 12, 2007 9:33 am 文章主題: |
|
|
你的老闆要看的是你的努力.
list 就可以解決的問題,
如果是純粹要你作出什麼來,實際上是不需要花這麼大功夫的.
你的老闆是希望訓練你自己學習解決問題的能力.
別人和你說答案了,
你的表現卻是"可不可以連註解一起給我,我看不懂".
現在台灣願意訓練新人的老闆越來越少了,
自己想想吧. _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
|