gpt4 book ai didi

VB实现按行读取文本文件的方法

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 34 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章VB实现按行读取文本文件的方法由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

本文实例讲述了VB实现按行读取文本文件的方法。分享给大家供大家参考。具体如下:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
'(general declaration)
Dim nFileNum As Integer , sText As String , sNextLine As String , lLineCount As Long
'==================================
Private Sub Command1_Click()
' Get a free file number
nFileNum = FreeFile
' Open a text file for input. inputbox returns the path to read the file
Open "C:\Documents and Settings\Sudeep\My Documents\3.txt" For Input As nFileNum
lLineCount = 1
' Read the contents of the file
Do While Not EOF(nFileNum)
   Line Input #nFileNum, sNextLine
   'do something with it
   'add line numbers to it, in this case!
   sNextLine = sNextLine & vbCrLf
   sText = sText & sNextLine
Loop
Text1.Text = sText
' Close the file
Close nFileNum
End Sub

希望本文所述对大家的VB程序设计有所帮助.

最后此篇关于VB实现按行读取文本文件的方法的文章就讲到这里了,如果你想了解更多关于VB实现按行读取文本文件的方法的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

34 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com