如何讀取TXT文件內容？

作者：金字塔來源：cxh99.com 發布時間：2015年08月23日

咨詢內容： 我們知道，在后臺，可以用debugfile將變量輸出到文件，反過來，要將TXT文件中的一個數值，如何讀取到金字塔后臺的變量中？深度請教！
金字塔客服：
3.1版已經增加了INI文本文件的讀寫函數,你可以直接使用這個來操作了

參考

http://www.weistock.com/bbs/dispbbs.asp?boardid=2&Id=59406
[此貼子已經被作者于2014/1/18 14:10:47編輯過]
用戶回復： Sub WriteTxt() Set WSHShell = CreateObject("WScript.Shell") DesktopPath = WSHShell.SpecialFolders("Desktop") xFile = DesktopPath & "\config.txt" MyTxt = Application.AppPath & " 文件創建時間 " & Now() Set fso = CreateObject("scripting.FileSystemObject") '綁定fso對象 Set MyFile = fso.CreateTextFile(xFile, True) MyFile.WriteLine (MyTxt) MyFile.Close Set MyFile = Nothing Set fso = NothingEnd SubSub ReadTxt() Set WSHShell = CreateObject("WScript.Shell") DesktopPath = WSHShell.SpecialFolders("Desktop") xFile = DesktopPath & "\config.txt" Set fso = CreateObject("scripting.FileSystemObject") '綁定fso對象 Set MyFile = fso.openTextFile(xFile, 1, True) '用.open方法打開文件 Do Until MyFile.AtEndOfStream strLine = MyFile.ReadLine application.MsgOut strLine Loop MyFile.Close Set MyFile = Nothing Set fso = NothingEnd Sub
網友回復： 請問樓上這個是在自定義函數里面實現嗎？

<strike id="ww8iw"></strike>

<del id="ww8iw"></del>

<ul id="ww8iw"></ul>

人人爽天天爽夜夜爽qc-人人爽天天爽夜夜爽曰-人人天天爱天天做天天摸-人人天天夜夜-色网站在线-色网站在线看