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

名前

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

本文 ま・・・こういうものがほしいのでしょうか？ Option Explicit Private Sub Command1_Click() Dim hnum As Integer Dim pnum As Integer Dim mnum As String'文字型変数宣言 hnum = FreeFile Open App.Path & "\Read.txt" For Input As #hnum'指定ファイルから読み込み For pnum = 0 To 5 Line Input #hnum, mnum text1(pnum).Text = mnum Next pnum Close #hnum End Sub Private Sub Command2_Click() Dim hnum As Integer Dim pnum As Integer hnum = FreeFile Open App.Path & "\Read.txt" For Output As #hnum’指定ファイルに保存 For pnum = 0 To 5 Print #hnum, pnum Next pnum Close #hnum End Sub テキストボックスを一個貼り付けてコピペするとコントロール配列ができますのでそれを6個つけてコマンドボタンを2個つけてやってみてくださいな とりあえずテキストボックスに書いたことを保存したり読み出したりすることはできます