WriteText
テキスト形式でデータ保存
文法
Streamオブジェクト.WriteText(Text,[Option])
パラメータ
Text : 書き込み対象のテキストデータ
行デリミタを含めるかどうか
機能説明
テキストデータをストリームに書き込む
定数
定数 | 値 | 説明 |
adWriteChar | 0 | 文字列を書き込む |
adWriteLine | 1 | 文字列と行区切り文字を書き込む |
使用例
<%
Dim objSt, saveFile
Set objSt = Server.CreateObject("ADODB.Stream")
objSt.Mode = adModeReadWrite
objSt.Open
'文字セットはUnicodeがデフォルトなのでShitーJISで保存する場合は下記を追加
'objSt.Charset = "Shift-JIS"
objSt.LoadFromFile "D:\test\sample.html"
objSt.WriteText = "SaveToFileテスト
", adWriteLine
saveFile = "D:\test\sample2.html"
objSt.SaveToFile SaveFile, adSaveCreateOverwrite
objSt.LoadFromFile SaveFile
Response.Write "保存したファイルの内容
" & vbCrLf & objSt.ReadText
'オブジェクトを閉じる
objSt.Close
Set objSt = Nothing
%>
Topへ