匿名使用者2022.07.05 回答

Function GetLineStr（FileSpec As String） As String（） ‘獲取filespec路徑下檔案每一行內容，並寫入陣列函式中

Dim i As Integer

Dim TempStr As String， Temp（） As String

Dim FileNum As Integer

FileNum = FreeFile

Open FileSpec For Input As #FileNum

Do While Not EOF（1）

Line Input #FileNum， TempStr

i = i + 1

ReDim Preserve Temp（1 To i） As String

Temp（i） = TempStr

Loop

GetLineStr = Temp

Close #FileNum

End FunctionPrivate Sub Command1_Click（） ’呼叫示例

Dim FileSpec As String ‘txt路徑

Static i As Integer

Dim LineStr（） As String

i = 1

If i = UBound（LineStr） Then

MsgBox “檔案已結束”

i = 1

End If

FileSpec = “d：\1。txt”

LineStr = GetLineStr（FileSpec）

text1。Text = LineStr（i）

i = i + 1

Next

匿名使用者2013.12.05 回答

既然同胞都出聲了，我還不幫忙嗎，兄弟，我剛寫了一段程式碼，你看看能用不

Private Sub Form_Load（）

Open “C：\123。txt” For Input As #1

End Sub

Private Sub Command1_Click（）

On Error Resume Next

Dim str As String

Line Input #1， str

Text1。Text = str

End Sub

匿名使用者2013.11.18 回答

Private Sub Command1_Click（）

Dim s As String

While Not EOF（1）

Line Input #1， s

Text1。Text = s

Wend

End Sub

Private Sub Form_Load（）

Open “d：\new\high。txt” For Input As #1

End Sub

Private Sub Form_Unload（Cancel As Integer）

Close #1

End

End Sub

沉默的風2013.09.14 回答

試試這個吧

private sub command1_click（）

open “c：\123。txt” for output as #1

print #1， text1

print #1， text2

print #1， text3

close

end sub

private sub form_load（）

open “c：\123。txt” for input as #1

input #1， a

input #1， b

input #1， c

text1 = a

text2 = b

text3 = c

close

end sub