06/11/26 00:05:23
>>404
VS2005/.NetFramework2.0以降を使用してたらジェネリックメソッドを使用して
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sr As New System.IO.StreamReader("c:\data.txt")
Dim intArray() As Integer = Array.ConvertAll(sr.ReadToEnd().Split(vbLf), New Converter(Of String, Integer)(AddressOf StringToInteger))
sr.Close()
End Sub
Private Function StringToInteger(ByVal value As String) As Integer
Return Integer.Parse(value)
End Function
というかんじでもできる
(vbLfのところは、テキストファイルの文字コードによってvbCrLfに変更汁)