| ファイル操作 |
|
■ファイル操作
【ファイル読込】
'ファイルの読込
Sub ReadFile()
Dim strFileName As String
Dim intFLNO As Integer
Dim strData As String
strFileName = "C:\temp\test.txt"
intFLNO = FreeFile
Open strFileName For Input As #intFLNO
Do While Not EOF(intFLNO)
Line Input #intFLNO, strData
Loop
Close intFileNo
End Sub
|
【ファイル書出】
'ファイルの書き出し
Sub WriteFile()
Dim strFileName As String
Dim intFLNO As Integer
Dim strData As String
strFileName = "C:\temp\test.txt"
intFLNO = FreeFile
Open strFileName For Output As #intFLNO
Print #intFLNO, "aaaaaaa"
Close intFLNO
End Sub
|
【ファイル追記】
'ファイルの追記
Sub AppendFile()
Dim strFileName As String
Dim intFLNO As Integer
Dim strData As String
strFileName = "C:\temp\test.txt"
intFLNO = FreeFile
Open strFileName For Append As #intFLNO
Print #intFLNO, "追記行"
Close intFLNO
End Sub
|
|
|
| |
 A8ネット
・人気度：★★★★★
・言わずと知れた人気ASP
 |
| |
楽天市場
・人気度：★★★★★
・誰でも安心、楽天市場で
タワーレコード
・人気度：★★★★☆
・CD/DVDならタワレコで
|
|
