vb读取文件夹中所有的txt文件

有网友碰到过这样的vb读取文件夹中所有的txt文件,问题详细内容为:如何用VB读取多个txt文件并输出到textbox中,逐步读取获得文件路径的txt里面的内容,逐步添加到textbox中,求代码,VB6.0的版本...如何用VB读取多个txt文件并输出到textbox中,逐步读取获得文件路径的txt里面的内容,逐步添加到textbox中,求代码,VB6.0的版本展开,我搜你通过互联网收集了相关的一些解决方案,希望对有过相同或者相似问题的网友提供帮助,具体如下:

网友提供的解决方案1:

使用VB内建函数读取文本文件

1/3

双击Command1添加如下代码

Private Sub Command1_Click()

    Dim strFile     As String

    Dim intFile     As Integer

    Dim strData     As String

    strFile = "c:\学生成绩.txt"

    intFile = FreeFile

    Open strFile For Input As intFile

    strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)

    Debug.Print strData

    Close intFile

End Sub

2/3

运行代码读取文件

按F8开始单步调试代码,点击Command1,进入单步调试功能,多次按下F8或直接按下F5运行完成,就完成了读取文本文件内容并输出到立即窗口。

查看剩余1张图

3/3

关键代码说明

intFile = FreeFile:获取一个文件句柄

Open strFile For Input As intFile :打开文件

FileLen(strFile) :获取文件内容字节大小

InputB:读取文件内容字节流

StrConv:将字节流转换为Unicode字符串

Debug.Print strData:将字符串内容输出到立即窗口

Close intFile:关闭文件句柄

使用FileSystemObject读取文本文件

1/3

添加Microsoft Scripting Runtime引用

点击Project菜单,再点击下拉菜单中的Reference,打开引用对话框,浏览找到Microsoft Scripting Runtime引用,选择后点确定按钮。

查看剩余1张图

2/3

双击Command2添加如下代码

Private Sub Command2_Click()

    Dim objFS

3/3

运行代码读取文件

按F8开始单步调试代码,点击Command2,进入单步调试功能,多次按下F8或直接按下F5运行完成,就完成了读取文本文件内容并输出到立即窗口。

网友提供的解决方案2:

你是VB的哪个版本?追问VB6.0追答

给出一个例子:

'1,使用菜单:[工程] -- [部件],勾选其中的:Microsoft Common Dialog Control 6.0 (SP6)

'2,在窗体上添加1个文本框Text1,2个按钮,添加1个CommonDialog1控件。

'3,设置文本框Text1的MultiLine 属性为True,ScrollBars 属性为2。

代码如下:Option Explicit

Private Sub Command1_Click()

'使用通用对话框实现寻找并打开指定文件

'CancelError属性为True。

On Error GoTo ErrHandler

'设置过滤器

CommonDialog1.Filter = "Text Files(*.txt)|*.txt|Batch Files(*.bat)|*.bat"

'指定缺省过滤器。

CommonDialog1.FilterIndex = 1

'显示"打开"对话框。

CommonDialog1.ShowOpen

'调用打开文件的过程

'读文本文件

Dim MyStr As String     '用来存放文本文件的内容

Dim MyStrLine As String     '用来存放读取1行文本的内容

Dim n As Integer

MyStr = ""

'读取文件信息

'以读的方式打开文件,其中文件名由用户通过CommonDialog1指定

Open CommonDialog1.FileName For Input As #1

Do While Not EOF(1)   ' 循环至文件尾

   Line Input #1, MyStrLine   '读入一个自然段

   MyStr = MyStr & MyStrLine & vbCrLf

Loop

Close #1   ' 关闭文件。

'将文件内容显示在文本框

Text1.Text = MyStr

Exit Sub

ErrHandler:

'用户在通用对话框里按了"取消"按钮。

Exit Sub

End Sub

Private Sub Command2_Click()

   End

End Sub

VB打开一个文件夹下所有的*.txt文件并且对其进行读...

答:dim aa as string aa =dir ("一个文件夹的路径\*.txt") do while aa"" '打开这个"一个文件夹的路径\" & aa TXT文件,并读取 aa =dir() loop

vb读取文件夹中所有的txt文件

答:使用VB内建函数读取文本文件 1/3 双击Command1添加如下代码 Private Sub Command1_Click()     Dim strFile     As String     Dim intFile     As Integer     Dim strData ...

VB如何读取File1.filelistBOX中的所有txt文件?

答:File1.Path = "d:\360"'设置路径File1.Pattern = "*.txt"'匹配 txt 文件For i = 0 To File1.ListCount '处理文件 File1.list(i) 为文件名Next 似乎是遂一读取检测快,因为有时文件未完全读取完,就已经找到答案了。 不需要读取所有的文件。

VB 如何逐个打开一个文件夹里面的多个txt文件。

