![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
「1.htm」で入力された値を
「2.asp」でCドライブにHTMLファイルとして出力したいと考えています。
しかし、うまく出力されません。
どなたかご教授お願いします。
***1.htm***
<form method="POST" action="2.asp">
<input name="text1" type="text">
</form>
***2.asp***
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:\test.htm",8,True)
strWriteText = FormatDateTime( Now , vbGeneralDate ) & _
Request.Form("text1") & _
↑ここが表示されない。タグの表示方法もわかりません。
%>
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_10.png?e8efa67)
No.3ベストアンサー
- 回答日時:
> strWriteText = ts.WriteLine "<table>"
WriteLineメソッドには戻り値がないので、結果を変数に代入することはできません。
> ts.write strWriteText
ts.write strWriteText で一度に出力するのであれば、あらかじめ
strWriteTextに改行コードを含む全ての文字列を格納しておく必要があります。
色々な書き方がありますが、下記にサンプルを記しておきます。
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:\test.htm",8,True)
strWriteText = FormatDateTime( Now , vbGeneralDate ) & _
Request.Form("text1")
ts.WriteLine "<table>"
ts.WriteLine "<tr><td>テスト</td></tr>"
ts.WriteLine "<tr><td>" & strWriteText & "</td></tr>"
ts.WriteLine "</table>"
ts.Close
%>
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_10.png?e8efa67)
No.2
- 回答日時:
Writeメソッドの引数に出力したい文字列を指定するだけです。
改行を入れたいのであれば、WriteLineメソッドを使うと良いでしょう。
ts.WriteLine "<table>"
ts.WriteLine "<tr><td>テスト</td></tr>"
ts.WriteLine "<tr><td>" & strWriteText & "</td></tr>"
ts.WriteLine "</table>"
回答ありがとうございます。
以下のようにしましたが、うまく出力できません。
どこがおかしいのでしょうか。
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:\test.htm",8,True)
strWriteText = ts.WriteLine "<table>"
ts.WriteLine "<tr><td>テスト</td></tr>"
ts.WriteLine "<tr><td>" & strWritetext1 & "</td></tr>"
ts.WriteLine "</table>"
ts.write strWriteText
ts.Close
よろしければご教授ください。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_10.png?e8efa67)
No.1
- 回答日時:
2.aspで表示するのではなく、別ファイルに出力するのですか?
それなら、
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:\test.htm",8,True)
strWriteText = FormatDateTime( Now , vbGeneralDate ) & _
Request.Form("text1")
ts.write strWriteText
で、出力できます。(インターネットゲストアカウントに書き込み権限が必要です。)
2.aspで出力するなら
response.write strWriteText
で表示できます。
回答ありがとうございます。
文章がわかりにくくて申し訳ありません。
別ファイルで出力させたいと思っています。
教えていただいたようにやったらうまくできました。
ありがとうございました。
また、別ファイルですが、以下のように出力したいと考えています。
「text1」以外の部分はどのように、
記述したらいいのかわかりません。
よろしければご教授ください。
宜しくお願いします。
<table>
<tr><td>テスト</td></tr>
<tr><td>"text1"</td></tr>
</table>
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルに張り付けた写真のフ...
-
onedrive にexcelファイルをア...
-
phpのファイルがブラウザで開か...
-
C#からvbsを実行したい
-
Wi-Fiのパスワードが指定なしと...
-
【VB.NET】App.configにファイ...
-
aspxをhtmlに変換する方法について
-
ffftpでファイル取得が0バイト...
-
【VB.NET】for each文からのINS...
-
ASP.NetでWebアプリ開発の経験...
-
キヤノン アソビカメラ iNSPiC ...
-
マクロで同じフォルダにある画...
-
【エクセル・マクロ】メッセー...
-
パソコンの、エラーって誰が作...
-
郵便番号変換ウィザードがフォ...
-
マイクロソフトのオフィスについて
-
SPO2測定
-
高校1年生情報の問題について。
-
エクセルのマクロについて教え...
-
インドe-Visa 承認書のApplicat...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ASPからEXCELに出力する
-
スペースの取り方について
-
HTMLの値の渡し方について質問...
-
ACCESSのレポートの表示...
-
フォームのtextareaにnl2brを使...
-
aspxでIFみたいなことがしたい
-
遷移先のURLにパラメータを表示...
-
ASP.netで、CheckBoxListのSele...
-
機種依存文字
-
write downとfill outの違いを...
-
最大値と最小値の間を循環する変数
-
SELECTボックスの内容を動的に...
-
<br>が文字列で出力されてしま...
-
改行したいのですが
-
select case文について
-
テキストボックスにマクロでメ...
-
phpの<br>\\nと\\nとエスケープ...
-
奇数・偶数の区別をプログラミング
-
C#のRichTextBoxで表示行数を取...
-
ASP.NETでTimerコントロールを...
おすすめ情報