VB.NET覚書

VB.NETの覚書
[個人メモ] [仕事メモ] [アイデア] [Ruby]
[TIPS] [対応表] [コメント書き方] [.NET Tips] [VB中学校] [VB.NET の入門サイト] [VB.NET コーディング標準 ] [VBレスキュー] [NonSoft]

2009-05-28

1: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

2: Dim fileno As Integer

3: fileno = FreeFile()

4:

5: FileOpen(fileno, "c:\test.txt", OpenMode.Output)

6: Print(fileno, "Test")

7: PrintLine(fileno, " Data")

8: PrintLine(fileno, "テストデータ")

9: PrintLine(fileno, "ファイル番号は", fileno)

10: PrintLine(fileno, "A", SPC(1), "B", TAB(8), "C")

11: PrintLine(fileno, True, False)

12: WriteLine(fileno, True, False)

13: PrintLine(fileno, Today)

14: WriteLine(fileno, Today)

15: FileClose(fileno)

16:

17: Dim s As String

18: FileOpen(fileno, "c:\test.txt", OpenMode.Input)

19: While Not EOF(fileno)

20: s = LineInput(fileno)

21: Trace.WriteLine(s)

22: End While

23: FileClose(fileno)

24: End Sub

@IT:連載:プロフェッショナルVB.NETプログラミング 第7回 ファイル入出力(前編)
トラックバック - http://sub.g.hatena.ne.jp/garyo/20090528