VFP 愛用者社區

Bruce Lin · 註冊時間: 2004-03-28 文章: 24 來自: Taiwan,Taipei 第 1 樓

以下是讀取文字檔的寫法 :

IF FILE("QQ.TXT")=.T.
MF="QQ.TXT"
FH=FOPEN(MF,10)
FEND=FSEEK(FHAND,0,2)
THISFORM.EDIT1.VALUE=FREAD(FH,FEND)
=FCLOSE(FH)
ENDIF
THISFORM.REFRESH

QQ.TXT 確定有文字,但讀出來的,卻都是空白的,而且檔案要關閉也很難關閉,必須用CLOSE ALL才關的掉,
=FCLOSE(FH) 似乎沒作用, 不知是哪裡錯了? 還是有其他讀取的方式呢 ?

煩請各位前輩幫我看看,感激不盡~

朱育興 · 發表於: 星期四四月 21, 2005 12:38 pm 文章主題:

Bruce Lin · 發表於: 星期四四月 21, 2005 2:50 pm 文章主題:

感謝前輩回覆,問題解決了~