答:Dim Files() As String Private Sub Command1_Click() getFiles "c:\", Files() '获得文件,文件保存在Files()中 '后面为读取数据 End Sub Private Sub getFiles(ByVal FilePath As String, F() As String) Dim FileList As FileListBox Dim i As...

请问VB中如何读取txt文件的数据

答:Dim A, S As String Dim FreeNum As Integer FreeNum = FreeFile 'Freenum表示一个空闲的文件号 open "D:\date.txt" for input as #FreeNum '这步是打开“date.txt”,for input表示以输入方式(即读取文件)打开。如果要写入文件则应该用output或...

VB读取TXT文件内容

答:Private Sub Command1_Click() Dim s As String Open "c:\q.txt" For Binary As #1 s = input(LOF(1), #1) Text1.Text = s Close #1 End Sub 以上代码把txt文件内容读入s变量中,如果有text的话,赋值就可以了。具体文件名称即路径你可以根据你...

请问高手用VB如何读取txt文件中的字符串?

答:Open "c:\test.txt" For Input As #1 '把c:\test.txt换成你自己的文本文件名 While Not EOF(1) '只要没到文件尾部就一直循环 Line Input #1, strtmp '每次读取一行 str1 = Split(strtmp, ",") '把读取到的单行文本按逗号分隔成多个字符串,存放...

VB读取当前目录所有TXT文件并分别按文件名存放在LI...

答:Private Sub Form_Load()Dim aa = Dir(App.Path & "\", vbHidden + vbDirectory)Do While a ""If GetAttr(App.Path & "\" & a) vbDirectory ThenIf Right(a, 3) = "txt" Then List1.AddItem aEnd Ifa = DirLoopEnd Sub Private Sub List1_Click(...

VB读取TXT文件

答:可以用FileSystemObject : dim fso as new FileSystem.Object dim ts as TextStream dim theURL as String set ts = fso.OpenTextFile(filename, 1) '这句话返回一个TextStream对象 theURL = ts.ReadAll() '读取文件所有内容 或者 theURL = ts....

VB Script 怎么批量读取txt文件

答:Dim fsoSet fso = WScript.CreateObject("Scripting.Filesystemobject")Dim FldSet Fld=fso.GetFolder(fso.GetParentFolderName(WScript.ScriptFullName))'获取脚本所在目录对象Dim subFoldersubFolder=fso.BuildPath(Fld.Path,"subFolder")If N...

vb读取文件夹中所有的txt文件

使用VB内建函数读取文本文件 1/3 双击Command1添加如下代码 Private Sub Com... 文件 1/3 添加Microsoft Scripting Runtime引用 点击Project菜单,再点击下拉菜单中的...

VB读取一个文件夹里的TXT文件

文件 批量读取这个文件夹里的txt文件 读取完以后的数组变量名就是txt的文件名现在问题:1 MATLAB如何遍历一个文件夹里的所有函数2 如果按照文件名创建一个变量?

vb 怎么用COMBO读取文件夹中的.txt文件?

如果你不知道文件夹有多少文件,下面代码将添加该文件夹下所有.txt文件的文件名 Private Sub Form_Load() Combo1.Clear Dim path As String, filename As String path = &q...

vb 读取文件夹中的.txt文件中的数据?

中输入1或4,或7,按确定后把 12 145 158 124分别显示在 text1,text2,text3,text4 中? Private Sub Command1_Click() Dim a, s Open "c:\1.txt" For Input As ...

vb6.0怎么用COMBO读取文件夹中的txt文件

你别在Form_Load里做这个,Form_load不搭理这种执行的,在Form_Click、Command1_Click里做都可以

请问VB中如何读取txt文件的数据

= FreeFile 'Freenum表示一个空闲的文件号 open "D:\date.txt" for input as #FreeNum '这步是打开“date.txt”,for input表示以输入方式(即读取文件...

vb 如何轮流读取关闭指定文件夹内的每一个txt文件

说个思路吧。用文件列表控件,读出目录里面的文件。然后用OPEN命令打开一下,在CLOSE一下。不知道符合你的要求不?

VB6.0中,如何实现读取TXT文件中的内容并在VB上显示出来?

& "\YourTxt.txt" '这里是你要读取的txt文件名list1.clear '先清空列表框open file for input as #1 '打开这个文件开始读内容do while not eof(1)line input #1,s '读取一行...

Vb 随机读取特定文件夹里面的txt文件,然后按文件夹顺序将txt内...

As #1 d = d & StrConv(InputB(LOF(1), 1), vbUnicode) Close #1 End If Next If d <> "" Then Open "c:\d\" & Int(Timer) & ".txt&quo...

如何用VB读写一个文件夹及子目录的TXT文件?

1.〔引用〕Microsoft scripting runtime 2.用如下代码较为简单 2.1我自定义了path_txt函数来查找文件夹中的txt文件 2.2用readandwrite函数定义了读写文件的操作语句 Priva...

请注意,本站信息均由系统收集自互联网,相关信息仅供参考,医疗等重要信息请以正规途径为最终意见,本站不承担任何责任!