ＶＢでのファイルデータ取得について (ID:110948)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 失礼・・・今試したら失敗してた＾＾； Option Explicit Private Sub command3_Click() Dim nnum As Integer For nnum = 0 To 5 'textBoxの０〜５までを空白にする text1(nnum).Text = "" Next nnum End Sub Private Sub command2_Click() Dim fnum As Integer Dim nnum As Integer Dim hnum As String fnum = FreeFile Open App.Path & "\24.txt" For Input As #fnum For nnum = 0 To 5 Line Input #fnum, hnum '1行づつ改行するまで読み込む text1(nnum).Text = hnum 'textBoxの0〜5まで繰り返し Next nnum Close #fnum End Sub Private Sub command1_Click() Dim fnum As Integer Dim nnum As Integer fnum = FreeFile Open App.Path & "\24.txt" For Output As #fnum For nnum = 0 To 5 Print #fnum, text1(nnum).Text 'textboxの0~5まで保存 Next nnum Close #fnum End Sub これなら大丈夫なはず・・・