サンプルコードで学ぶASP » FileAccess http://asp.verygoodtown.com レガシーなASPの使い方をコード付きで紹介します。 Tue, 13 Apr 2010 02:25:06 +0000 http://wordpress.org/?v=2.9.1 ja hourly 1 WriteLine http://asp.verygoodtown.com/2009/09/writeline http://asp.verygoodtown.com/2009/09/writeline#comments Tue, 01 Sep 2009 01:45:14 +0000 admin http://asp.verygoodtown.com/?p=1157 (PWS4 IIS4 IIS5)
WriteLine — ファイル書き込み処理

構文

object.WriteLine( [string] )

パラメータ

object
TextStream オブジェクトを指定します。
string
書き込む文字列を指定します。

戻り値

値を返しません。

説明

指定した文字列と改行文字をファイルに書き込みます。

例

JScript

1
2
3
4
5
var fso, f;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.CreateTextFile("c:\\testfile.txt", true);
f.WriteLine("これはテストです。");
f.Close();

VBScript

1
2
3
4
5
6
7
8
9
10
Function WriteLineToFile
   Const ForReading = 1, ForWriting = 2
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
   f.WriteLine "Hello world!"
   f.WriteLine "これはテストです。"
   Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
   WriteLineToFile = f.ReadAll
End Function
]]> http://asp.verygoodtown.com/2009/09/writeline/feed 0 WriteBlankLines http://asp.verygoodtown.com/2009/09/writeblanklines http://asp.verygoodtown.com/2009/09/writeblanklines#comments Tue, 01 Sep 2009 01:43:07 +0000 admin http://asp.verygoodtown.com/?p=1155 (PWS4 IIS4 IIS5)
WriteBlankLines — ファイルに改行の書き込み処理

構文

object.WriteBlankLines ( lines )

パラメータ

object
TextStream オブジェクトを指定します。
lines
書き込む改行の数を指定します。

戻り値

値を返しません。

説明

指定された数の改行文字をファイルに書き込みます。

例

JScript

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function WriteBlanksDemo()
{
   var fso, f, r;
   var ForReading = 1, ForWriting = 2;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.OpenTextFile("c:\\testfile.txt", ForWriting, true);
   f.Write("Hello world!");
   f.WriteBlankLines(2);
   f.Write("JScript is fun!");
   f.Close();
   f = fso.OpenTextFile("c:\\testfile.txt", ForReading);
   r = f.ReadAll();
   return(r);
}

VBScript

1
2
3
4
5
6
7
8
9
10
Function WriteBlankLinesToFile
   Const ForReading = 1, ForWriting = 2
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
   f.WriteBlankLines 2
   f.WriteLine "Hello World!"
   Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
   WriteBlankLinesToFile = f.ReadAll
End Function
]]> http://asp.verygoodtown.com/2009/09/writeblanklines/feed 0 Write http://asp.verygoodtown.com/2009/09/write-3 http://asp.verygoodtown.com/2009/09/write-3#comments Tue, 01 Sep 2009 01:40:18 +0000 admin http://asp.verygoodtown.com/?p=1152 (PWS4 IIS4 IIS5)
Write — ファイル書き込み処理

構文

object.Write ( string )

パラメータ

object
TextStream オブジェクトを指定します。
string
書き込む文字列を指定します。

戻り値

値を返しません。

説明

指定した文字列を ファイルに書き込みます。
連続して文字列を書き込んだ場合、文字列間にスペースや区切り文字は挿入されず、続けて書き込まれます。
文字列の最後で改行する必要がある場合は、WriteLine メソッドを使用するかまたは文字列の最後に改行文字を入れてください。

例

JScript

1
2
3
4
5
6
7
8
9
10
11
12
function WriteDemo()
{
   var fso, f, r
   var ForReading = 1, ForWriting = 2;
   fso = new ActiveXObject("Scripting.FileSystemObject")
   f = fso.OpenTextFile("c:\\testfile.txt", ForWriting, true)
   f.Write("Hello world!");
   f.Close();
   f = fso.OpenTextFile("c:\\testfile.txt", ForReading);
   r = f.ReadLine();
   return(r);
}

VBScript

1
2
3
4
5
6
7
8
9
Function WriteToFile
   Const ForReading = 1, ForWriting = 2
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
   f.Write "Hello world!"
   Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
   WriteToFile =   f.ReadLine
End Function
]]> http://asp.verygoodtown.com/2009/09/write-3/feed 0 SkipLine http://asp.verygoodtown.com/2009/09/skipline-2 http://asp.verygoodtown.com/2009/09/skipline-2#comments Tue, 01 Sep 2009 01:37:39 +0000 admin http://asp.verygoodtown.com/?p=1148 (PWS4 IIS4 IIS5)
SkipLine — 次の1行をスキップする

