VB.NET質問スレ (Part18)

VB.NET質問スレ (Part18) at TECH

420:デフォルトの名無しさん
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に変更汁)

次ページ

続きを表示

1を表示