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 ·
2065 阅读 ·
0 评论