構文

object.SkipLine

パラメータ

object
TextStream オブジェクトを指定します。

戻り値

値を返しません。

説明

ファイルを読み込むときに次の行をスキップします。

例

JScript

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function SkipLineDemo()
{
   var fso, f, r
   var ForReading = 1, ForWriting = 2;
   fso = new ActiveXObject("Scripting.FileSystemObject")
   f = fso.OpenTextFile("c:\\testfile.txt", ForWriting, true)
   f.WriteLine("Hello world!");
   f.WriteLine("JScript is fun");
   f.Close();
   f = fso.OpenTextFile("c:\\testfile.txt", ForReading);
   f.SkipLine();
   r = f.ReadLine();
   return(r);
}

VBScript

1
2
3
4
5
6
7
8
9
10
Function SkipLineInFile
   Const ForReading = 1, ForWriting = 2
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
   f.Write "Hello world!" & vbCrLf & "VB Script is fun!"
   Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
   f.SkipLine
   SkipLineInFile = f.ReadLine
End Function
]]> http://asp.verygoodtown.com/2009/09/skipline-2/feed 0 Skip http://asp.verygoodtown.com/2009/09/skip http://asp.verygoodtown.com/2009/09/skip#comments Tue, 01 Sep 2009 01:35:28 +0000 admin http://asp.verygoodtown.com/?p=1146 (PWS4 IIS4 IIS5)
Skip — 文字をスキップします

構文

object.Skip ( characters )

パラメータ

object
TextStream オブジェクトを指定します。
characters
読み飛ばす文字数

戻り値

値を返しません。

説明

ファイルを読み込むときに指定された数の文字数をスキップします。
スキップした文字列は、破棄されます。

例

JScript

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function SkipDemo()
{
   var fso, f, r;
   var ForReading = 1, ForWriting = 2;
   fso = new ActiveXObject("Scripting.FileSystemObject")
   f = fso.OpenTextFile("c:\\testfile.txt", ForWriting, true);
   f.WriteLine("Hello world!");
   f.WriteLine("JScript is fun");
   f.Close();
   f = fso.OpenTextFile("c:\\testfile.txt", ForReading);
   f.Skip(6);
   r = f.ReadLine();
   return(r);
}

VBScript

1
2
3
4
5
6
7
8
9
10
Function SkipTextFile
   Const ForReading = 1, ForWriting = 2
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
   f.Write "Hello world!"
   Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
   f.Skip(6)
   SkipTextFile =   f.ReadLine
End Function
]]> http://asp.verygoodtown.com/2009/09/skip/feed 0 ReadLine http://asp.verygoodtown.com/2009/09/readline http://asp.verygoodtown.com/2009/09/readline#comments Tue, 01 Sep 2009 01:32:14 +0000 admin http://asp.verygoodtown.com/?p=1143 (PWS4 IIS4 IIS5)
ReadLine — ファイルポインタから 1 行取得する

構文

object.ReadLine

パラメータ

object
TextStream オブジェクトを指定します。

戻り値

読み込んだ文字列を返します。

説明

TextStream ファイルから 1 行 ( 改行文字を除く ) を読み込み、その結果の文字列を返します。

例

JScript

1
2
3
4
5
6
7
8
9
10
11
12
13
function GetLine()
{
   var fso, f, r;
   var ForReading = 1, ForWriting = 2;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.OpenTextFile("c:\\testfile.txt", ForWriting, true);
   f.WriteLine("Hello world!");
   f.WriteLine("JScript is fun");
   f.Close();
   f = fso.OpenTextFile("c:\\testfile.txt", ForReading);
   r =  f.ReadLine();
   return(r);
}

VBScript

1
2
3
4
5
6
7
8
9
10
11
Function ReadLineTextFile
   Const ForReading = 1, ForWriting = 2
   Dim fso, MyFile
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
   MyFile.WriteLine "Hello world!"
   MyFile.WriteLine "The quick brown fox"
   MyFile.Close
   Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForReading)
   ReadLineTextFile = MyFile.ReadLine    ' Returns "Hello world!"
End Function
]]> http://asp.verygoodtown.com/2009/09/readline/feed 0 ReadAll http://asp.verygoodtown.com/2009/09/readall http://asp.verygoodtown.com/2009/09/readall#comments Tue, 01 Sep 2009 01:28:53 +0000 admin http://asp.verygoodtown.com/?p=1141 (PWS4 IIS4 IIS5)
ReadAll — ファイルの読み込み

構文

object.ReadAll

パラメータ

object
TextStream オブジェクトを指定します。

戻り値

読み込んだ文字列を返します。

説明

TextStream ファイル全体を読み込み、その結果の文字列を返します。

