textboxに””を入れる場合。。。。 (ID:111373)

名前

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

本文 カンマ区切りで保存して、読込時カンマで分割するだけで良いと思います。 Option Explicit Private Sub Command1_Click() Dim FNo As Integer FNo = FreeFile Open "c:\test.txt" For Output As #FNo Print #FNo, Text1 & "," & Text2 'カンマ区切りで保存 Close #FNo End Sub Private Sub Command2_Click() Dim FNo As Integer Dim strBuf1 As String Dim strBuf2() As String 'カンマ区切りで分割したデータを入れる配列を用意する FNo = FreeFile Open "c:\test.txt" For Input As #FNo Line Input #FNo, strBuf1 '一行読み込む strBuf2() = Split(strBuf1, ",") 'カンマ区切りで分割する Text1 = strBuf2(0) Text2 = strBuf2(1) Close #FNo End Sub