VFP 愛用者社區

215001 · 註冊時間: 2003-06-11 文章: 389 第 1 樓

程式碼如下:

xstr1=FILETOSTR("test.dbf")
xstr2=""
FOR xi=1 TO LEN(xstr1)
xstr2=xstr2+SUBSTR(xstr1,xi,1) && 實際的程式是做轉碼處理

IF MOD(xi,100)=0
WAIT WINDOW STR(xi) NOWAIT NOCLEAR
ENDIF
NEXT

當 test.dbf 的檔案大小是 7000 bytes 時,閃一下,就跑完了(顯示7000)
當 test.dbf 的檔案大小是 1 MB 時,執行時,卻是 100..200..300..400..500..600..700..800..900...............
為什麼會這麼慢,可以改善速度嗎?

朱育興 · 發表於: 星期五一月 12, 2007 10:13 pm 文章主題:

已在紅狐論壇回覆過了

215001 · 註冊時間: 2003-06-11 文章: 389 第 3 樓

了解了,感謝朱兄

shyhpyng · 發表於: 星期一一月 15, 2007 8:31 am 文章主題:

smartHP · 註冊時間: 2005-05-17 文章: 10 第 5 樓

這個問題我有遇過，這個問題是出在filetostr是有一個限制的變數長度。
當讀入的資料長度大過於變數長度時vfp就會做分批轉換處理。
當時我遇到這個問題時查了help才知道原來是有長度上的限制。
就用了fopen。效能差了好幾倍