サイズの大きいファイルで ReadAll メソッドを使用すると、多くのメモリ リソースを消費します。サイズの大きいファイルを扱うときは、ファイルから 1 行ずつ読み込む方法を使用することをお勧めします。

例

JScript

1
2
3
4
5
6
7
8
9
10
11
12
function GetEverything()
{
   var fso, f;
   var ForReading = 1, ForWriting = 2;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.OpenTextFile("c:\\testfile.txt", ForWriting, true);
   f.Write("Header");
   f.Write("1234567890987654321");
   f.Close();
   f = fso.OpenTextFile("c:\\testfile.txt", ForReading);
   return(f.ReadAll());
}

VBScript

1
2
3
4
5
6
7
8
9
Function ReadAllTextFile
   Const ForReading = 1, ForWriting = 2
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
   f.Write "Hello world!"
   Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
   ReadAllTextFile =   f.ReadAll
End Function
]]> http://asp.verygoodtown.com/2009/09/readall/feed 0 Read http://asp.verygoodtown.com/2009/08/read-2 http://asp.verygoodtown.com/2009/08/read-2#comments Mon, 31 Aug 2009 11:46:49 +0000 admin http://asp.verygoodtown.com/?p=1139 (PWS4 IIS4 IIS5)
Read — ファイルの読み込み

構文

object.Read( characters )

パラメータ

object
TextStream オブジェクトを指定します。
characters
読み込む文字数を指定します。

戻り値

読み込んだ文字列 を返します。

説明

ファイルから指定された文字数を読み込み、その結果の文字列を返します。

例

JScript

1
2
3
4
5
6
7
8
9
10
11
12
function GetHeader()
{
   var fso, f;
   var ForReading = 1, ForWriting = 2;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.OpenTextFile("c:\\testfile.txt", ForWriting, true);
   f.Write("Header");
   f.Write("1234567890987654321");
   f.Close();
   f = fso.OpenTextFile("c:\\testfile.txt", ForReading);
   return(f.Read(6));
}

VBScript

1
2
3
4
5
6
7
8
9
Function ReadTextFileTest
   Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Dim fso, f, Msg
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
   f.Write "Hello world!"
   Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
   ReadTextFileTest = f.Read(5)
End Function
]]> http://asp.verygoodtown.com/2009/08/read-2/feed 0 Close http://asp.verygoodtown.com/2009/08/close-5 http://asp.verygoodtown.com/2009/08/close-5#comments Mon, 31 Aug 2009 02:30:35 +0000 admin http://asp.verygoodtown.com/?p=1135 (PWS4 IIS4 IIS5)
Close — 開いた状態の TextStream ファイルを閉じます。

構文

object.Close

パラメータ

object
TextStream オブジェクトを指定します。

戻り値

値を返しません。

説明

ファイルを閉じます。

例

JScript

1
2
3
4
5
var fso;
fso = new ActiveXObject("Scripting.FileSystemObject");
a = fso.CreateTextFile("c:\\testfile.txt", true);
a.WriteLine("これはテストです。");
a.Close();

VBScript

1
2
3
4
5
6
7
Sub CreateAFile
   Dim fso, MyFile
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
   MyFile.WriteLine("これはテストです。")
   MyFile.Close
End Sub
]]> http://asp.verygoodtown.com/2009/08/close-5/feed 0 Line http://asp.verygoodtown.com/2009/08/line-2 http://asp.verygoodtown.com/2009/08/line-2#comments Mon, 31 Aug 2009 02:29:01 +0000 admin http://asp.verygoodtown.com/?p=1133 (PWS4 IIS4 IIS5)
Line — TextStream ファイル内での現在の行番号を返します。値の取得のみ可能です。

構文

object.Line

パラメータ

object
TextStream オブジェクトを指定します。

戻り値

現在の行番号を返します。

説明

ファイルを開いた後、何も書き込んでいない状態での Line プロパティの値は 1 です。

例

JScript

1
2
3
4
5
6
7
8
9
10
11
12
13
function GetLine()
{
   var fso, f, r
   var ForReading = 1, ForWriting = 2;
   fso = new ActiveXObject("Scripting.FileSystemObject")
   f = fso.OpenTextFile("c:\\textfile.txt", ForWriting, true)
   f.WriteLine("Hello world!");
   f.WriteLine("JScript is fun");
   f.Close();
   f = fso.OpenTextFile("c:\\textfile.txt", ForReading);
   r =   f.ReadAll();
   return(f.Line);
}

VBScript

1
2
3
4
5
6
7
8
9
10
Function GetLine
   Const ForReading = 1, ForWriting = 2
   Dim fso, f, ra
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
   f.Write "Hello world!" & vbCrLf & "VB Script is fun!" & vbCrLf
   Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
   ra =   f.ReadAll
   GetLine = f.Line
End Function
]]> http://asp.verygoodtown.com/2009/08/line-2/feed 0