Private Sub Command1_Click()"把txt載入到文字框或者變數中Text1.Text = Replace(Text1.Text, vbCrLf, vbCrLf & vbCrLf)"輸出文字框或者變數即可End Sub

Dim p(2) As String "檔案裡有3行就定義為p（2），有4行是p（3），依次類推

Dim i As Integer

i = 0

Open "c:\2.txt" For Input As #1 "引號裡的路徑你自己改，這裡我假設2.text在c盤下

Do Until EOF(1) = True

Line Input #1, nextline

p(i) = nextline & "-0"

i = i + 1

Loop

Close #1

Open "c:\a.txt" For Output As #1

Print #1, p(0)

Print #1, p(1)

Print #1, p(2)

Close #1