vb 怎么在打开已经知道位置的txt文件?
3个回答
展开全部
用这个自定义函数(百度排版坑爹)
Function ReadTxt(TxtPathAsString) As String
Dim by() As Byte
Open TxtPath For Binary As #1
ReDim by(1 To LOF(1))
Get #1, , by()
Close #1
ReadTxt = StrConv(by, vbUnicode)
End Function
Private Sub Form_Load()
text1.Text = ReadTxt("C\已经知道位置的文件.txt")
End Sub
Function ReadTxt(TxtPathAsString) As String
Dim by() As Byte
Open TxtPath For Binary As #1
ReDim by(1 To LOF(1))
Get #1, , by()
Close #1
ReadTxt = StrConv(by, vbUnicode)
End Function
Private Sub Form_Load()
text1.Text = ReadTxt("C\已经知道位置的文件.txt")
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-05-23
展开全部
Open "你的文件位置" For Input As #1
这是打开后向文件中写,要是读的话可以用output。也可用random来是写定长的读写功能
如:Open App.Path & "\y.txt" For random As #1 len=100
这是打开后向文件中写,要是读的话可以用output。也可用random来是写定长的读写功能
如:Open App.Path & "\y.txt" For random As #1 len=100
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询