- 博客(1)
- 资源 (1)
- 收藏
- 关注
原创 vb读取文件并在文本框中显示
Dim Str1 As String Dim Str2 As String Dim StrFileName As String StrFileName = App.Path & "/1.txt" '获取文本文件路径 Open StrFileName For Input As #1 '打开文件 Do Until EOF(1) '判断是否末尾 Line Input #1, Str1 '逐行读取 Str2 = Str2 & Str1 & vbCrL
2010-07-15 22:50:00
2057
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人