|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
Bruce Lin
註冊時間: 2004-03-28 文章: 24 來自: Taiwan,Taipei
第 1 樓
|
發表於: 星期四 四月 21, 2005 11:07 am 文章主題: 如何讀取文字檔呢 |
|
|
以下是讀取文字檔的寫法 :
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) 似乎沒作用, 不知是哪裡錯了? 還是有其他讀取的方式呢 ?
煩請各位前輩幫我看看,感激不盡~ _________________ = BRUCE LIN = ^_^ |
|
回頂端 |
|
|
朱育興
註冊時間: 2003-08-25 文章: 661 來自: 台中市大里區
第 2 樓
|
發表於: 星期四 四月 21, 2005 12:38 pm 文章主題: |
|
|
代碼: |
IF FILE("QQ.TXT")
THISFORM.EDIT1.VALUE=FILETOSTR("QQ.TXT")
ENDIF
|
_________________ 希望有更多人來參與
VFP wiki - 需要大家一起完成的VFP電子書與FAQ |
|
回頂端 |
|
|
Bruce Lin
註冊時間: 2004-03-28 文章: 24 來自: Taiwan,Taipei
第 3 樓
|
發表於: 星期四 四月 21, 2005 2:50 pm 文章主題: |
|
|
感謝前輩回覆,問題解決了~ _________________ = BRUCE LIN = ^_^ |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|