ASPプログラミング入門ステップ（18）：FPOコンポーネントのファイル操作（中）
FPOからファイル値を抽出し、ファイルに情報を入力することもできました。次は応用します。あなたはこのような習慣がありますか？ファイルを見て、無意識に右ボタンでメモ帳で開けます。へへ，ほとんどどのファイルがないといけません。したがって、すべてのファイルはテキストであり、拡張子の名前が異なるだけです。つまり、どのファイルの内容情報を抽出することができます。OKです。想像してみます。1ファイルのパスを抽出します。2パスファイルを開いて、すべての行3を読み取り、読み取った情報を表示します。1、viewcode.asp
<%Function ShowCode(filename)Set fso=Server.reate Object(Script.FileSystemObject)Set cnrs=fso.OpenTextFile(filename)1）While Not cnrs.AtEntEndOfStreamrsline=cnrs.Readlinersline=server.HTMLEncode(rsline)Reponse.Write(rsline&")Wendend Function%><%file=request.form（「file name」）reponse.write（file&ソースプログラムなど下
")If trim(>""thenCall ShowCode(file)End If%以上のプログラムをデバッグした場合、選択できます。aspページで、任意のアプリケーションなどを開くこともできます。定義されたShowCode関数は、ファイル内のすべての情報の内容を開いたり読み取ったり表示することが主な役割です。注意server.HTMLEncodeを追加しました。標準HTMLコードが含まれているファイルに対して。ファイル内のすべての行が条件付きループで巡回表示されます。While Not cnrs.AtEndOfStream...Wendに続いて、以下のこの例題は具体的にopen方法の問題に関連しています。覚えていますか？通常の状況でファイルを開くにはfso.OpenTextFile("c:\testfile.txt"1)、パラメータ1の役割は読み取り専用モードでファイルを開くことです。この文書に対して書き込み操作ができません。もう一つのファイルが存在していますが、追加で書き込む必要があります。どうすればいいですか？簡単で、パラメータは8でいいです。PS：ここで読み取る方法があります。
＜%whichfile=server.mappath（「test.txt」）Set fso=CreateObject（「Scripting.FileSystemObject」）Set t t t t t=fso.OpenTextFile（whifile，1）rline=txt.ReadAlllinline=Edededededededededededederererererererererererettttttttttttttttxtttttttttttttttttttttttxxxt=Ededededededededededededededededededededededededede何の役になりますか？へへ，アマゾンのネットのストーリは竜をつないでこのようにします：竜を継ぐことができるのはまず元からあるストーリを表示しなければならなくて、それから自分でストーリを添加してファイルに書きます。この中の書き込みファイルの一番のこだわりは追加書きです。だから次は実現できます。二、story.asp
<%If not request.Form("NextLine")="thenSet fso=Server.reate Object("Script.FileSystemobject")textfile 1=Server.MapPath("story.txt")set cnfirs=Text 18）cnrs.WriteLine（Request.Form（NextLine）cnrs.Closeend if%>物語は以下の通りです。「%Set fso=Server.CreatObject（Scrippting.FileSystemObject）」textfile1=Server.Mapth Paxtttttttttffftttttttttttfffffttttttttttttttttttttfffffffffttttttttttttfile1=EEEttttttttttttttttttStream Resonse.Write"&cnrs.Readlinewers.cnrs.close%>< hr>
<%Function ShowCode(filename)Set fso=Server.reate Object(Script.FileSystemObject)Set cnrs=fso.OpenTextFile(filename)1）While Not cnrs.AtEntEndOfStreamrsline=cnrs.Readlinersline=server.HTMLEncode(rsline)Reponse.Write(rsline&")Wendend Function%><%file=request.form（「file name」）reponse.write（file&ソースプログラムなど下
")If trim(>""thenCall ShowCode(file)End If%以上のプログラムをデバッグした場合、選択できます。aspページで、任意のアプリケーションなどを開くこともできます。定義されたShowCode関数は、ファイル内のすべての情報の内容を開いたり読み取ったり表示することが主な役割です。注意server.HTMLEncodeを追加しました。標準HTMLコードが含まれているファイルに対して。ファイル内のすべての行が条件付きループで巡回表示されます。While Not cnrs.AtEndOfStream...Wendに続いて、以下のこの例題は具体的にopen方法の問題に関連しています。覚えていますか？通常の状況でファイルを開くにはfso.OpenTextFile("c:\testfile.txt"1)、パラメータ1の役割は読み取り専用モードでファイルを開くことです。この文書に対して書き込み操作ができません。もう一つのファイルが存在していますが、追加で書き込む必要があります。どうすればいいですか？簡単で、パラメータは8でいいです。PS：ここで読み取る方法があります。
＜%whichfile=server.mappath（「test.txt」）Set fso=CreateObject（「Scripting.FileSystemObject」）Set t t t t t=fso.OpenTextFile（whifile，1）rline=txt.ReadAlllinline=Edededededededededededederererererererererererettttttttttttttttxtttttttttttttttttttttttxxxt=Ededededededededededededededededededededededededede何の役になりますか？へへ，アマゾンのネットのストーリは竜をつないでこのようにします：竜を継ぐことができるのはまず元からあるストーリを表示しなければならなくて、それから自分でストーリを添加してファイルに書きます。この中の書き込みファイルの一番のこだわりは追加書きです。だから次は実現できます。二、story.asp
<%If not request.Form("NextLine")="thenSet fso=Server.reate Object("Script.FileSystemobject")textfile 1=Server.MapPath("story.txt")set cnfirs=Text 18）cnrs.WriteLine（Request.Form（NextLine）cnrs.Closeend if%>物語は以下の通りです。「%Set fso=Server.CreatObject（Scrippting.FileSystemObject）」textfile1=Server.Mapth Paxtttttttttffftttttttttttfffffttttttttttttttttttttfffffffffttttttttttttfile1=EEEttttttttttttttttttStream Resonse.Write"&cnrs.Readlinewers.cnrs.close%>< hr>