主頁(yè) > 知識(shí)庫(kù) > 如何顯示一個(gè)文本文件?

如何顯示一個(gè)文本文件?

熱門標(biāo)簽:常州智能外呼電銷機(jī)器人如何 遼寧營(yíng)銷智能外呼系統(tǒng)價(jià)格多少 重慶400電話哪里辦理 400電話是怎么申請(qǐng) 推銷電話機(jī)器人怎么打電話的 自適應(yīng)地圖標(biāo)注 教育機(jī)構(gòu)地圖標(biāo)注 語(yǔ)音電銷機(jī)器人視頻 武漢如何辦理400電話

 WriteStrING

    WriteLineStrING

    WriteBlankLinesLINES

 

    html

    head

    http-equiv="Content-Type" content="text/html;

    charset=gb2312"

    title〉春風(fēng)精彩之文本文件顯示〈/title

    /head

 

   〈body

    % LANGUAGE = VBScript %>

    %

Const ForReading = 1, ForWriting = 2, ForAppending = 3

' 參數(shù)為可選,決定輸入/輸出模式:①ForReading=1只讀;②ForWriting=2 可讀寫;③ForAppending=3追加.

Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

  ' 參數(shù)為可選,指出以何種格式打開文件:①忽略此參數(shù),以 ASCII格式打開文件;②TristateUseDefault=-2 以系統(tǒng)默認(rèn)格式打開文件;③TristateTrue=-1 Unicode 格式打開文件;④TristateFalse=0 ASCII 格式打開文件,當(dāng)然我們也可用OpenTextFile方法打開文件.

      

    Dim filename

    filename = "test.txt"

      ' 缺省路徑c:\win.

 

    Set fs = CreateObject("Scripting.FileSystemObject")

    Set f = fs.GetFile(filename)

    Set readf = f.OpenAsTextStream(ForReading,TristateFalse)

 

    s = readf.ReadLine

    Do While readf.AtEndOfLine > True

        s = readf.ReadLine

        Response.write s ""

            ' 逐行讀文件并寫屏.

    Loop

    readf.close

    %>

    /body>/html>

標(biāo)簽:柳州 朔州 襄陽(yáng) 威海 中山 遵義 雞西 邯鄲

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《如何顯示一個(gè)文本文件?》,本文關(guān)鍵詞  如何,顯示,一個(gè),文本,文件,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《如何顯示一個(gè)文本文件?》相關(guān)的同類信息!
  • 本頁(yè)收集關(guān)于如何顯示一個(gè)文本文件?的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章